39 character(len=*),
parameter ::
lcase=
'abcdefghijklmnopqrstuvwxyz' 40 character(len=*),
parameter ::
ucase=
'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 53 character(len=*),
intent(in) :: string
54 character(len=len(string)) :: qrm_str_tolower
58 k = index(
ucase, string(i:i))
71 character(len=*),
intent(in) :: string
72 character(len=len(string)) :: qrm_str_toupper
76 k = index(
lcase, string(i:i))
character(len=*), parameter lcase
character(len=*), parameter ucase
This module contains various string handling routines.