352
Appendix B
C
C
C
WRITE (4, 40)
IF (K .EQ. 1) THEN
WRITE (4, 42)
ELSE
WRITE (4, 44)
END 1F
WRITE (4, 48)
48
FORMAT (4X, 'NUMBER', 6X, 'NODE', 8X, 'CONCEN.OO')
DO 1=1, NCB
WRITE (4, 10) I
END DO
END DO
END IF
WRITE (4, 20)
C Generating the format for input data file 'DATAP'
C
C
C
C
WRITE (5, 50)
50 FORMAT (/, ' **** GIVEN VALUES OF PARAMETERS **** , )
WRITE (5, 52)
52 FORMAT (lX, 'ZONE', 6X, 'ZTK.', 6X, 'ZSE.', 6X, 'ZPR.',
6X, 'ZAL.', 6X, 'ZAT.', 6X, 'ZAD.')
DO 1=1, NZON
WRITE ( 5, 54) I
54 FORMAT (15)
END DO
WRITE (5, 56)
56 FORMAT (/, ' RADIOACTIVE AND MOLECULAR DIFFUSION COEFFICIENTS ')
WRITE (5, 58)
58 FORMAT (6X, 'RDC.OOOOO', 6X, 'DFU.OOOOO',/)
WRITE (5, 20)
C Generating the format for input data file 'DATAW'
C
C
C
WRITE (7, 60)
60 FORMAT (/, ' TIME STEPS OF EXTRACTION AND INJECTION ')
WRITE (7, 62)
62 FORMAT (6X, 'STEP', 8X, 'TIME.OO')
DO K=l,NTW
WRITE (7, 10) K
END DO
WRITE (7, 66)
66 FORMAT (/, ' LOCATIONS OF PUMPING AND RECHARGE WELLS')
WRITE (7, 68)
68 FORMAT(4X,' NUMBER' ,5X, 'IN ELEMENT', 8X, 'X COORD. 0' ,11X, 'Y COORD.O')
DO J=l,NW
WRITE (7, 10) J
END DO
WRITE (7, 70)
70 FORMAT (/,' PUMPING AND RECHARGE RATES, CONC. OF RECHARGE WATER')
DO J=l, NW
WRITE (7, 72) J
72 FORMAT (/, ' WELL NUMBER IS " 110)
WRITE (7, 74)
74 FORMAT (6X, 'STEP', llX, 'RATE.OO', llX, 'CONC.OO')