You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
847 B
29 lines
847 B
2 years ago
|
C Copyright(C) 1999-2020 National Technology & Engineering Solutions
|
||
|
|
C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
|
||
|
|
C NTESS, the U.S. Government retains certain rights in this software.
|
||
|
|
C
|
||
|
|
C See packages/seacas/LICENSE for details
|
||
|
|
|
||
|
|
C=======================================================================
|
||
|
|
INTEGER FUNCTION INDEXR (STRING, CHAR)
|
||
|
|
C=======================================================================
|
||
|
|
C --*** INDEXR *** (STRLIB) Find last occurrence of CHAR in STRING
|
||
|
|
C --
|
||
|
|
C --INDEXR returns the last position of CHAR in STRING
|
||
|
|
C --if not found, returns 0
|
||
|
|
C --
|
||
|
|
|
||
|
|
CHARACTER*(*) STRING
|
||
|
|
CHARACTER*1 CHAR
|
||
|
|
|
||
|
|
DO i=len(string),1,-1
|
||
|
|
if (string(i:i) .eq. char) then
|
||
|
|
indexr = i
|
||
|
|
return
|
||
|
|
end if
|
||
|
|
end do
|
||
|
|
|
||
|
|
indexr = 0
|
||
|
|
return
|
||
|
|
end
|