! Last change: PTM 16 Nov 2010 12:52 pm MODULE IMOD_IDF_PAR TYPE IDFOBJ INTEGER :: IU INTEGER :: NCOL INTEGER :: NROW INTEGER :: IEQ !=0:equi =1:non-equi INTEGER :: ITB !=0: =1:usage of top/bot information INTEGER :: IVF !=0: =1:usage of vector content INTEGER :: IPG !=0: =1:usage of polygon used in IDFEDIT INTEGER :: IXV !=0:storage in x =1:storage in v INTEGER :: JD !=julian date (if neccessary) REAL :: DAYFRACTION !=daily fraction INTEGER :: ILAY !=ilay of idf (if neccessary) ! INTEGER :: UNITS !=units ! INTEGER :: IADIT !=optie (binair) for additional elements in IDF file REAL :: XMIN,YMIN,XMAX,YMAX REAL :: DX,DY !equi.distance if ieq=0 REAL :: TOP,BOT !top and bot information REAL :: NODATA,DMIN,DMAX REAL,DIMENSION(:),POINTER :: SX !x.coord. network REAL,DIMENSION(:),POINTER :: SY !y.coord. network REAL,DIMENSION(:,:),POINTER :: X !idfvalues in matrix REAL,DIMENSION(:),POINTER :: V !idfvalues in vector INTEGER(KIND=1),DIMENSION(:,:,:),POINTER :: IV !vector field INTEGER(KIND=2),DIMENSION(:,:),POINTER :: YSEL !idfvalues in vector, irow/icol CHARACTER(LEN=4),DIMENSION(:),POINTER :: COMMENT !comments ! TYPE(IDFCOMMENTOBJ) :: COMMENT INTEGER :: NTHREAD CHARACTER(LEN=256) :: FNAME ! name of the idf END TYPE IDFOBJ ! !TYPE IDFOBJ ! INTEGER :: IU ! INTEGER :: NCOL ! INTEGER :: NROW ! INTEGER :: IEQ !=0:equi =1:non-equi ! INTEGER :: ITB !=0: =1:usage of top/bot information ! INTEGER :: IXV !=0:storage in x =1:storage in v ! INTEGER :: JD !=julian date (if neccessary) ! INTEGER :: ILAY !=ilay of idf (if neccessary) ! INTEGER :: UNITS !=units ! REAL :: XMIN,YMIN,XMAX,YMAX ! REAL :: DX,DY !equi.distance if ieq=0 ! REAL :: TOP,BOT !top and bot information ! REAL :: NODATA,DMIN,DMAX ! REAL,DIMENSION(:),POINTER :: SX !x.coord. network ! REAL,DIMENSION(:),POINTER :: SY !y.coord. network ! REAL,DIMENSION(:,:),POINTER :: X !idfvalues in matrix ! REAL,DIMENSION(:),POINTER :: V !idfvalues in vector ! INTEGER(KIND=2),DIMENSION(:,:),POINTER :: YSEL !idfvalues in vector, irow/icol ! CHARACTER(LEN=4),DIMENSION(:),POINTER :: COMMENT !comments ! INTEGER :: NTHREAD ! CHARACTER(LEN=256) :: FNAME ! name of the idf !END TYPE IDFOBJ END MODULE IMOD_IDF_PAR