新浪博客

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

2016-02-02 21:12阅读:
在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

我的更多文章

下载客户端阅读体验更佳

APP专享