128 class(CircularGeometryType) :: this
129 character(len=LINELENGTH) :: errmsg
130 character(len=*),
intent(inout) :: line
132 integer(I4B) :: lloc, istart, istop, ival
137 call urword(line, lloc, istart, istop, 2, ival, rval, 0, 0)
141 call urword(line, lloc, istart, istop, 1, ival, rval, 0, 0)
142 select case (line(istart:istop))
144 call urword(line, lloc, istart, istop, 1, ival, rval, 0, 0)
145 this%name = line(istart:istop)
147 call urword(line, lloc, istart, istop, 3, ival, rval, 0, 0)
150 write (errmsg,
'(a,a)') &
151 'Unknown circular geometry attribute: ', line(istart:istop)
integer(i4b), parameter linelength
maximum length of a standard line
This module contains simulation methods.
subroutine, public store_error(msg, terminate)
Store an error message.
integer(i4b) function, public count_errors()
Return number of errors.