trunk/IOIPSL/strlowercase.f

module strlowercase_m

implicit none

contains

!=
   SUBROUTINE strlowercase (str)
!---------------------------------------------------------------------
!- Converts a string into lowercase
!---------------------------------------------------------------------
   IMPLICIT NONE
!-
   CHARACTER(LEN=*) :: str
!-
   INTEGER :: i,ic
!---------------------------------------------------------------------
   DO i=1,LEN_TRIM(str)
     ic = IACHAR(str(i:i))
     IF ( (ic >= 65) .AND. (ic <= 90) )   str(i:i) = ACHAR(ic+32)
   ENDDO
!-----------------------------
   END SUBROUTINE strlowercase

 end module strlowercase_m
1	module strlowercase_m
2
3	implicit none
4
5	contains
6
7	!=
8	SUBROUTINE strlowercase (str)
9	!---------------------------------------------------------------------
10	!- Converts a string into lowercase
11	!---------------------------------------------------------------------
12	IMPLICIT NONE
13	!-
14	CHARACTER(LEN=*) :: str
15	!-
16	INTEGER :: i,ic
17	!---------------------------------------------------------------------
18	DO i=1,LEN_TRIM(str)
19	ic = IACHAR(str(i:i))
20	IF ( (ic >= 65) .AND. (ic <= 90) ) str(i:i) = ACHAR(ic+32)
21	ENDDO
22	!-----------------------------
23	END SUBROUTINE strlowercase
24
25	end module strlowercase_m