235 type(ObserveType),
intent(inout) :: obsrv
236 class(DisBaseType),
intent(in) :: dis
237 integer(I4B),
intent(in) :: inunitobs
238 integer(I4B),
intent(in) :: iout
240 integer(I4B) :: nn1, nn2
241 integer(I4B) :: icol, istart, istop, jaidx
242 character(len=LINELENGTH) :: ermsg, string
244 70
format(
'Error: No connection exists between cells identified in text: ', a)
247 string = obsrv%IDstring
252 nn1 = dis%noder_from_string(icol, istart, istop, inunitobs, &
253 iout, string, .false.)
256 obsrv%NodeNumber = nn1
258 ermsg =
'Error reading data from ID string: '//string(istart:istop)
259 call store_error(ermsg)
264 nn2 = dis%noder_from_string(icol, istart, istop, inunitobs, &
265 iout, string, .false.)
267 obsrv%NodeNumber2 = nn2
269 ermsg =
'Error reading data from ID string: '//string(istart:istop)
270 call store_error(ermsg)
274 jaidx = dis%con%getjaindex(nn1, nn2)
276 write (ermsg, 70) trim(string)
277 call store_error(ermsg)
279 obsrv%JaIndex = jaidx
281 if (count_errors() > 0)
then
282 call store_error_unit(inunitobs)