Skip to content

CutSpaces

Jump to bottom
Dionisis Pettas edited this page Dec 4, 2017 · 1 revision 
  Program Main 
    Use fString 
    Implicit None 
    Type(Str)                           :: MyStr
    Integer, Dimension(:),Allocatable   :: Pos
    
    MyStr = '   MyFile1.dat,MyFile2.dat,MyFile3.dat,MyFile4.dat    '
    !<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
    ! CutSpaces is the equilivalent of the Trim() in the fString strings
    !<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>
    
    Print*, '|',MyStr%CutSpaces(),'|'
    !OutPut: |MyFile1.dat,MyFile2.dat,MyFile3.dat,MyFile4.dat|
  End Program Main

Clone this wiki locally