call reada(weightcard,'WSHIELD',wshield,0.05D0)
call reada(weightcard,'LIPSCALE',lipscale,1.0D0)
call reada(weightcard,'WLT',wliptran,1.0D0)
call reada(weightcard,'WSHIELD',wshield,0.05D0)
call reada(weightcard,'LIPSCALE',lipscale,1.0D0)
call reada(weightcard,'WLT',wliptran,1.0D0)