DEF.FOR

C   ./ i 0
$STORAGE:2
      SUBROUTINE DEF
C
C     SUBROUTINE DEFAULTS.  ASSIGN DEFAULT VALUES FOR UNDEFINED PARAMS
C
      DIMENSION IDLIST(14), DVALUE(14)
      CHARACTER*4 NAME
      COMMON ICOM1(176), NAME(7),ISTUDY,IDATE(3),IFLAG(75),NVAR,NTABLE,
     A   PARAM(75),  ICOM2(96)
C
C     DATA IDLIST /21,22,27,40,41,42,43,61,66,  0/
C     DATA DVALUE /37.0,0.0,0.0,25.,1.,170.,60.,0.002,0.0005,   0./
C     DATA NDEF /9/

      DATA IDLIST /21,22,27,40,41,42,43,61,66,18,6,33,72,  0/
      DATA DVALUE /37.0,0.0,0.0,25.,1.,170.,60.,0.002,0.0005,
     A             7.0,20.93,15.0,0.0,    0./
      DATA NDEF /13/

C
      DO 10  K = 1,NDEF
      K2 = IDLIST (K)
      IF (IFLAG(K2) .NE. 0)  GO TO 10
      IFLAG (K2) = 2
      PARAM (K2) = DVALUE (K)
   10 CONTINUE
      RETURN
      END