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	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