You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
630 B
Fortran
20 lines
630 B
Fortran
subroutine lowerc(string,pos,len)
|
|
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
|
|
c Convert uppercase letters to lowercase letters in string with
|
|
c starting postion pos and length len.
|
|
cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
|
|
integer pos, len
|
|
character*(*) string
|
|
|
|
character*26 lcase, ucase
|
|
save lcase,ucase
|
|
data lcase/'abcdefghijklmnopqrstuvwxyz'/
|
|
data ucase/'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
|
|
|
|
do i=pos,len
|
|
k = index(ucase,string(i:i))
|
|
if (k.ne.0) string(i:i) = lcase(k:k)
|
|
enddo
|
|
return
|
|
end
|