R/fvsGetSVSDims.R

In SilviaTerra/rFVS: R interface for the FVS growth model

#' @title Get SVS Dims
#'
#' @return A named vector of integers as follows: 
#'   `nsvsobjs`, `ndeadobjs`, `ncwdobjs`, `mxsvsobjs`, `mxdeadobjs`, 
#'   `mxcwdobjs.`
#' @export

fvsGetSVSDims <- function() {
  fvsSVSDims <- unlist(
    .Fortran(
      "fvsSVSDimSizes", as.integer(0), as.integer(0),
      as.integer(0), as.integer(0), as.integer(0), as.integer(0)
    )
  )
  names(fvsSVSDims) <- c(
    "nsvsobjs", "ndeadobjs", "ncwdobjs", "mxsvsobjs",
    "mxdeadobjs", "mxcwdobjs"
  )
  fvsSVSDims
}