Question

求问fortran里面 WRITE(*,'(A,$)')这句话是什么意思？

PROGRAM CALL_FACTORlAL !调用FACTORIAL函数的主程序
INTERFACE
INTEGER :: N,F_RES
RECURSIVE FUNCTION FACTORIAL(N) RESULT(F_RES)
END FUNCTION FACTORIAL
END INTERFACE
INTEGER ::N
WRITE(*,'(A,$)') 'Input N='; READ *,N
PRINT *,FACTORIAL(N)
END PROGRAM

RECURSIVE FUNCTION FACTORIAL(N) RESULT(F_RES)
INTEGER :: N,F_RES
IF(N.EQ.1) THEN
F_RES=1
ELSE
F_RES=N*FACTORIAL(N-1)
END IF
END FUNCTION FACTORIAL

Answer 1

$ 是一种不标准的写法。表示不换行。

如果不这样写，运行后是这样：
Input N=
3
6
这样写了以颂昌森后迅桥，运行后是这样：
Input N=3
6

这不标准，标准的写野亩法是：
WRITE(*,'(A)', advance='no') 'Input N='
READ *,N

Answer 2

相当于如下两句：
write(*,100)'Input N='
100 format(A,$)
其中A是字符型数据输出描述符，$表示肆困樱输裂丛出后不换行尺升，相当于format(A\)