PROGRAM MAIN
COMPLEX*16 T
DOUPLE PRECISION A,B
OPEN(10,FILE='INPUT.TXT',STATUS='OLD')
READ(10,*)A,B
T=CMPLX(A,B)
WRITE(*,*)T,A,B
END PROGRAM
li913 发表于 2022-9-9 10:58
T=CMPLX(A,B,8)另外,不建议用 complex*16 ,改用 complex(8)
QQ截图20220909110452.png (133.03 KB, 下载次数: 226)
li913 发表于 2022-9-9 11:12
ivf中,complex*16等同complex(8),后者是标准。
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |