32 character(len=*) :: string1, string2
34 integer(kind=plint) :: limit
38 limit = len_trim(string2)
39 string2(limit+1:limit+1) = char(0)
49 character(len=*) :: string1, string2
51 integer(kind=plint) :: limit
56 limit = len_trim(string2)
57 string2(limit+1:limit+1) = char(0)
60 k = index( string2,
'\n' )
62 string2 = string2(1:k-1) // char(10) // string2(k+2:)
78 character(len=*) :: string1, string2
80 integer(kind=plint) :: limit
84 limit = index( string2, achar(0) )