write(iout,*) 'WSHIELD',wshield
call reada(weightcard,'WTUBE',wtube,0.0d0)
write(iout,*) 'WTUBE',wtube
+ call reada(weightcard,"LIPSCALE",lipscale,1.3D0)
call reada(weightcard,'WLT',wliptran,0.0D0)
call reada(weightcard,"ATRISS",atriss,0.301D0)
call reada(weightcard,"BTRISS",btriss,0.021D0)
write (iout,*) "BTRISS=", btriss
write (iout,*) "CTRISS=", ctriss
write (iout,*) "DTRISS=", dtriss
+ if (shield_mode.gt.0) then
+ lipscale=0.0d0
+ write (iout,*) "WARNING:liscale not used in shield mode"
+ endif
dyn_ss=(index(weightcard,'DYN_SS').gt.0)
do i=1,maxres
dyn_ss_mask(i)=.false.