Révision 8 src/CleanString.f90

CleanString.f90 (revision 8)
11 11
      CHARACTER(*), INTENT(INOUT) :: String
12 12
      CHARACTER(*), INTENT(IN) :: CleanStr
13 13

  
14
      INTEGER(KINT) :: I,J
14
      INTEGER(KINT) :: I
15 15
      
16 16

  
17 17
      I=Scan(String,CleanStr)

Formats disponibles : Unified diff