实型转换成字符型显示

Felix804665

[Fortran] 纯文本查看 复制代码

program main
implicit none

    real*8 :: a
    character(len=100) :: b !一定要给字符型变量指定长度

    write(*,*) "A="
    read(*,*) a

    write(*,*) "After Transformation"
    write(*,*) "A="

    write(*,'(A)') a  !非标准写法，应该尽量避免
    write(*,*) a      !检验a值

    write(b,'(A)') a  !本句为将a值转换成字符型后传给b储存，但并不显示
    write(b, *) a     !本句为将a的真实值传给b储存

    write(*,*) "B="
    write(*,*) b      !检验b值

pause
end

!****************************************************************!********************************************************************
! a和b的类型自始至终都没有发生过改变。a的值自始至终没有发生过改变，
! b的值发生变化，最后和a值相同。
!****************************************************************!********************************************************************

Felix804665

jason388 发表于 2014-2-20 14:19
第4行，第22和第23行都应该遵循2003标准，而不应该再采用F77的习惯。

[mw_shl_code=fortran,false]!real* ...

好的，多谢啦

Felix804665

fcode 发表于 2014-2-19 19:27
第16行也是不标准的，删掉这一行

好哒！:lol