このページは、FORTRANライブラリ Chara.fに含まれるサブルーチン ITOAGN の理解支援ページです。 このページは、FORTRANプログラム理解支援システム「Okikaze」を使ってつくられています。

ITOAGN

表示のリセット ソースをブロック化して表示 ←おすすめ機能 コメントアウトを淡くする / 消す コメントアウトを強調する / だけを表示する ■ 検索する ■ 検索する ■ 検索する

機能: 整数型データを文字型アラビア数字列に変換 (例: 123 → '123')

説明ページ

0000 * chara_nowpub.f 2
0001 * Src code start
0002
0003       
0004       subroutine ITOAGN(i,a,ilg) ! 整数型データを文字型アラビア数字列に変換 (例: 123 → '123')
0005 c -----------------------------------
0006 c You can freely use, copy, modify and redistribute this subroutine.
0007 c This subroutine comes with absolutely no warranty.
0008 c
0009 c Copyright (C) 2006-2007 TAKAGI-1
0010 c
0011 c Author : TAKAGI-1
0012 c Date : 2006/ 2/18
0013 c Modification: Ver.1.01, TAKAGI-1, 2006/12/15 (allover)
0014 c Ver.1.02, TAKAGI-1, 2007/ 7/28 (debug **1)
0015 c
0016 c In this subroutine,
0017 c change the integer type number to the character type number.
0018 c
0019 c Input variables: (name : type : explanation)
0020 c i : integer type : number (e.g. 123).
0021 c
0022 c Output variables: (name : type : explanation)
0023 c ilg : integer type : digit number
0024 c a : character type*10 : number (e.g. '123').
0025 c
0026 c Required subroutines : T1PAS (in the library 'Chara.f').
0027 c /-----------------------------------
0028       integer i
0029       character*10 a
0030       character*10 b
0031       integer ilg
0032       integer j
0033       integer fulrng
0034       parameter (fulrng = 10)
0035       if (i.ge.10**(fulrng-1) ) then
0036         write(*,*) 'ERROR: SR-ITOAGN: overflow [1]' ! 整数型データを文字型アラビア数字列に変換 (例: 123 → '123')
0037         call T1LPAS ! プログラムの一時停止
0038         stop
0039       end if
0040 *
0041       write(b,'(I10.10)') i
0042 * ! (I fulrng . fulrng )
0043 cc [**1, deletion]
0044 cc do j=1,fulrng-1
0045 cc [**1, insertion]
0046       do j=1,fulrng
0047         if (b(j:j).ne.'0') then
0048           ilg = fulrng - j +1
0049           a = b(j:)
0050           return
0051         end if
0052       end do
0053       a = '0'
0054       ilg = 1
0055       return
0056 *
0057       end
0058

---

以下は、人間用のデータではありません。

* chara_nowpub.f  2

* Src code start



      

      subroutine ITOAGN(i,a,ilg)   ! 整数型データを文字型アラビア数字列に変換 (例: 123 → '123')  

c -----------------------------------

c  You can freely use, copy, modify and redistribute this subroutine.

c  This subroutine comes with absolutely no warranty.

c

c   Copyright (C) 2006-2007 TAKAGI-1

c

c     Author      : TAKAGI-1

c     Date        : 2006/ 2/18

c     Modification: Ver.1.01, TAKAGI-1, 2006/12/15 (allover)

c                   Ver.1.02, TAKAGI-1, 2007/ 7/28 (debug **1)

c

c  In this subroutine,

c         change the integer type number to the character type number.

c

c  Input variables: (name : type : explanation)

c    i : integer type   : number (e.g. 123). 

c

c  Output variables: (name : type : explanation)

c    ilg : integer type : digit number

c    a : character type*10 : number (e.g. '123').

c

c  Required subroutines : T1PAS (in the library 'Chara.f').

c /-----------------------------------

      integer i

      character*10 a

      character*10 b

      integer ilg

      integer j

      integer fulrng

      parameter (fulrng = 10)

      if (i.ge.10**(fulrng-1) ) then

        write(*,*) 'ERROR: SR-ITOAGN: overflow [1]'   ! 整数型データを文字型アラビア数字列に変換 (例: 123 → '123')  

        call T1LPAS   ! プログラムの一時停止  

        stop

      end if

*

      write(b,'(I10.10)') i

* !            (I fulrng . fulrng )

cc [**1, deletion]

cc      do j=1,fulrng-1

cc [**1, insertion]

      do j=1,fulrng

        if (b(j:j).ne.'0') then

          ilg = fulrng - j +1

          a = b(j:)

          return

        end if

      end do

      a = '0'

      ilg = 1

      return

*

      end

© TAKAGI-1