Statistics
| Revision:

root / src / NoComment.f90 @ 10

History | View | Annotate | Download (397 Bytes)

1
      SUBROUTINE noComment(String)
2

    
3
! This subroutine suppress all comments from a string
4
! comments can start with ! or #
5

    
6
        IMPLICIT NONE
7

    
8
        integer, parameter :: KINT = kind(1)
9

    
10
        CHARACTER(*), INTENT(INOUT) :: String
11
        INTEGER(KINT) :: i
12

    
13
        I=Scan(String,"!#")
14
        IF (I/=0) THEN
15
           String=String(:I-1)
16
        END IF
17

    
18
      END SUBROUTINE NoComment
19