gdswzd_c.F90

Go to the documentation of this file.

 
 
module gdswzd_c_mod
  use gdswzd_mod
  implicit none
 
contains
 
  SUBROUTINE gdswzd_c(IGDTNUM,IGDTMPL,IGDTLEN,IOPT,NPTS,FILL, &
       XPTS,YPTS,RLON,RLAT,NRET,CROT,SROT, &
       XLON,XLAT,YLON,YLAT,AREA) bind(C, NAME='gdswzd')
    use, INTRINSIC :: iso_c_binding
 
    USE gdswzd_mod
 
    IMPLICIT NONE
 
#if (LSIZE==8)
    INTEGER(KIND=C_LONG), INTENT(IN)         :: IGDTMPL(IGDTLEN)
    INTEGER(KIND=C_LONG), VALUE, INTENT(IN)  :: IGDTNUM, IGDTLEN
    INTEGER(KIND=C_LONG), VALUE, INTENT(IN)  :: IOPT, NPTS
    INTEGER(KIND=C_LONG), INTENT(OUT)        :: NRET
#else
    INTEGER(KIND=C_INT),  INTENT(IN)         :: IGDTMPL(IGDTLEN)
    INTEGER(KIND=C_INT),  VALUE, INTENT(IN)  :: IGDTNUM, IGDTLEN
    INTEGER(KIND=C_INT),  VALUE, INTENT(IN)  :: IOPT, NPTS
    INTEGER(KIND=C_INT),  INTENT(OUT)        :: NRET
#endif
 
#if (LSIZE==4)
    REAL(KIND=c_float), VALUE, INTENT(IN)    :: fill
    REAL(KIND=c_float), INTENT(INOUT)        :: xpts(npts),ypts(npts),rlon(npts),rlat(npts)
    REAL(KIND=c_float), INTENT(OUT)          :: crot(npts),srot(npts),xlon(npts),xlat(npts)
    REAL(KIND=c_float), INTENT(OUT)          :: ylon(npts),ylat(npts),area(npts)
#else
    REAL(KIND=c_double), VALUE, INTENT(IN)   :: fill
    REAL(KIND=c_double), INTENT(INOUT)       :: xpts(npts),ypts(npts),rlon(npts),rlat(npts)
    REAL(KIND=c_double), INTENT(OUT)         :: crot(npts),srot(npts),xlon(npts),xlat(npts)
    REAL(KIND=c_double), INTENT(OUT)         :: ylon(npts),ylat(npts),area(npts)
#endif
 
    CALL gdswzd(igdtnum,igdtmpl,igdtlen,iopt,npts,fill, &
         xpts,ypts,rlon,rlat,nret, &
         crot,srot,xlon,xlat,ylon,ylat,area)
 
  END SUBROUTINE gdswzd_c
 
  SUBROUTINE gdswzd_c_grib1(KGDS,IOPT,NPTS,FILL,XPTS,YPTS,RLON,RLAT,NRET, &
       CROT,SROT,XLON,XLAT,YLON,YLAT,AREA) bind(C, NAME='gdswzd_grib1')
    use, INTRINSIC :: iso_c_binding
 
    USE gdswzd_mod
 
    IMPLICIT NONE
 
#if (LSIZE==8)
    INTEGER(KIND=C_LONG), INTENT(IN)         :: KGDS(200)
    INTEGER(KIND=C_LONG), VALUE, INTENT(IN)  :: IOPT
    INTEGER(KIND=C_LONG), VALUE, INTENT(IN)  :: NPTS
    INTEGER(KIND=C_LONG), INTENT(OUT)        :: NRET
#else
    INTEGER(KIND=C_INT),  INTENT(IN)         :: KGDS(200)
    INTEGER(KIND=C_INT),  VALUE, INTENT(IN)  :: IOPT
    INTEGER(KIND=C_INT),  VALUE, INTENT(IN)  :: NPTS
    INTEGER(KIND=C_INT),  INTENT(OUT)        :: NRET
#endif
 
#if (LSIZE==4)
    REAL(KIND=c_float), VALUE, INTENT(IN)    :: fill
    REAL(KIND=c_float), INTENT(INOUT)        :: xpts(npts),ypts(npts),rlon(npts),rlat(npts)
    REAL(KIND=c_float), INTENT(OUT)          :: crot(npts),srot(npts),xlon(npts),xlat(npts)
    REAL(KIND=c_float), INTENT(OUT)          :: ylon(npts),ylat(npts),area(npts)
#else
    REAL(KIND=c_double), VALUE, INTENT(IN)   :: fill
    REAL(KIND=c_double), INTENT(INOUT)       :: xpts(npts),ypts(npts),rlon(npts),rlat(npts)
    REAL(KIND=c_double), INTENT(OUT)         :: crot(npts),srot(npts),xlon(npts),xlat(npts)
    REAL(KIND=c_double), INTENT(OUT)         :: ylon(npts),ylat(npts),area(npts)
#endif
 
    CALL gdswzd(kgds,iopt,npts,fill,xpts,ypts,rlon,rlat,nret, &
         crot,srot,xlon,xlat,ylon,ylat,area)
 
  END SUBROUTINE gdswzd_c_grib1
 
end module gdswzd_c_mod