!!  Copyright (C) Stichting Deltares, 2005-2019.
!!
!!  This file is part of iMOD.
!!
!!  This program is free software: you can redistribute it and/or modify
!!  it under the terms of the GNU General Public License as published by
!!  the Free Software Foundation, either version 3 of the License, or
!!  (at your option) any later version.
!!
!!  This program is distributed in the hope that it will be useful,
!!  but WITHOUT ANY WARRANTY; without even the implied warranty of
!!  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
!!  GNU General Public License for more details.
!!
!!  You should have received a copy of the GNU General Public License
!!  along with this program.  If not, see <http://www.gnu.org/licenses/>.
!!
!!  Contact: imod.support@deltares.nl
!!  Stichting Deltares
!!  P.O. Box 177
!!  2600 MH Delft, The Netherlands.
!!
MODULE MOD_IPF_PAR

USE WINTERACTER
USE RESOURCE
USE MODPLOT, ONLY : MAXIAXES
USE IMODVAR, ONLY : DP_KIND,SP_KIND

INTEGER,PARAMETER :: MAXLEN=50

CHARACTER(LEN=MAXLEN),ALLOCATABLE,DIMENSION(:,:) :: CIPF
REAL(KIND=DP_KIND),ALLOCATABLE,DIMENSION(:,:) :: XPOS
INTEGER :: NPOS,NX,NY
INTEGER,ALLOCATABLE,DIMENSION(:) :: ILIST,IREF,JREF
CHARACTER(LEN=MAXLEN),ALLOCATABLE,DIMENSION(:) :: CNAME,CNAMESEL
INTEGER :: NLIST,IBITMAP
INTEGER :: IWIN
CHARACTER(LEN=MAXLEN) :: TXT,CTIME

INTEGER :: NIPF     !## number of ips"s active for plotting/analysing
TYPE IPFOBJ
 INTEGER :: IU         !## unit number assigned to ipf
 INTEGER :: NROW,NCOL  !## number of rows and columns within ipf
 INTEGER :: IPLOT      !## number of rows and columns within ipf
 INTEGER :: XCOL,YCOL,ZCOL,Z2COL,QCOL !## column number of x,y,z coordinates
 INTEGER :: ACOL=0       !## column number of associated files
 INTEGER :: PCOL=0       !## plot column number of associated files - labeling
 INTEGER :: ILEGDLF    !## dlf legend (1-10)
 INTEGER,DIMENSION(MAXIAXES) :: IAXES  !## which axes to be used for each column in the associated files
 INTEGER :: SYMBOL     !## plot symbol
 INTEGER :: THICKNESS  !## plot symbol grootte
 CHARACTER(LEN=10) :: FEXT !## extent of associated files
 CHARACTER(LEN=256) :: FNAME !## fname of ipf
 CHARACTER(LEN=50) :: ALIAS !## fname of ipf, without root
 INTEGER(KIND=1),POINTER,DIMENSION(:) :: IP !## selected rows within ipf
 INTEGER :: ASSCOL1 !## columns used to plot the associated files
 INTEGER :: ASSCOL2 !## columns used to plot the associated files
 !## ip=1 simple figure
 !## ip=2 advanced figure
 !## ip=3 selected
 !## ip=4
 !## ip=5
 REAL(KIND=DP_KIND),POINTER,DIMENSION(:,:) :: XYZ  !## xyz coordinates of ipf
 CHARACTER(LEN=MAXLEN),POINTER,DIMENSION(:,:) :: INFO !## data witin ipf
 CHARACTER(LEN=MAXLEN),POINTER,DIMENSION(:,:) :: DUMMY_INFO !## data witin ipf
 CHARACTER(LEN=MAXLEN),POINTER,DIMENSION(:) :: ATTRIB !## attribute names
 CHARACTER(LEN=MAXLEN),POINTER,DIMENSION(:) :: DUMMY_ATTRIB !## atrribute names
 INTEGER(KIND=1),POINTER,DIMENSION(:) :: IPOS   !## drawn point
 REAL(KIND=DP_KIND),POINTER,DIMENSION(:,:) :: XYPOS           !## drawn coordinate (could be different in profiles)
 INTEGER :: ITYPE !## 0=standard IPF, 1=CSV
