/[lmdze]/trunk/libf/IOIPSL/Stringop/nocomma.f90
ViewVC logotype

Contents of /trunk/libf/IOIPSL/Stringop/nocomma.f90

Parent Directory Parent Directory | Revision Log Revision Log


Revision 32 - (show annotations)
Tue Apr 6 17:52:58 2010 UTC (14 years, 2 months ago) by guez
File size: 507 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 module nocomma_m
2
3 implicit none
4
5 contains
6
7 !=
8 SUBROUTINE nocomma (str)
9 !---------------------------------------------------------------------
10 !-
11 !---------------------------------------------------------------------
12 IMPLICIT NONE
13 !-
14 CHARACTER(LEN=*) :: str
15 !-
16 INTEGER :: i
17 !---------------------------------------------------------------------
18 DO i=1,LEN_TRIM(str)
19 IF (str(i:i) == ',') str(i:i) = ' '
20 ENDDO
21 !------------------------
22 END SUBROUTINE nocomma
23
24 end module nocomma_m

  ViewVC Help
Powered by ViewVC 1.1.21