DO K=l,NTW
WRITE (7, 10) K
END DO
END DO
B.6. Source Programs
353
C
WRITE (7, 20)
C
C Generating the format for input data file 'DATAS'
C
C
C
C
WRITE (8, 80)
80 FORMAT (/, ' TIME STEPS FOR INPUTTING SINK/SOURCE RECORDS')
WRITE (8, 62)
DO K=l,NTS
WRITE (8" 10) K
END DO
WRITE (8, 82)
82 FORMAT (/, ' RATES AND CONC. OF SINK/SOURCE TERMS')
DO J=l, NS
WRITE (8, 84) J
84 FORMAT (/, ' THE NUMBER OF SINK/SOURCE ZONE', 110)
WRITE (8, 74)
DO K=l,NTS
WRITE (8, 10) K
END DO
END DO
WRITE (8, 20)
C Generating the format for input data file 'DATAO'
C
C
C
C
C
C
C
WRITE (9, 90)
90 FORMAT (/, ' LOCATIONS OF OBSERVATION WELLS ' )
WRITE (9, 92)
92 FORMAT (4X, 'NUMBER' ,5X, 'IN ELEMENT', 7X, 'X COORD.O' ,7X, 'Y COORD. 0' )
DO I=l,NOBW
WRITE (9, 10) I
END DO
WRITE (9, 94)
94 FORMAT (/, ' OBSERVATION TIMES' )
WRITE (9, 96)
96 FORMAT (4X, 'NUMBER', llX, 'TIME.OO')
DO K=1.NOBT
WRITE (9, 10) K
END DO
WRITE (9, 20)
C Generating the format for input data file 'DATAC'
C
WRITE (10, 100)
100 FORMAT (/, ' COMPUTATIONAL PARAMETERS FOR FLOW PROBLEM')
WRITE (10, 102)
102 FORMAT (2X, 'DTI.OOOO', 4X, 'DTF.OO', 4X, 'DTL.OO', 4X,
*
'ALF.OO', 2X, 'ESP.OOOO',/)
WRITE (10, 104)
104 FORMAT (/, ' COMPUTATIONAL PARAMETERS FOR TRANSPORT PROBLEM')