call reada(weightcard,'WBOND_NUCL',wbond_nucl,0.0D0)
call reada(weightcard,'WCATCAT',wcatcat,0.0d0)
call reada(weightcard,'WCATPROT',wcatprot,0.0d0)
call reada(weightcard,'WBOND_NUCL',wbond_nucl,0.0D0)
call reada(weightcard,'WCATCAT',wcatcat,0.0d0)
call reada(weightcard,'WCATPROT',wcatprot,0.0d0)