print *, "before devision",nnt_molec(2),nct_molec(2)-nnt_molec(2)
call int_bounds(nct_molec(2)-nnt_molec(2),ibondp_nucl_start,ibondp_nucl_end)
ibondp_nucl_start=ibondp_nucl_start+nnt_molec(2)
ibondp_nucl_end=ibondp_nucl_end+nnt_molec(2)
print *, "before devision",nnt_molec(2),nct_molec(2)-nnt_molec(2)
call int_bounds(nct_molec(2)-nnt_molec(2),ibondp_nucl_start,ibondp_nucl_end)
ibondp_nucl_start=ibondp_nucl_start+nnt_molec(2)
ibondp_nucl_end=ibondp_nucl_end+nnt_molec(2)