SUBROUTINE PDFNEF ( LUNREP, SERIAL, VERSIO, IERROR)
C
C     Deltares
C
C     CREATED            : june 1999 by Jan van Beek
C
C     FUNCTION           : Convert process definition tables to NEFIS format
C
C     LOGICAL UNITS      :
C
C     SUBROUTINES CALLED :
C
C     ARGUMENTS
C
C     NAME    TYPE     LENGTH     FUNCT.  DESCRIPTION
C     ----    -----    ------     ------- -----------
C     LUNREP       INT    1       I       Unit number report file
C     IERROR       INT    1       O       Error
C
C     IMPLICIT NONE for extra compiler checks
C
      IMPLICIT NONE
C
C     Declaration of arguments
C
      INTEGER       LUNREP      , SERIAL     ,
     +              IERROR
      REAL          VERSIO
C
C     Common declarations
C
      INCLUDE 'data.inc'
C
C     Declaration of file identification group
C
      REAL          VFFORM
      CHARACTER*20  RUNDAT
      CHARACTER*40  FFORM      , CONTEN      ,
     +              SOURCE
      CHARACTER*40  REMARK(4)
C
C     Local variables
C
C     DEFNAM  CHAR*255    1       LOCAL   name definition file
C     DATNAM  CHAR*255    1       LOCAL   name data file
C
      INTEGER       IC              , IP          ,
     +              ITEL
      INTEGER       DEFFDS
      CHARACTER*1   CODING
      CHARACTER*2   ACCESS
      CHARACTER*255 DEFNAM          , DATNAM
C
C     External NEFIS Functions
C
      INTEGER   CLSNEF
     +         ,CRENEF
      EXTERNAL  CLSNEF
     +         ,CRENEF
C
C     Initialize proces definition file
C
      DEFNAM = 'proc_def.def'
      DATNAM = 'proc_def.dat'
      WRITE(LUNREP,*) 'opening NEFIS DEF file:',DEFNAM
      WRITE(LUNREP,*) 'opening NEFIS DAT file:',DEFNAM
C
C     delete existing NEFIS files
C
      CALL DHDELF ( DEFNAM, IERROR )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*)'ERROR deleting existing NEFIS DEF file:',DEFNAM
         WRITE(LUNREP,*)'ERROR number:',IERROR
         GOTO 900
      ENDIF
      CALL DHDELF ( DATNAM, IERROR )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*)'ERROR deleting existing NEFIS DAT file:',DATNAM
         WRITE(LUNREP,*)'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Open NEFIS file
