350
Appendix B
Auxiliary Program:
F:INPUT.FOR
C
C*****************************************************************
C
C
C
Auxiliary Program: Finput.for
C*****************************************"************************
C
C
C
DIMENSION CHA(70)
OPEN(l,FILE='DATAN')
OPEN(2,FILE='DATAG')
OPEN(3,FILE='DATAI')
OPEN(4,FILE='DATAB')
OPEN(5,FILE='DATAP')
OPEN(6,FILE='RESUL')
OPEN(7,FILE='DATAW')
OPEN(8,FILE='DATAS')
OPEN(9,FILE='DATAO')
OPEN(10,FILE='DATAC')
C Reading and writting control integers
C
C
C
C
C
C
C
C
C
C
C
READ (1, 2) CHA
READ (1, 2) CHA
READ (1, 2) CHA
2 FORMAT (70Al)
READ (1,4) NP, NE, NB, NZON, IHC, IST, IPR
4 FORMAT (7I10)
WRITE (6, 2) CHA
WRITE (6, 4) NP,NE,NB,NZON,IHC, IST,IPR
READ (1, 2) CHA
READ (1, 2) CHA
READ (1, 2) CHA
READ (1, 4) NW, NTW, NHB, NCB, NTB, NS, NTS
WRITE (6, 2) CHA
WRITE (6, 4) NW,NTW,NHB,NCB,NTB,NS,NTS
READ (1, 2) CHA
READ (1, 2) CHA
READ (1, 2) CHA
READ (1, 4) NOBW, NOBT, ISO
WRITE (6, 2) CHA
WRITE (6, 4) NOBW, NOBT, ISO
Generating the format for input data file "DATAG"
10
FORMAT (110)
WRITE (2, 12)
12 FORMAT (/,' NODE COORDINATES, ELEVATIONS OF TOP AND BED ROCKS')
WRITE (2, 14)
14 FORMAT (6X, 'NODE' ,5X, 'X COORD.OO' , 5X, 'Y COORD.OO' , 5X,