210 type(ObserveType),
intent(inout) :: obsrv
211 class(DisBaseType),
intent(in) :: dis
212 integer(I4B),
intent(in) :: inunitobs
213 integer(I4B),
intent(in) :: iout
215 integer(I4B) :: nn1, nn2
216 integer(I4B) :: icol, istart, istop, jaidx
217 character(len=LINELENGTH) :: ermsg, string
219 70
format(
'Error: No connection exists between cells identified in text: ', a)
222 string = obsrv%IDstring
227 nn1 = dis%noder_from_string(icol, istart, istop, inunitobs, &
228 iout, string, .false.)
231 obsrv%NodeNumber = nn1
233 ermsg =
'Error reading data from ID string: '//string(istart:istop)
234 call store_error(ermsg)
239 nn2 = dis%noder_from_string(icol, istart, istop, inunitobs, &
240 iout, string, .false.)
242 obsrv%NodeNumber2 = nn2
244 ermsg =
'Error reading data from ID string: '//string(istart:istop)
245 call store_error(ermsg)
249 jaidx = dis%con%getjaindex(nn1, nn2)
251 write (ermsg, 70) trim(string)
252 call store_error(ermsg)
254 obsrv%JaIndex = jaidx
256 if (count_errors() > 0)
then
257 call store_error_unit(inunitobs)