/[lmdze]/trunk/IOIPSL/strlowercase.f
ViewVC logotype

Annotation of /trunk/IOIPSL/strlowercase.f

Parent Directory Parent Directory | Revision Log Revision Log


Revision 32 - (hide annotations)
Tue Apr 6 17:52:58 2010 UTC (14 years, 2 months ago) by guez
Original Path: trunk/libf/IOIPSL/Stringop/strlowercase.f90
File size: 618 byte(s)
Split "stringop.f90" into single-procedure files. Gathered files in directory
"IOIPSL/Stringop".

Split "flincom.f90" into "flincom.f90" and "flinget.f90". Removed
unused procedures from module "flincom". Removed unused argument
"filename" of procedure "flinopen_nozoom".

Removed unused files.

Split "grid_change.f90" into "grid_change.f90" and
"gr_phy_write_3d.f90".

Removed unused procedures from modules "calendar", "ioipslmpp",
"grid_atob", "gath_cpl" and "getincom". Removed unused procedures in
files "ppm3d.f" and "thermcell.f".

Split "mathelp.f90" into "mathelp.f90" and "mathop.f90".

Removed unused variable "dpres" of module "comvert".

Use argument "itau" instead of local variables "iadvtr" and "first" to
control algorithm in procedure "fluxstokenc".

Removed unused arguments of procedure "integrd".

Removed useless computations at the end of procedure "leapfrog".

Merged common block "matrfil" into module "parafilt".

1 guez 32 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

  ViewVC Help
Powered by ViewVC 1.1.21