Lines Matching refs:IOUT
1 SUBROUTINE RIV5AL(ISUM,LENX,LCRIVR,MXRIVR,NRIVER,IN,IOUT,IRIVCB, argument
17 WRITE(IOUT,1)IN
30 CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,MXRIVR,R,IOUT,IN)
31 CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,IRIVCB,R,IOUT,IN)
33 WRITE(IOUT,3) MXRIVR
35 IF(IRIVCB.LT.0) WRITE(IOUT,7)
37 IF(IRIVCB.GT.0) WRITE(IOUT,8) IRIVCB
43 10 CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,IN)
47 WRITE(IOUT,11)
52 CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,IN)
56 WRITE(IOUT,12) RIVAUX(NAUX)
69 WRITE (IOUT,14)ISP
72 WRITE(IOUT,15)ISUM1,LENX
74 IF(ISUM1.GT.LENX) WRITE(IOUT,16)
80 SUBROUTINE RIV5RP(RIVR,NRIVER,MXRIVR,IN,IOUT,NRIVVL,IRIVAL,IFREFM) argument
106 WRITE(IOUT,7)
115 WRITE(IOUT,99)NRIVER,MXRIVR
122 100 WRITE(IOUT,101)NRIVER
132 WRITE(IOUT,103) (RIVAUX(JJ),JJ=1,NAUX)
133 WRITE(IOUT,104) ('------------------',JJ=1,NAUX)
135 WRITE(IOUT,103)
136 WRITE(IOUT,104)
149 CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,K,R,IOUT,IN)
150 CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,I,R,IOUT,IN)
151 CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,J,R,IOUT,IN)
152 CALL URWORD(LINE,LLOC,ISTART,ISTOP,3,N,RIVR(4,II),IOUT,IN)
153 CALL URWORD(LINE,LLOC,ISTART,ISTOP,3,N,RIVR(5,II),IOUT,IN)
154 CALL URWORD(LINE,LLOC,ISTART,ISTOP,3,N,RIVR(6,II),IOUT,IN)
159 CALL URWORD(LINE,LLOC,ISTART,ISTOP,3,N,RIVR(JJ+6,II),IOUT,IN)
161 WRITE (IOUT,115) K,I,J,RIVR(4,II),RIVR(5,II),RIVR(6,II),II,
164 WRITE (IOUT,115) K,I,J,RIVR(4,II),RIVR(5,II),RIVR(6,II),II
229 2 ICBCFL,BUFF,IOUT,PERTIM,TOTIM,NRIVVL,IRIVAL)
257 1 NRIVER,IOUT,DELT,PERTIM,TOTIM,IBOUND)
305 IF(IBDLBL.EQ.0) WRITE(IOUT,61) TEXT,KPER,KSTP
307 WRITE(IOUT,62) L,IL,IR,IC,RATE
336 1 NLAY,IOUT)