e_143_01.f90

来自「fortran 教程」· F90 代码 · 共 12 行

real*8 a

a=11111.1  *1111.11  ; print *, a
a=11111.1d0*1111.11d0; print *, a

a=0.001+1246825.0-1246820.0; print *, a

a=1246825.0  -1246820.0  +0.001  ; print *, a
a=1246825.0d0-1246820.0d0+0.001d0; print *, a
a=1246825    -1246820    +0.001d0; print *, a
a=1246825.0  -1246820.0  +0.001d0; print *, a
end