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

WRFILE

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

機能: ファイルへの書き込み

説明ページ

0000 * chara_nowpub.f 1
0001 * Src code start
0002       subroutine WRFILE(unno,text) ! ファイルへの書き込み
0003 c -----------------------------------
0004 c You can freely use, copy, modify and redistribute this subroutine.
0005 c This subroutine comes with absolutely no warranty.
0006 c
0007 c Copyright (C) 2006 TAKAGI-1
0008 c
0009 c Author : TAKAGI-1
0010 c Date : 2006/ 2/18
0011 c Modification:
0012 c
0013 c In this subroutine,
0014 c write the text on the file.
0015 c
0016 c Input variables: (name : type : explanation)
0017 c unno : integer type : unit number.
0018 c text : character type : text data.
0019 c
0020 c Output variables: (name : type : explanation)
0021 c None.
0022 c
0023 c Required subroutines : ALGGN and ALGSRP (in the library 'Chara.f'). ! 文字型変数に記憶されているバイト数を出力(大サイズ変数用) ! 文字型変数に記憶されているバイト数を出力
0024 c /-----------------------------------
0025       integer unno
0026       character*(*) text
0027       integer lg,i
0028       if (len(text).le.1200) then
0029         call ALGGN(text,lg) ! 文字型変数に記憶されているバイト数を出力
0030       else
0031         call ALGSRP(text,lg) ! 文字型変数に記憶されているバイト数を出力(大サイズ変数用)
0032       end if
0033       if (lg.eq.0) then
0034         write(unno,*) ' '
0035       else
0036         write(unno,601) (text(i:i),i=1,lg)
0037  601 format(20000A1)
0038       end if
0039       return
0040       end
0041

---

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

* 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