Question

fortran 如何移除变量前面空格

write(*,*) 'input: filename'
read(*,*) inputfile
write(inputxxx,*) trim(inputfile),".xxx"
write(inputbox,*) trim(inputfile),".num"

OPEN(21,FILE=inputxxx)
DO I=1,N
READ(21,*) at,X(I),Y(I),Z(I)
ENDDO

运行后结果出现错误
input: filename
aaaa
At line 24 of file /home/Administrator/pa/pa.f90 (unit = 21, file = ' aaaa.xxx')
Fortran runtime error: End of file

主要是传递给inputxxx的变量前面多了一个空格，请教如何处理？

Answer 1

三个方法：
第一，用格式输出，而不用 *，这样就不会有空格
write(inputxxx,'(a,a)') trim(inputfile),".xxx"

第二，有空格没关系，用 adjustl 直接移除
write(inputxxx,*) trim(inputfile),".xxx"
inputxxx = adjustl(inputxxx)

第三，不用 write，而用 // 直接挂靠 .xxx
read(*,*) inputfile
inputxxx = trim(inputfile)//".xxx"