Statistiques
| Révision :

root / src / CleanString.f90 @ 8

Historique | Voir | Annoter | Télécharger (523 octet)

1

    
2
    SUBROUTINE CleanString(String,CleanStr)
3
! This subroutine cleans a string, that is: it removes some characters
4
! from it that are in CleanString input variable
5

    
6
      Use VarTypes
7

    
8
      IMPLICIT NONE
9

    
10
! Input Variables
11
      CHARACTER(*), INTENT(INOUT) :: String
12
      CHARACTER(*), INTENT(IN) :: CleanStr
13

    
14
      INTEGER(KINT) :: I
15
      
16

    
17
      I=Scan(String,CleanStr)
18
      DO WHILE (I/=0)
19
         String=String(1:I-1) // String (I+1:)
20
         I=Scan(String,CleanStr)
21
      END DO
22

    
23
    END SUBROUTINE CleanString