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

ATORGN

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

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

説明ページ

0000 * chara_nowpub.f 4
0001 * Src code start
0002       
0003       
0004       subroutine ATORGN(a,r) ! 文字型アラビア数字列を実数型データに変換 (例: '1.23' → 1.23)
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 real type number.
0017 c
0018 c Input variables: (name : type : explanation)
0019 c a : character type : number (e.g. '1.23').
0020 c
0021 c Output variables: (name : type : explanation)
0022 c r : real type : number (e.g. 1.23).
0023 c
0024 c Required subroutines : none.
0025 c /-----------------------------------
0026       character*(*) a
0027       character*160 b,memo
0028       integer i,point,order,alen
0029       double precision d
0030       real r
0031       d=0.0D0
0032       alen=len(a)
0033       b=' '
0034       b(1:alen)=a
0035  1 if (b(1:1).eq.' ') then
0036         memo=b
0037         b=memo(2:160)
0038         goto 1
0039       end if
0040       do 10 i=1,160
0041       if (b(i:i).eq.'.') then
0042         point=i
0043         goto 100
0044       end if
0045       if (b(i:i).eq.' ') then
0046         b(i:i)='.'
0047         point=i
0048         goto 100
0049       end if
0050  10 continue
0051  100 do 20 i=1,160
0052         if (b(i:i).eq.'.') then
0053           goto 20
0054         end if
0055         if (b(i:i).eq.' ') then
0056           goto 200
0057         end if
0058         if (point-i.gt.0) then
0059           order=point-i-1
0060           d=d+dble(ichar(b(i:i))-ichar('0'))*dble(10**order)
0061         else
0062           order=i-point
0063           d=d+dble(ichar(b(i:i))-ichar('0'))/dble(10**order)
0064         end if
0065  20 continue
0066  200 r=sngl(d)
0067       return
0068       end
0069

---

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

* chara_nowpub.f  4

* Src code start

      

      

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

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 real type number.

c

c  Input variables: (name : type : explanation)

c    a : character type : number (e.g. '1.23').

c

c  Output variables: (name : type : explanation)

c    r : real type   : number (e.g. 1.23). 

c

c  Required subroutines : none.

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

      character*(*) a

      character*160 b,memo

      integer i,point,order,alen

      double precision d

      real r

      d=0.0D0

      alen=len(a)

      b=' '

      b(1:alen)=a

 1    if (b(1:1).eq.' ') then

        memo=b

        b=memo(2:160)

        goto 1

      end if

      do 10 i=1,160

      if (b(i:i).eq.'.') then

        point=i

        goto 100

      end if

      if (b(i:i).eq.' ') then

        b(i:i)='.'

        point=i

        goto 100

      end if

 10   continue

 100  do 20 i=1,160

        if (b(i:i).eq.'.') then

          goto 20

        end if

        if (b(i:i).eq.' ') then

          goto 200

        end if

        if (point-i.gt.0) then

          order=point-i-1

          d=d+dble(ichar(b(i:i))-ichar('0'))*dble(10**order)

        else

          order=i-point

          d=d+dble(ichar(b(i:i))-ichar('0'))/dble(10**order)

        end if

 20   continue

 200  r=sngl(d)

      return

      end

© TAKAGI-1