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

* 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