FC2ブログ

[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

コメントの投稿

非公開コメント

No title

これ使えますね。
ナイス!

No title

応用すればinteger(8)、real(8)、real(16)も使えます
プロフィール

jcsas

Author:jcsas
みんなでがんばります!

最新記事
最新コメント
月別アーカイブ
カテゴリ
アクセスランキング
[ジャンルランキング]
コンピュータ
447位 / 13835人中
アクセスランキングを見る>>

[サブジャンルランキング]
プログラミング
94位 / 2573人中
アクセスランキングを見る>>
来場者数
検索フォーム
リンク
QRコード
QR