[讨论] 实型转换成字符型显示

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值相同。
!****************************************************************!********************************************************************

!real*8
real(kind=8)

!pause
read(*,*)

!end
end program main