● 構造
　○ 正展開
WRFILE ! ファイルへの書き込み
　┣ ALGGN ! 文字型変数に記憶されているバイト数を出力
　┗ ALGSRP ! 文字型変数に記憶されているバイト数を出力(大サイズ変数用)

　○ 逆展開
(1) dummymain_main !
　┗ WRFILE ! ファイルへの書き込み



● 変数(個別)
　○ Input

　○ Input & Output

　○ Output

● 変数(子を含む)
　○ Input

　○ Input & Output

　○ Output


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

WRFILE ! ファイルへの書き込み
ファイルへの書き込み
説明ページ
 

* chara_nowpub.f  1

* Src code start

      subroutine WRFILE(unno,text)   ! ファイルへの書き込み  

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         write the text on the file.

c

c  Input variables: (name : type : explanation)

c    unno : integer type   : unit number. 

c    text : character type : text data.

c

c  Output variables: (name : type : explanation)

c    None.

c

c  Required subroutines : ALGGN and ALGSRP (in the library 'Chara.f').   ! 文字型変数に記憶されているバイト数を出力(大サイズ変数用)     ! 文字型変数に記憶されているバイト数を出力  

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

      integer unno

      character*(*) text

      integer lg,i

      if (len(text).le.1200) then

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

      else

        call ALGSRP(text,lg)   ! 文字型変数に記憶されているバイト数を出力(大サイズ変数用)  

      end if

      if (lg.eq.0) then

        write(unno,*) ' '

      else

        write(unno,601) (text(i:i),i=1,lg)

 601    format(20000A1)

      end if

      return

      end

© TAKAGI-1