183 type(ObserveType),
intent(inout) :: obsrv
184 class(DisBaseType),
intent(in) :: dis
185 integer(I4B),
intent(in) :: inunitobs
186 integer(I4B),
intent(in) :: iout
188 integer(I4B) :: nn1, nn2
189 integer(I4B) :: icol, istart, istop, jaidx
190 character(len=LINELENGTH) :: ermsg, string
192 70
format(
'Error: No connection exists between cells identified in text: ', a)
195 string = obsrv%IDstring
200 nn1 = dis%noder_from_string(icol, istart, istop, inunitobs, &
201 iout, string, .false.)
204 obsrv%NodeNumber = nn1
206 ermsg =
'Error reading data from ID string: '//string(istart:istop)
207 call store_error(ermsg)
212 nn2 = dis%noder_from_string(icol, istart, istop, inunitobs, &
213 iout, string, .false.)
215 obsrv%NodeNumber2 = nn2
217 ermsg =
'Error reading data from ID string: '//string(istart:istop)
218 call store_error(ermsg)
222 jaidx = dis%con%getjaindex(nn1, nn2)
224 write (ermsg, 70) trim(string)
225 call store_error(ermsg)
227 obsrv%JaIndex = jaidx
229 if (count_errors() > 0)
then
230 call store_error_unit(inunitobs)