C
      ACCESS = 'U'
      CODING = 'N'
      IERROR = CRENEF(DEFFDS, DATNAM, DEFNAM, CODING, ACCESS)
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR opening NEFIS file:',TRIM(DATNAM)
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Table P1 (SUBSTANCE GROUPS)
C
      CALL WR_TABP1 ( DEFFDS      ,
     +                NSGRP       , SGRPID      ,
     +                SGRPNM      , LUNREP      ,
     +                IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing table P1'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Table P2 (ITEMS)
C
      CALL WR_TABP2 ( DEFFDS      ,
     +                NITEM       , ITEMID      ,
     +                ITEMNM      , ITEMUN      ,
     +                ITEMDE      , ITEMAG      ,
     +                ITEMDA      , ITEMGR      ,
     +                ITEMSE      , ITEMWK      ,
cjvb +                ITEMSX      , ITEMWK      ,
     +                LUNREP      , IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing table P2'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Table P3 (PROCESS MODULES)
C
      CALL WR_TABP3 ( DEFFDS      ,
     +                NFORT       , FORTID      ,
     +                LUNREP      , IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing table P3'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Table P4 (PROCESSES)
C
      CALL WR_TABP4 ( DEFFDS      ,
     +                NPROC       , PROCID      ,
     +                PROCNM      , PROCFO      ,
     +                PROCCO      , LUNREP      ,
     +                IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing table P4'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Table P5 (CONFIGURATIONS)
C
      CALL WR_TABP5 ( DEFFDS      ,
     +                NCONF       , CONFID      ,
     +                CONFNM      , LUNREP      ,
     +                IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing table P5'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Table R1 (CONFIGURATIONS-PROCESSES)
C
      ITEL = 1
      DO IP = 1 , NPROC
         DO IC = 1 , NCONF
            IF ( CONPRO(IC,IP) ) THEN
               ICNPRO(ITEL) = 1
            ELSE
               ICNPRO(ITEL) = 0
            ENDIF
            ITEL = ITEL + 1
         ENDDO
      ENDDO
      CALL WR_TABR1 ( DEFFDS      ,
     +                NCONF       , NPROC       ,
     +                ICNPRO      , LUNREP      ,
     +                IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing table R1'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Table R2 (CONFIGURATIONS-SUBSTANCES)
C
      CALL WR_TABR2 ( DEFFDS      ,
     +                NCNSB       , R2_CID      ,
     +                R2_SID      , LUNREP      ,
     +                IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing table R2'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Table R3 (INPUT ITEMS)
C
      CALL WR_TABR3 ( DEFFDS      ,
     +                NINPU       , INPUPR      ,
     +                INPUIT      , INPUNM      ,
     +                INPUDE      , INPUDO      ,
     +                INPUSX      , LUNREP      ,
     +                IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing table R3'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Table R4 (OUTPUT ITEMS)
C
      CALL WR_TABR4 ( DEFFDS      ,
     +                NOUTP       , OUTPPR      ,
     +                OUTPIT      , OUTPNM      ,
     +                OUTPDO      , OUTPSX      ,
     +                LUNREP      , IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing table R4'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Table R5 (OUTPUT FLUXES)
C
      CALL WR_TABR5 ( DEFFDS      ,
     +                NOUTF       , OUTFPR      ,
     +                OUTFFL      , OUTFNM      ,
     +                OUTFDO      , LUNREP      ,
     +                IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing table R5'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Table R6 (FLUX-SUBSTANCE)
C
      CALL WR_TABR6 ( DEFFDS      ,
     +                NSTOC       , STOCFL      ,
     +                STOCSU      , STOCSC      ,
     +                LUNREP      , IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing table R6'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Table R7 (VELOCITY-SUBSTANCE)
C
      CALL WR_TABR7 ( DEFFDS      ,
     +                NVELO       , VELOIT      ,
     +                VELOSU      , VELOSC      ,
     +                LUNREP      , IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing table R7'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Table R8 (DISPERSION-SUBSTANCE)
C
      CALL WR_TABR8 ( DEFFDS      ,
     +                NDISP       , DISPIT      ,
     +                DISPSU      , DISPSC      ,
     +                LUNREP      , IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing table R8'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Table R9 (CONFIGURATIONS-MODELLED VARIABLES)
C
      CALL WR_TABR9 ( DEFFDS      ,
     +                NMODV       , MODVCI      ,
     +                MODVIT      , LUNREP      ,
     +                IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing table R9'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Table M1 (old_items)
C
      CALL WR_TABM1 ( DEFFDS      ,
     +                n_old_items,
     +                old_items_old_name,
     +                old_items_new_name,
     +                old_items_old_default,
     +                old_items_configuration,
     +                old_items_serial,
     +                old_items_action_type,
     +                LUNREP      ,
     +                IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing table M1'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Indices group
C
      CALL WR_INDICES( DEFFDS      ,
     +                 R2_IIN      , NCNSB       ,
     +                 INPUII      , NINPU       ,
     +                 INPUPI      , OUTPII      ,
     +                 NOUTP       , OUTPPI      ,
     +                 LUNREP      , IERROR      )
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing INDICES'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Last FILE IDENTIFICATION GROUP
C
      FFORM  = 'DELWAQ PROCESS DEFINITION FILE'
      VFFORM = 2.00
      CONTEN = 'DELWAQ PROCESS DEFINITION FILE'
      CALL DATTIM(RUNDAT)
      SOURCE = 'Deltares'
      REMARK(1) = 'Remark 1'
      REMARK(2) = 'Remark 2'
      REMARK(3) = 'Remark 3'
      REMARK(4) = 'Remark 4'
      CALL WR_FILID ( DEFFDS, FFORM , VFFORM, CONTEN,
     +                VERSIO, SERIAL, RUNDAT, SOURCE, REMARK,
     +                LUNREP, IERROR)

      open(88, file='filid.pptex')
      write(88,'(a30,'' colsep '', a20, '' \\'')')
     *         'Creation date', rundat
      write(88,'(a30,'' colsep '', i, '' \\'')')
     *         'File serial number', serial
      write(88,'(a30,'' colsep '', f12.3, '' \\'')')
     *         'Version processes library', versio
      close(88)

      open(88, file='conf_name.pptex')
      do ic = 1, nconf
          write(88,'(a10,'' colsep '', a50, '' \\'')')
     *              confid(ic), confnm(ic)
      enddo
      close(88)

      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR writing file identification group'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
C     Close files
C
      IERROR = CLSNEF(DEFFDS)
      IF ( IERROR .NE. 0 ) THEN
         WRITE(LUNREP,*) 'ERROR closing nefis file'
         WRITE(LUNREP,*) 'ERROR number:',IERROR
         GOTO 900
      ENDIF
C
      WRITE(LUNREP,*) 'closing NEFIS file'
      WRITE(LUNREP,*) 'NEFIS file written successfully'
C
  900 CONTINUE
      RETURN
C
      END