C
C
C
C
C
CALL JUMP (7, 3)
DO 1=1, NW
READ (7, 10) LEW(I), WLX(I), WLY(I)
END DO
10 FORMAT (10X, 115, 2F20.5)
CALL JUMP (7, 2)
DO 1=1, NW
CALL JUMP (7, 3)
DO K=l, NTW
IF (IHC .EQ. 1) THEN
READ (7, 20) WRAT(I,K)
ELSE
READ (7, 30) WRAT(I,K), WCON(I,K)
END IF
20 FORMAT (10X, F20.5)
30 FORMAT (10X, 2F20.5)
END DO
END DO
ENDIF
RETURN
END
B.6. Source Pro grams
337
C********************************************************************
C
C
C
Subroutine DATAS reads precipitation and return water data
C********************************************************************
C
C
SUBROUTINE DATAS (SRAT,SCON,STEPS,NS,NTS,IHC)
IMPLICIT REAL*8 (A-H, O-Z)
DIMENSION SRAT(NS,NTS) ,SCON(NS,NTS) ,STEPS(NTS)
C Reading sink/source data
C
C
C
C
C
IF (NS .GT. 0) THEN
CALL JUMP (8, 3)
DO K=l, NTS
READ (8, 4) STEPS(K)
END DO
4 FORMAT (10X, F15.2
CALL JUMP (8, 2)
DO 1=1, NS
CALL JUMP(8, 3)
DO K=l, NTS
IF (IHC .EQ. 1) THEN
READ (8, 20) SRAT(I,K)
ELSE
READ (8, 30) SRAT(I,K), SCON(I,K)
END IF
20 FORMAT (10X, F20.5)
30 FORMAT (10X, 2F20.5)
END DO
END DO