10 FUNCTION last_c_leng (len_str, string) RESULT (leng)
14 INTEGER,
INTENT(IN) :: len_str
15 CHARACTER (LEN=len_str),
INTENT(IN) :: string
23 IF ( string(i:i) .EQ.
' ' )
THEN 32 FUNCTION eval_blank(len_str, string) RESULT (leng)
36 INTEGER,
INTENT(IN) :: len_str
37 CHARACTER (LEN=len_str),
INTENT(IN) :: string
45 IF ( string(i:i) .NE.
' ' )
THEN 58 CHARACTER (LEN=*),
INTENT(IN) :: string
66 IF ( string(i:i) .NE.
' ' )
THEN 79 CHARACTER (LEN=*),
INTENT(IN) :: string
86 DO i = len(string), 1, -1
87 IF ( string(i:i) .NE.
' ' )
THEN 98 INTEGER,
PARAMETER :: long_max=128
99 INTEGER,
INTENT(IN) :: unit
100 CHARACTER(LEN=*),
INTENT(IN) :: string
101 CHARACTER(len=long_max) :: control
102 INTEGER :: d_end, d_start
106 READ(unit,
'(64A)',err=11,end=22) control
109 IF (control(d_start:d_end)==string)
RETURN 112 11
CALL error_petsc(
' Error reading data file at '//string)
113 22
CALL error_petsc(
' Data string '//string//
' not found ')
119 INTEGER,
PARAMETER :: long_max=128
120 INTEGER,
INTENT(IN) :: unit
121 CHARACTER(LEN=*),
INTENT(IN) :: string
122 CHARACTER(len=long_max) :: control
123 INTEGER :: d_end, d_start
129 READ(unit,
'(64A)',err=11,end=22) control
132 IF (control(d_start:d_end)==string)
RETURN 135 11
CALL error_petsc(
' Error reading data file at '//string)
integer function, public last_of_string(string)
subroutine find_string(unit, string, okay)
subroutine error_petsc(string)
integer function eval_blank(len_str, string)
subroutine read_until(unit, string, error)
integer function, public start_of_string(string)
integer function, public last_c_leng(len_str, string)