150 integer(I4B),
intent(in) :: iu, iout
151 integer(I4B),
intent(in) :: jj, ii
152 integer(I4B),
dimension(jj, ii),
intent(inout) :: iarr
153 character(len=*),
intent(in) :: aname
154 integer(I4B),
intent(in) :: ndim
155 integer(I4B),
intent(in) :: k
158 integer(I4B) :: i, iclose, iconst, iprn, j, locat, ncpl, ndig
160 logical :: prowcolnum
161 character(len=100) :: prfmt
162 integer(I4B) :: istat
163 character(len=30) :: arrname
164 character(len=MAXCHARLEN) :: ermsgr
166 2
format(/, 1x, a,
' = ', i0,
' FOR LAYER ', i0)
167 3
format(/, 1x, a,
' = ', i0)
170 call read_control_int(iu, iout, aname, locat, iconst, iclose, iprn)
182 write (iout, 2) trim(aname), iconst, k
184 write (iout, 3) trim(aname), iconst
187 elseif (locat > 0)
then
190 read (locat, *, iostat=istat, iomsg=ermsgr) (iarr(j, i), j=1, jj)
192 arrname = adjustl(aname)
193 errmsg =
"Error reading data for array '"//trim(arrname)// &
194 "'. "//trim(adjustl(ermsgr))
195 call store_error(errmsg)
196 call store_error_unit(locat)
199 iarr(j, i) = iarr(j, i) * iconst
202 if (iclose == 1)
then
208 call read_binary_header(locat, iout, aname, nval)
209 isok = check_binary_size(nval, 0,
size(iarr), aname, locat)
212 read (locat, iostat=istat, iomsg=ermsgr) (iarr(j, i), j=1, jj)
214 arrname = adjustl(aname)
215 errmsg =
"Error reading data for array '"//trim(arrname)// &
216 "'. "//trim(adjustl(ermsgr))
217 call store_error(errmsg)
218 call store_error_unit(locat)
221 iarr(j, i) = iarr(j, i) * iconst
225 if (iclose == 1)
then
231 if (iprn >= 0 .and. locat /= 0)
then
232 prowcolnum = (ndim == 3)
233 call build_format_int(iprn, prfmt, prowcolnum, ncpl, ndig)
234 call print_array_int(iarr, aname, iout, jj, ii, k, prfmt, ncpl, &