338
Appendix B
C
ENDIF
C
RETURN
END
C
C
C********************************************************************
C
C
C
Subroutine DATAO reads observation data
C********************************************************************
C
C
C
SUBROUTINE DATAO (OBWX,OBWY,LEOB,OBT,NOBW,NOBT)
IMPLICIT REAL*8 (A-H, O-Z)
DIMENSION OBWX(NOBW) ,OBWY(NOBW) ,LEOB(NOBW) ,OBT(NOBT)
C Reading locations of observation wells
C
C
C
CALL JUMP (9, 3)
DO 1=1, NOBW
READ (9, 10) LEOB(I), OBWX(I), OBWY(I)
10 FORMAT (10X, 115, 2F20.5)
END DO
C Reading observation times
C
C
C
C
C
CALL JUMP (9, 3)
DO
1=1, NOBT
READ (9, 20) OBT(I)
20 FORMAT (10X, F20.5)
END DO
RETURN
END
C********************************************************************
C
C
C
Subroutine DATAC reads computation control numbers
C********************************************************************
C
C
C
SUBROUTINE DATAC (DTI,DTF,DTL,ALF,EPS,PT,IHC)
IMPLICIT REAL*8 (A-H, O-Z)
DIMENSION
DTF(2),DTL(2) ,ALF(2),EPS(2)
C Reading computation control numbers for the flow problem
C
CALL JUMP (10, 3)
READ (10, 10) DTI, DTF(l), DTL(l), ALF(l), EPS(l)
10 FORMAT (5F10.5)
C
C Reading computation control numbers for the transport problem
C
IF (IHC .EQ. 2) THEN
CALL JUMP(10, 3)