END TYPE IPFOBJ
TYPE(IPFOBJ),ALLOCATABLE,DIMENSION(:) :: IPF

INTEGER,PARAMETER :: MAXATTRIB=128

INTEGER,PARAMETER :: MAXLITHO=250 !## size of grid on 3d-settings and within profile-setting
INTEGER,DIMENSION(10) :: NLITHO 
TYPE BHOBJ
 CHARACTER(LEN=MAXATTRIB) :: LITHO
 CHARACTER(LEN=MAXATTRIB) :: LITHOTXT
 INTEGER :: LITHOCLR
 REAL(KIND=DP_KIND) :: LITHOWIDTH
END TYPE BHOBJ
TYPE(BHOBJ),DIMENSION(10,MAXLITHO) :: BH

TYPE TYPE_IPF
 CHARACTER(LEN=MAXATTRIB),POINTER,DIMENSION(:) :: ATTRIB
 REAL(KIND=DP_KIND),POINTER,DIMENSION(:) :: NODATA

 REAL(KIND=DP_KIND),POINTER,DIMENSION(:) :: IDATE       !## time-data in timeseries
 REAL(KIND=DP_KIND),POINTER,DIMENSION(:,:) :: MEASURE           !## data in timeseries/sonderingen

 REAL(KIND=DP_KIND),POINTER,DIMENSION(:) :: DX                  !## delta offset in x direction
 REAL(KIND=DP_KIND),POINTER,DIMENSION(:) :: DY                  !## delta offset in y direction

 REAL(KIND=DP_KIND),POINTER,DIMENSION(:) :: Z                   !## z-coordinate in drills/sonderingen
 CHARACTER(LEN=MAXATTRIB),POINTER,DIMENSION(:,:) :: L   !## data from drills

 INTEGER :: ASSCOL1 !## columns used to plot the associated files
 INTEGER :: ASSCOL2 !## columns used to plot the associated files
 INTEGER :: ILEGDLF    !## dlf legend (1-10)

 INTEGER :: IROW !## row number in ipf that triggers this drill/measure e.g.
 INTEGER :: NRASS,NCASS,ITOPIC
 REAL(KIND=DP_KIND) :: XMIN,XMAX  !## for top  and bottom axes
 REAL(KIND=DP_KIND) :: YMIN,YMAX  !## for left and right  axes
 REAL(KIND=DP_KIND) :: Y2MIN,Y2MAX  !## second yaxes
 INTEGER,DIMENSION(MAXIAXES) :: IAXES !## 1=left,bottom ;2=right
 CHARACTER(LEN=50) :: FNAME
END TYPE TYPE_IPF
TYPE(TYPE_IPF),DIMENSION(:),ALLOCATABLE :: ASSF

INTEGER,PARAMETER :: MXTAB=5
INTEGER,DIMENSION(MXTAB) :: IDTAB
DATA IDTAB/ID_DIPFINFO_TAB1TAB1,ID_DIPFINFO_TAB1TAB2,ID_DIPFINFO_TAB1TAB3, &
           ID_DIPFINFO_TAB1TAB4,ID_DIPFINFO_TAB1TAB5/

INTEGER,ALLOCATABLE,DIMENSION(:),SAVE :: GRAPHLINESCOLOUR,GRAPHLINESONOFF,GRAPHLINESTHICKNESS,GRAPHLINESSCALED
REAL(KIND=DP_KIND),ALLOCATABLE,DIMENSION(:),SAVE :: SCALED
INTEGER,PARAMETER :: GRAPHMAXLINES=MAXIAXES
INTEGER,SAVE :: GRAPHLINESXAXES,GRAPHLINESYAXES,GRAPHLINESSCALE,ICOL1,ICOL2,GRAPHPERCENTAGES1,GRAPHPERCENTAGES2
REAL(KIND=DP_KIND),SAVE :: GRAPHLINESXMIN,GRAPHLINESXMAX,GRAPHLINESYMIN,GRAPHLINESYMAX
INTEGER,SAVE :: ITOPICASSF

REAL(KIND=DP_KIND),PARAMETER :: XSIZE=100.0D0     !## size of cross for selected ipf's

END MODULE MOD_IPF_PAR