PROGRAM MAIN
IMPLICIT NONE
CHARACTER(LEN=80) :: STATIC_BEG_TEMP
CHARACTER(LEN=80) :: STATIC_BEG
STATIC_BEG = 'MASS INERTIA COEFFICIENT MATRIX FOR BODY NO:'
STATIC_BEG_TEMP =TRIM(STATIC_BEG)
END PROGRAM MAIN
1033257950 发表于 2023-2-10 09:18
关于常规字符串文章http://string.w.fcode.cn/ 第七部分的程序,还有些疑问要向您请教:第13行 read( c , * ...
1033257950 发表于 2023-2-10 09:18
关于常规字符串文章http://string.w.fcode.cn/ 第七部分的程序,还有些疑问要向您请教:第13行 read( c , * ...
布衣龙共 发表于 2023-2-10 12:37
是的,被忽略了。read 认为空格是分隔符。后面是第二个变量的内容,但read后面只有ID这一个变量,多余的 ...
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |