MODULE MOD_IDFGETVALUE_PAR

USE IMODVAR, ONLY : DP_KIND,SP_KIND
USE MOD_IDF_PAR
USE RESOURCE

INTEGER,PARAMETER :: MAXPOL=50
INTEGER :: NIDFS
TYPE(IDFOBJ),DIMENSION(:),ALLOCATABLE :: IDF
CHARACTER(LEN=256),DIMENSION(:),ALLOCATABLE :: SNAMES,ALIAS
REAL(KIND=DP_KIND),DIMENSION(:),ALLOCATABLE :: XPOL,YPOL
INTEGER,ALLOCATABLE,DIMENSION(:) :: ICOLORIDF,IUNITS
INTEGER,ALLOCATABLE,DIMENSION(:,:) :: IPOSIDF
INTEGER :: ISHOW

INTEGER,PARAMETER :: MXID=19
INTEGER,DIMENSION(MXID) :: ID,IACT
DATA (ID(I),I=1,MXID) /ID_NEW,ID_OPEN,ID_SAVE,ID_SAVEAS,ID_COPY,ID_MANAGER,ID_OPENIDF, &
                       ID_IRDATABASE,ID_PROFILE,ID_IMODINFO,ID_TIMESERIES, &
                       ID_FILE,ID_EDIT,ID_VIEW,ID_TOOLBOX,ID_HELPMAIN,ID_3DTOOL,ID_MAP,ID_MOVIE/
                       
END MODULE MOD_IDFGETVALUE_PAR