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

ALGGN

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

機能: 文字型変数に記憶されているバイト数を出力

説明ページ

0000 * chara_nowpub.f 5
0001 * Src code start
0002
0003
0004       subroutine ALGGN(a,lg) ! 文字型変数に記憶されているバイト数を出力
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 TAKAGI-1
0010 c
0011 c Author : TAKAGI-1
0012 c Date : 2006/ 2/18
0013 c Modification:
0014 c
0015 c In this subroutine,
0016 c count characters of the text.
0017 c
0018 c Input variables: (name : type : explanation)
0019 c a : character type : text (e.g. 'abc').
0020 c
0021 c Output variables: (name : type : explanation)
0022 c alg : integer type : byte number of the text (e.g. 3)
0023 c
0024 c Required subroutines : none.
0025 c /-----------------------------------
0026       character a*(*)
0027       integer lg,j,k,along
0028       along = len(a)
0029       if (a.eq.' ') then
0030         lg=0
0031         goto 100
0032       end if
0033       do 5 j=along,30,-30
0034         if (a(j-29:j).ne.
0035      *' ') then
0036           goto 8
0037         end if
0038  5 continue
0039  8 do 10 k=j,1,-1
0040         if (a(k:k).ne.' ') then
0041           goto 20
0042         end if
0043  10 continue
0044  20 lg=k
0045  100 return
0046       end
0047

---

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

* chara_nowpub.f  5

* Src code start





      subroutine ALGGN(a,lg)   ! 文字型変数に記憶されているバイト数を出力  

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 TAKAGI-1

c

c     Author      : TAKAGI-1

c     Date        : 2006/ 2/18

c     Modification: 

c

c  In this subroutine,

c         count characters of the text.

c

c  Input variables: (name : type : explanation)

c    a : character type   : text (e.g. 'abc'). 

c

c  Output variables: (name : type : explanation)

c    alg : integer type : byte number of the text (e.g. 3)

c

c  Required subroutines : none.

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

      character a*(*)

      integer lg,j,k,along

      along = len(a)

      if (a.eq.' ') then

        lg=0

        goto 100

      end if

      do 5 j=along,30,-30

        if (a(j-29:j).ne.

     *'                              ') then

          goto 8

        end if

 5    continue

 8    do 10 k=j,1,-1

        if (a(k:k).ne.' ') then

          goto 20

        end if

 10   continue

 20   lg=k

 100  return

      end

© TAKAGI-1