~~function to do ... ~~

Description

~~ A concise (1-5 lines) description of what the function does. ~~

Usage

areapl(poly)

Arguments

Details

~~ If necessary, more details than the description above ~~

Value

~Describe the value returned If it is a LIST, use

...

Warning

....

Note

~~further notes~~

~Make other sections like Warning with section{Warning }{....} ~

Author(s)

~~who you are~~

References

~put references to the literature/web site here ~

See Also

~~objects to See Also as help, ~~~

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--    or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function(poly)
{
        np <- length(poly[,1])

        polyx <- c(poly[,1],poly[1,1])
        polyy <- c(poly[,2],poly[1,2])
        
        answer <- 0

        alist <- .Fortran(      "areapl",
                        as.double(polyx),
                        as.double(polyy),
                        as.integer(np),
                        as.double(answer),
                        PACKAGE="spgam")
        alist[[4]]      
        
  }