IOIPSL/Stringop/nocomma.f

module nocomma_m

implicit none

contains

!=
   SUBROUTINE nocomma (str)
!---------------------------------------------------------------------
!-
!---------------------------------------------------------------------
   IMPLICIT NONE
!-
   CHARACTER(LEN=*) :: str
!-
   INTEGER :: i
!---------------------------------------------------------------------
   DO i=1,LEN_TRIM(str)
     IF (str(i:i) == ',')   str(i:i) = ' '
   ENDDO
!------------------------
   END SUBROUTINE nocomma

 end module nocomma_m
1	guez	32	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