C
C
C
C
C
'TR.OO', 5X, 'BR.OO')
DO N=l, NP
WRITE ( 2, 10) N
END DO
WRITE (2, 16)
B.6. Source Programs
351
16 FORMAT (I,' NODE NUMEBERS OF EACH ELEMENT AND ZONATION PATTERNS')
WRITE (2, 18)
18 FORMAT (3X, 'ELEMENT', 9X, 'I', 9X, 'J', 9X, 'K',5X, 'NPZON',
5X, 'NSZON')
DO N=l, NE
WRITE (2, 10) N
END DO
WRITE ( 2, 20)
20 FORMAT (lX, 'I I')
C Generating the format for input data file 'DATAI'
C
C
C
C
WRITE (3, 30)
30 FORMAT (I, ' INITIAL CONDITIONS OF HEAD AND CONCENTRATION')
WRITE (3, 34)
34
FORMAT (6X, 'NODE', llX, 'HOO.O', 15X, 'COO.O')
DO I=l, NP
WRITE (3, 10) I
END DO
WRITE (3, 20)
C Generating the format for input data file 'DATAB'
C
C
C
WRITE (4, 36)
36 FORMAT (I, ' **** GIVEN HEAD BOUNDARY CONDITION **** , )
DO K=l, NTB
WRITE (4, 38) K
38
FORMAT (I, ' THE NUMBER OF TIME STEP IS:', I10)
WRITE (4, 40)
40
FORMAT (10X, 'MEASURE TIME.OO')
IF (K .EQ. 1) THEN
WRITE (4, 42)
42
FORMAT (21X, '0.00')
ELSE
WRITE (4, 44)
44
FORMAT (lX)
END IF
WRITE (4, 46)
46
FORMAT (4X, 'NUMBER', 6X, 'NODE', 10X, 'HEAD.OO')
DO I=l, NHB
WRITE (4, 10) I
END DO
END DO
IF (IHC .EQ. 2) THEN
WRITE (4, 47)
47 FORMAT (I, ' **** GIVEN CONCENTRATION BOUNDARY CONDITION **** ')
DO K=l, NTB
WRITE (4, 38) K