縺薙�繝壹�繧ｸ縺ｯ縲�FORTRAN繝ｩ繧､繝悶Λ繝ｪ Chara.f縺ｫ蜷ｫ縺ｾ繧後ｋ繧ｵ繝悶Ν繝ｼ繝√Φ ALGSRP 縺ｮ逅�ｧ｣謾ｯ謠ｴ繝壹�繧ｸ縺ｧ縺吶€� 縺薙�繝壹�繧ｸ縺ｯ縲：ORTRAN繝励Ο繧ｰ繝ｩ繝�逅�ｧ｣謾ｯ謠ｴ繧ｷ繧ｹ繝�Β縲薫kikaze縲�繧剃ｽｿ縺｣縺ｦ縺､縺上ｉ繧後※縺�∪縺吶€�

ALGSRP

陦ｨ遉ｺ縺ｮ繝ｪ繧ｻ繝�ヨ 繧ｽ繝ｼ繧ｹ繧偵ヶ繝ｭ繝�け蛹悶＠縺ｦ陦ｨ遉ｺ 竊舌♀縺吶☆繧∵ｩ溯� 繧ｳ繝｡繝ｳ繝医い繧ｦ繝医ｒ豺｡縺上☆繧� / 豸医☆ 繧ｳ繝｡繝ｳ繝医い繧ｦ繝医ｒ蠑ｷ隱ｿ縺吶ｋ / 縺�縺代ｒ陦ｨ遉ｺ縺吶ｋ 笆� 讀懃ｴ｢縺吶ｋ 笆� 讀懃ｴ｢縺吶ｋ 笆� 讀懃ｴ｢縺吶ｋ

讖溯�: 文字型変数に記憶されているバイト数を出力(大サイズ変数用)

ALGGNの説明ページを参照ください ! 文字型変数に記憶されているバイト数を出力

0000 * chara_nowpub.f 6
0001 * Src code start
0002
0003       
0004       subroutine ALGSRP(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 rapidly.
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,i
0028       character fty*50
0029       character th*1000
0030       integer m
0031       integer along
0032       fty=' '
0033       if (a.eq.' ') then
0034         lg=0
0035         goto 100
0036       end if
0037       do 3 m=1,20
0038         th((m-1)*50+1:m*50)=fty(1:50)
0039  3 continue
0040       along=len(a)
0041       do 200 i=along,1000,-1000
0042         if (a(i-999:i).ne.th) then
0043           goto 4
0044         end if
0045  200 continue
0046  4 do 5 j=i,50,-50
0047         if (a(j-49:j).ne.fty) then
0048           goto 8
0049         end if
0050  5 continue
0051  8 do 10 k=j,1,-1
0052         if (a(k:k).ne.' ') then
0053           goto 20
0054         end if
0055  10 continue
0056  20 lg=k
0057  100 return
0058       end
0059

---

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

* chara_nowpub.f  6

* Src code start



      

      subroutine ALGSRP(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 rapidly.

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,i

      character fty*50

      character th*1000

      integer m

      integer along

      fty='                                                  '

      if (a.eq.' ') then

        lg=0

        goto 100

      end if

      do 3 m=1,20

        th((m-1)*50+1:m*50)=fty(1:50)

 3    continue

      along=len(a)

      do 200 i=along,1000,-1000

        if (a(i-999:i).ne.th) then

          goto 4

        end if

 200  continue

 4    do 5 j=i,50,-50

        if (a(j-49:j).ne.fty) 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