Parent Directory | Revision Log
Changed all ".f90" suffixes to ".f".
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 |