include 'COMMON.CONTROL'
include 'COMMON.SPLITELE'
include 'COMMON.SBRIDGE'
- double precision tub_r,vectube(3),enetube(maxres*2)
+ double precision tub_r,vectube(3),enetube(maxres*2),
+ & enecavtube(maxres*2)
Etube=0.0d0
do i=itube_start,itube_end
enetube(i)=0.0d0