Rin-memo

ANAPAW/Analyzer/load_prmファイルの書き方

Memo-ANAPAW-Analyzerへ戻る

基本的には○○prm.fh で宣言したパラメータに ○○.prm に書かれた値を読み込むだけ。

例

○○prm.fh でパラメータ変数として calprm(2,16) を宣言した場合。

      subroutine load○○prm
      implicit none
      include 'analyslogic.fh'
      include '○○prm.fh'
      integer ier
      character*132 prmfile
      integer i

      call getenv('○○_PRM',prmfile)
      open(unit=80,file=prmfile,status='old',err=1001)

      do i=1,16
         call read_flt(80,calprm(1,i),2,ier)
         if (ier.ne.0) goto 1002
      enddo
      close(80)
      return
 1001 write(*,'(2A)')' ANAPAW-E :  Cannot open file',
     &     prmfile(1:len_trim(prmfile))
      stop
      return
 1002 write(*,*) ' ANAPAW-E :  Error while
     &  reading parameter'
      close(80)
      stop
      return
      end		
		

Memo-ANAPAW-Analyzerへ戻る