2      1    NLAY,NODES,INBAS,IOUT,IUNIT,CUNIT,INUNIT,IXSEC,ICHFLG,IFREFM)
17       CALL SBAS5O(INUNIT,INBAS,IOUT,IUNIT,CUNIT)
20       WRITE(IOUT,1)
27       WRITE(IOUT,'(1X,/1X,A)') HEADNG(1)
28       WRITE(IOUT,'(1X,A)') HEADNG(2)
41     5 CALL URWORD(LINE2,LLOC,ISTART,ISTOP,1,N,R,IOUT,INBAS)
48          WRITE(IOUT,6)
59          CALL URWORD(LINE1,LLOC,ISTART,ISTOP,2,NLAY,R,IOUT,INBAS)
60          CALL URWORD(LINE1,LLOC,ISTART,ISTOP,2,NROW,R,IOUT,INBAS)
61          CALL URWORD(LINE1,LLOC,ISTART,ISTOP,2,NCOL,R,IOUT,INBAS)
62          CALL URWORD(LINE1,LLOC,ISTART,ISTOP,2,NPER,R,IOUT,INBAS)
63          CALL URWORD(LINE1,LLOC,ISTART,ISTOP,2,ITMUNI,R,IOUT,INBAS)
67       WRITE(IOUT,7) NLAY,NROW,NCOL
69       WRITE(IOUT,8) NPER
75          WRITE(IOUT,9)
78          WRITE(IOUT,11)
81          WRITE(IOUT,21)
84          WRITE(IOUT,31)
87          WRITE(IOUT,41)
90          WRITE(IOUT,51)
93       IF(IXSEC.NE.0) WRITE(IOUT,61)
95       IF(ICHFLG.NE.0) WRITE(IOUT,62)
109      2            ISTRT,NCOL,NROW,NLAY,IOUT,IAPART,IFREFM)
120       WRITE(IOUT,1)INBAS
131       IF(IAPART.NE.0) WRITE(IOUT,2)
134       IF(IAPART.EQ.0) WRITE(IOUT,3)
136       IF(ISTRT.NE.0) WRITE(IOUT,4)
138       IF(ISTRT.EQ.0) WRITE(IOUT,5)
182       WRITE(IOUT,6) ISP
185       WRITE(IOUT,7) ISUM1,LENX
187       IF(ISUM1.GT.LENX) WRITE(IOUT,8)
252      1      IHDDFL,INOC,IOUT,KPER,IPEROC,ITSOC,IBDOPT,IXSEC,IFREFM)
279      1            KSTP,INOC,IOUT,IBDOPT)
290       WRITE(IOUT,3) IHDDFL,IBUDFL,ICBCFL
300   100 WRITE(IOUT,101)
316       WRITE(IOUT,211) (IOFLG(1,M),M=1,4)
332          WRITE(IOUT,302) 'OUTPUT FLAGS FOR EACH LAYER:','LAYER'
337          WRITE(IOUT,303) (K,(IOFLG(K,M),M=1,4),K=1,NLAY)
345          WRITE(IOUT,302) 'OUTPUT FLAGS FOR CROSS SECTION:','     '
346          WRITE(IOUT,304) (IOFLG(1,M),M=1,4)
360      2  IHDDFL,IBUDFL,IHEDFM,IHEDUN,IDDNFM,IDDNUN,IOUT,CHEDFM,CDDNFM,
381       IF(ICNVG.EQ.0) WRITE(IOUT,1) KSTP,KPER
389       CALL SBAS5H(HNEW,BUFF,IOFLG,KSTP,KPER,NCOL,NROW,NLAY,IOUT,
391       CALL SBAS5D(HNEW,BUFF,IOFLG,KSTP,KPER,NCOL,NROW,NLAY,IOUT,IDDNFM,
397       CALL SBAS5V(MSUM,VBNM,VBVL,KSTP,KPER,IOUT)
403       CALL SBAS5T(KSTP,KPER,DELT,PERTIM,TOTIM,ITMUNI,IOUT)
404       WRITE(IOUT,101)
411      1    NROW,NLAY,VBVL,IOFLG,INOC,IHEDFM,IDDNFM,IHEDUN,IDDNUN,IOUT,
433       WRITE(IOUT,'(''1'',/1X,A)') HEADNG(1)
434       WRITE(IOUT,'(1X,A)') HEADNG(2)
440          CALL U2DINT(IBOUND(1,1,KK),ANAME(1),NROW,NCOL,KK,INBAS,IOUT)
443          CALL U2DINT(IBOUND(1,1,1),ANAME(1),NLAY,NCOL,-1,INBAS,IOUT)
453       WRITE(IOUT,3) TMP
461          CALL U2DREL(HOLD(1,1,KK),ANAME(2),NROW,NCOL,KK,INBAS,IOUT)
464          CALL U2DREL(HOLD(1,1,1),ANAME(2),NLAY,NCOL,-1,INBAS,IOUT)
491       CALL SBAS5I(NLAY,ISTRT,IOFLG,INOC,IOUT,IHEDFM,IDDNFM,IHEDUN,
497       SUBROUTINE BAS5ST(NSTP,DELT,TSMULT,PERTIM,KPER,INBAS,IOUT,IFREFM)  argument
516       WRITE (IOUT,1) KPER,PERLEN,NSTP,TSMULT
524          WRITE(IOUT,2)
530          WRITE(IOUT,3)
535          WRITE(IOUT,4)
551       WRITE (IOUT,9) DELT
561      1    NLAY,IOUT,IDDNFM,IDDNUN,STRT,ISTRT,IBOUND,IPFLG,
590          WRITE(IOUT,52)
613      1               NCOL,NROW,KK,-IDDNFM,IOUT)
615      1               NCOL,NROW,KK,IDDNFM,IOUT)
623      1                 NCOL,NLAY,-1,-IDDNFM,IOUT)
625      1                 NCOL,NLAY,-1,IDDNFM,IOUT)
638         IF(IFIRST.EQ.1) WRITE(IOUT,74) IDDNUN,KSTP,KPER
654           WRITE(IOUT,74) IDDNUN,KSTP,KPER
668       SUBROUTINE SBAS5H(HNEW,BUFF,IOFLG,KSTP,KPER,NCOL,NROW,NLAY,IOUT,  argument
709      1               NCOL,NROW,KK,-IHEDFM,IOUT)
711      1               NCOL,NROW,KK,IHEDFM,IOUT)
719      1                 NCOL,NLAY,-1,-IHEDFM,IOUT)
721      1                 NCOL,NLAY,-1,IHEDFM,IOUT)
734         IF(IFIRST.EQ.1) WRITE(IOUT,74) IHEDUN,KSTP,KPER
750           WRITE(IOUT,74) IHEDUN,KSTP,KPER
764       SUBROUTINE SBAS5I(NLAY,ISTRT,IOFLG,INOC,IOUT,IHEDFM,IDDNFM,IHEDUN,  argument
795          WRITE(IOUT, 41)
798          WRITE(IOUT, 42)
800          WRITE(IOUT, 43)
802          IF(ISTRT.NE.0) WRITE(IOUT, 44)
822       CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INOC)
830          WRITE(IOUT,102)
836             CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,IHEDFM,R,IOUT,INOC)
837             CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,IDDNFM,R,IOUT,INOC)
838             CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,IHEDUN,R,IOUT,INOC)
839             CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,IDDNUN,R,IOUT,INOC)
841          WRITE(IOUT,103) IHEDFM,IDDNFM
844          WRITE(IOUT,104) IHEDUN,IDDNUN
851          CALL SBAS5J(INOC,IOUT,IHEDFM,IDDNFM,IHEDUN,IDDNUN,
859       SUBROUTINE SBAS5J(INOC,IOUT,IHEDFM,IDDNFM,IHEDUN,IDDNUN,  argument
876       WRITE(IOUT,91)
887          CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,IPEROC,R,IOUT,INOC)
888          CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INOC)
890          CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,ITSOC,R,IOUT,INOC)
891          WRITE(IOUT,101) IHEDFM,IDDNFM
894          WRITE(IOUT,102) IHEDUN,IDDNUN
902          CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INOC)
904             CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INOC)
906             CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,IHEDFM,R,IOUT,INOC)
908             CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INOC)
910                CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,IHEDUN,R,IOUT,
913                CALL URWORD(LINE,LLOC,ISTART,ISTOP,0,N,R,IOUT,INOC)
915                WRITE(IOUT,103) CHEDFM
917                CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INOC)
920                   WRITE(IOUT,104)
933          CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INOC)
935             CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INOC)
937             CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,IDDNFM,R,IOUT,INOC)
939             CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INOC)
941                CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,IDDNUN,R,IOUT,
944                CALL URWORD(LINE,LLOC,ISTART,ISTOP,0,N,R,IOUT,INOC)
946                WRITE(IOUT,105) CDDNFM
948                CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INOC)
951                   WRITE(IOUT,106)
965          WRITE(IOUT,107)
978       CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INOC)
985  2000 WRITE(IOUT,2001) LINE
989       SUBROUTINE SBAS5T(KSTP,KPER,DELT,PERTIM,TOTIM,ITMUNI,IOUT)  argument
1000       WRITE(IOUT,199) KSTP,KPER
1017       WRITE(IOUT,301) DELT,PERTIM,TOTIM
1048       WRITE(IOUT,200)
1051       WRITE (IOUT,201) DELSEC,DELMN,DELHR,DELDY,DELYR
1053       WRITE(IOUT,202) PERSEC,PERMN,PERHR,PERDY,PERYR
1055       WRITE(IOUT,203) TOTSEC,TOTMN,TOTHR,TOTDY,TOTYR
1061       SUBROUTINE SBAS5V(MSUM,VBNM,VBVL,KSTP,KPER,IOUT)  argument
1101       WRITE(IOUT,260) KSTP,KPER
1102       WRITE(IOUT,265)
1118       WRITE(IOUT,275) VBNM(L),VAL1,VBNM(L),VAL2
1132       WRITE(IOUT,286) VAL1,VAL2
1135       WRITE(IOUT,287)
1149       WRITE(IOUT,275) VBNM(L),VAL1,VBNM(L),VAL2
1163       WRITE(IOUT,298) VAL1,VAL2
1199       WRITE(IOUT,299) VAL1,VAL2
1200       WRITE(IOUT,300) PDIFFV,PDIFFR
1222      1            KPER,KSTP,INOC,IOUT,IBDOPT)
1238          WRITE(IOUT,5) IPEROC,ITSOC,KPER,KSTP
1263          WRITE(IOUT,11) KPER,KSTP
1270       WRITE(IOUT,12) IPEROC,ITSOC
1282       CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INOC)
1284          CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,IPEROC,R,IOUT,INOC)
1285          CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INOC)
1287          CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,ITSOC,R,IOUT,INOC)
1293          CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INOC)
1295             WRITE(IOUT,53)
1299             CALL SBAS5L(1,LINE,LLOC,IOFLG,NLAY,IOUT,'PRINT HEAD',
1303             CALL SBAS5L(2,LINE,LLOC,IOFLG,NLAY,IOUT,
1313          CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INOC)
1315             WRITE(IOUT,57)
1319             CALL SBAS5L(3,LINE,LLOC,IOFLG,NLAY,IOUT,'SAVE HEAD',INOC)
1322             CALL SBAS5L(4,LINE,LLOC,IOFLG,NLAY,IOUT,'SAVE DRAWDOWN',
1345 2000  WRITE(IOUT,2001) LINE
1349       SUBROUTINE SBAS5L(IPOS,LINE,LLOC,IOFLG,NLAY,IOUT,LABEL,INOC)  argument
1386          WRITE(IOUT,111) LABEL
1391          WRITE(IOUT,112) LABEL,(LAYER(M),M=1,NSET)
1398       SUBROUTINE SBAS5O(INUNIT,INBAS,IOUT,IUNIT,CUNIT)  argument
1417       IOUT=0
1427         IF(ILIST.NE.0) WRITE(IOUT,'(A)') LINE
1433       CALL URWORD(LINE,LLOC,ITYP1,ITYP2,1,N,R,IOUT,INUNIT)
1434       CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,IU,R,IOUT,INUNIT)
1445          IOUT=IU
1467          WRITE(IOUT,21) LINE(ITYP1:ITYP2)
1476       CALL URWORD(LINE,LLOC,INAM1,INAM2,0,N,R,IOUT,INUNIT)
1477       CALL URWORD(LINE,LLOC,ISTART,ISTOP,1,N,R,IOUT,INUNIT)
1479          CALL URWORD(LINE,LLOC,ISTART,ISTOP,2,IRECL,R,IOUT,INUNIT)
1480          IF(ILIST.NE.0) WRITE(IOUT,35) LINE(INAM1:INAM2),
1487          IF(ILIST.NE.0) WRITE(IOUT,36) LINE(INAM1:INAM2),
1497       IF(ILIST.EQ.0) WRITE(IOUT,37) LINE(INAM1:INAM2),IU
1508          WRITE(IOUT,*) ' BAS PACKAGE FILE HAS NOT BEEN OPENED.'