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