● 構造
　○ 正展開
ITOAGN ! 整数型データを文字型アラビア数字列に変換 (例: 123 → '123')
　┗ T1LPAS ! プログラムの一時停止

　○ 逆展開
(1) dummymain_main !
　┗ ITOAGN ! 整数型データを文字型アラビア数字列に変換 (例: 123 → '123')



● 変数(個別)
　○ Input

　○ Input & Output

　○ Output

● 変数(子を含む)
　○ Input

　○ Input & Output

　○ Output


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

ITOAGN ! 整数型データを文字型アラビア数字列に変換 (例: 123 → '123')
整数型データを文字型アラビア数字列に変換 (例: 123 → '123')
説明ページ
 

* 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