SUI700UT1'IE INrUT      74/175  OPT=0                             FIN 5.0+508          81/12/07. 12.15.58         PAGE     d
1 12                 IF(CPLOCK CrU. "MATF-) GOTO    0 0
73                   IF  PL OCK .r Q  'LECA K  6000 250
1 74                 IF DELOCK .1>2.  TYPE) GOT0 2 00
1 /5                 IF D7ILOC( .102.  THI C") GCT  400
1 17           C     UNKFON rLPCK NAM4E   "   0010
1 7B                 ERRCOI)   10ID
1 19                         GOO 910                                                                                                                 9
IR0           C                                                                                                                                  ,$
I fs3          C
4C              RCAL) INITIAL 'lEA.) VALUES
199           C
I0                  wRI7[(6,2034)
A07            2n134 FORMIAT(//!)X,'--- INITIAL HEAD VALUES --1
wl                     C
Ill             If(t'TYPE .N(. 1) 6.010 41
19 2                 REAO(5*1036) LAYER
113         1036 FOR'A1(A5)
14.                 1F (LAYER .O    IPR)L:1                                                                                                  S
'5                  IF (LAYER CE 0  "L0IR) L=2
116                  IF(L .NE. 0) GOlD 47
19 7           C     UNKNOWN LAYER
1 " t                  ERRCOD    105
20              47  CONT NUE
201                (L .[(;. 0) L~mTYPf-I
292               IF(MTYPE *EG. 1) WAITE(6,?036) LAYER
2 c             2 036  F0R,-AT(/90-- X,    A".5  L A Yr R -
2 4        C
NV'           50 CONT INUE                                                                                                                       ,,
n77                  IF(J.LT.1) 6010O60
:,H                      REA3(5,i 1035,) (PTFMP(I),I=I .NX)
2fq1035              FOROT(liFI0.3)
21 1                      no bb lm1.NX
,'12                        ir(PTEMP(l).NC.01 IEAD(IJ)=PTEMP(I)
1 3               bS     CON TI NUE
215             2035      FORMAtI45X,ISFS.21/1
216           C                                                                                                                               S
211              J=J-j
2(18                   GO TO 50                                                                                                               *     ,
219               60 CONTINUE
2 20                 GO TO 3n
2 t2                     100 CONTINUE
22?        C
."           C     READ B0T1DM VALUES
el 111                  C
225              160 CONTINUE
226                  wRITF46.20b0)
21             2060 FORMAT(//5X,"--- BOTTOM ELEVATIONS --I
228            C
4040
zu" a.  _";?,Z7, I I  Z; t