chemshell_qchem / blob
1 subroutine lwrcase(s,n)
2 character*1 s(n)
3 character*26 sl, sc
4 data sl/'abcdefghijklmnopqrstuvwxyz'/
5 data sc/'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/
6 do 10 i = 1,n
7 j=index(sc,s(i))
8 if(j.ne.0)s(i)=sl(j:j)
9 10 continue
10 return
11 end
