joining 2 strings

[vibhava]

hi,
I am trying to join two strings and facing a strange problem. My codes are:

Program Read_result
Implicit None
character*6::d,filename
character*19::file
Integer::c,e
c=1
write(d,'(I1)') c
filename = 'run'//d
file='\reach000034_33.csv'
open(18,file='C:\WAMView\bnz\WAMSA\'//filename//file)

I want to get a string:

file='C:\WAMView\bnz\WAMSA\run1\reach000034_33.csv'

so that later in my program i can use this string to open desired files. The program was compiled without error however, on running it is giving an error because on running it this is what it is reading:

file='C:\WAMView\bnz\WAMSA\run1 \reach000034_33.csv'

note the space before "\reach000034_33.csv" i think the error is because of that. please advise how to remove this space.

could anyone help me handling this problem. Any help would be appreciated.

thanks

vibhava

 

[xwb]

Use the trim function before concatenating

'C:\WAMView\bnz\WAMSA\'//trim(filename)//trim(file)

 

[vibhava]

thanks it worked