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

ATOIGN

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

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

説明ページ

0000 * chara_nowpub.f 3
0001 * Src code start
0002
0003       
0004       subroutine ATOIGN(aa,ii) ! 文字型アラビア数字列を整数型データに変換 (例: '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) 2007 TAKAGI-1
0010 c
0011 c Author : TAKAGI-1
0012 c Date : 2007/ 1/ 1
0013 c Modification:
0014 c
0015 c In this subroutine,
0016 c change the chracter type number to the integer type number.
0017 c
0018 c Input variables: (name : type : explanation)
0019 c aa : character type : number (e.g. '123').
0020 c
0021 c Output variables: (name : type : explanation)
0022 c ii : integer type : number (e.g. 123).
0023 c
0024 c Required subroutines : ATORGN (in the library 'Chara.f'). ! 文字型アラビア数字列を実数型データに変換 (例: '1.23' → 1.23)
0025 c /-----------------------------------
0026       character aa*(*)
0027       integer ii
0028       character a*160
0029       integer alen
0030       real r
0031       a=' '
0032       alen=len(aa)
0033       a(1:alen)=aa
0034       call ATORGN(a,r) ! 文字型アラビア数字列を実数型データに変換 (例: '1.23' → 1.23)
0035       ii=nint(r)
0036       return
0037       end
0038

---

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

* chara_nowpub.f  3

* Src code start



      

      subroutine ATOIGN(aa,ii)   ! 文字型アラビア数字列を整数型データに変換 (例: '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) 2007 TAKAGI-1

c

c     Author      : TAKAGI-1

c     Date        : 2007/ 1/ 1

c     Modification: 

c

c  In this subroutine,

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

c

c  Input variables: (name : type : explanation)

c    aa : character type : number (e.g. '123').

c

c  Output variables: (name : type : explanation)

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

c

c  Required subroutines : ATORGN (in the library 'Chara.f').   ! 文字型アラビア数字列を実数型データに変換 (例: '1.23' → 1.23)  

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

      character aa*(*)

      integer ii

      character a*160

      integer alen

      real r

      a=' '

      alen=len(aa)

      a(1:alen)=aa

      call ATORGN(a,r)   ! 文字型アラビア数字列を実数型データに変換 (例: '1.23' → 1.23)  

      ii=nint(r)

      return

      end

© TAKAGI-1