Fortran中数字转字符及字符转数字方法

在Fortran中，若想要将整型或实型数据转换为字符，则应用内部文件write和read即可实现。

 

示例代码：
!=====================================
!        整型或实型转换生字符，借助Fortran内部文件完成，
!        即将一个字符串变量当作一个内部文件看待；反之依然
!=====================================
    program main

   implicit none
   character(len=20) :: aa="2007",bb,cc='2007.00',dd
   integer(kind=4) :: a=2007,b
    real(kind=8) :: c=2007.00,d

!...数字转换成字符串

 

   !...整型转字符

   write(bb,"(I4)") a     !...a -> bb

   write(*,*) bb,a

 

   !...实型转字符

    write(dd,"(f10.4)") c    !...c -> dd

   write(*,*) dd,c

 

!...字符转换数字

 

   !...字符转整型

   read(aa,'(I4)') b       !...aa -> b

   write(*,*) aa,b

 

   !...字符转实型

   read(cc,'(F10.4)') d     !...cc -> d        

   write(*,*) cc,d

 

   stop

   end program main

 

 

 

!program main
!!=====================================
!!        整型或实型转换生字符，借助Fortran内部文件完成，
!!        即将一个字符串变量当作一个内部文件看待；反之依然
!!=====================================
!    implicit none
!   character(len=20) :: Ctemp
!   integer(kind=4) :: k
!!   
!!...trim和adjustl是Fortran内部标准函数；adjustl作用是将字符串内容左对齐，
!!...空格置于右端；trim作用是将字符串末尾（即右端）空格删掉；符号“//”是字符串
!!...连接操作符，作用是将字符串连接起来
!!
!    do k=1,20,1
!       write(Ctemp,"(I2)") k
!       open(unit=3,file='myfile'//trim(adjustl(Ctemp))//'.dat',status='new')
!       close(3)
!    end do
!   
!    stop
!end program main