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

T1LPAS

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

讖溯�: プログラムの一時停止

説明ページ

0000 * chara_nowpub.f 7
0001 * Src code start
0002
0003       
0004       subroutine T1LPAS ! プログラムの一時停止
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 pause.
0017 c
0018 c Input variables: (name : type : explanation)
0019 c None.
0020 c
0021 c Output variables: (name : type : explanation)
0022 c None.
0023 c
0024 c Required subroutines : none.
0025 c /-----------------------------------
0026       real r
0027       write(*,*) '-- Now Pausing --'
0028       write(*,*) 'any number : OK'
0029       read(*,*) r
0030       return
0031       end
0032
0033

---

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

* chara_nowpub.f  7

* Src code start



      

      subroutine T1LPAS   ! プログラムの一時停止  

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         pause.

c

c  Input variables: (name : type : explanation)

c    None. 

c

c  Output variables: (name : type : explanation)

c    None.

c

c  Required subroutines : none.

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

      real r

      write(*,*) '-- Now Pausing --'

      write(*,*) 'any number : OK'

      read(*,*) r

      return

      end

© TAKAGI-1