● 実数の場合
例えばマイナス記号を含めて整数部が４文字以内，小数部が３桁以内の実数なら
      WRITE(moji,100) jissuu
  100 FORMAT(F8.3)
とコーディングして型変換します。

【プログラム例２】

      PROGRAM main
      REAL jissuu
      CHARACTER*8 moji
      CALL real2char(jisuu,moji)
      STOP
      END

      SUBROUTINE real2char(jisuu,moji)
      REAL jissuu
      CHARACTER*8 moji
      WRITE(*,*) 'マイナス記号を含めて整数部が４文字以内で'
      WRITE(*,*) '小数部が３桁以内の実数をキー入力せよ'
      READ(*,*) jissuu
      WRITE(moji,100) jissuu
  100 FORMAT(F8.3)
      WRITE(*,*) 'あなたが入力した実数は',moji,'です'
      RETURN
      END