[fortran] 半角数字を整数実数に変換する(その逆も)
以下の部品を使うと、文字の半角数字を、整数や実数に変換できます。
とっても便利!^^
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! read(moji,'(f10.5)') suji !! moji -> suji (文字を数字に変換)
! write(moji,'(i2.2)') suji !! suji -> moji (数字を文字に変換)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
integer :: suji
character(10) :: moji
moji='1234'
read(moji, '(i10)') suji
write(*,'(i10)') ' suji: ',suji
とっても便利!^^
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! read(moji,'(f10.5)') suji !! moji -> suji (文字を数字に変換)
! write(moji,'(i2.2)') suji !! suji -> moji (数字を文字に変換)
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
integer :: suji
character(10) :: moji
moji='1234'
read(moji, '(i10)') suji
write(*,'(i10)') ' suji: ',suji