Conference Room SAD
[thread display] [new arrival display] [word search] [past log] [管理用]

Subject ： Re: SAD Update V1.0.10.3.9a01 Things to do with SOL.
Date： 2009/12/09(Wed) 13:45:36
Contributor： Akio Morita 

I found varying number of arguments at calling tdrife() from src/tcave.f

I propose follwoing patch.
--- src/tcave.f.orig       2009-12-07 12:02:17.000000000 +0900
+++ src/tcave.f 2009-12-09 13:40:39.000000000 +0900
@@ -149,7 +149,7 @@
         enddo
         if(al .gt. 0.d0)then
           call tdrife(trans,cod,beam,aln*.5d0,
-     $         0.d0,0.d0,0.d0,.true.,calpol,irad,ld)
+     $         0.d0,0.d0,0.d0,.true.,.false.,calpol,irad,ld)
           call tgetdvh(dgb,dv)
           cod(5)=cod(5)+dv*aln*.5d0
 c          write(*,*)'tcave-2 ',fringe,mfring
@@ -161,7 +161,7 @@
       else
         if(al .gt. 0.d0)then
           call tdrife(trans,cod,beam,al,
-     $         0.d0,0.d0,0.d0,.true.,calpol,irad,ld)
+     $         0.d0,0.d0,0.d0,.true.,.false.,calpol,irad,ld)
         endif
       endif
       if(dhg .ne. 0.d0)then

- 関連一覧ツリー （Click ▼ to display all articles in a thread.）