28 character(len
=*),
intent(IN) :: inString
29 integer,
intent(IN) :: ind
30 character(
len=MAX_STRING_LENGTH),
intent(OUT) :: outString
33 character(
len=MAX_STRING_LENGTH) :: parname
37 pos=len_trim(inString)
+1
40 parname
= ADJUSTL(parname)
41 outString
=inString(:pos
-1)
//parname
subroutine concatStringWithInt(inString, ind, outString)