call int_partition(ind_scint_nucl,my_sc_inds_nucl,my_sc_inde_nucl,i,&
iatsc_s_nucl,iatsc_e_nucl,i+1,nct_molec(2),nint_gr_nucl(i), &
istart_nucl(i,1),iend_nucl(i,1),*112)
call int_partition(ind_scint_nucl,my_sc_inds_nucl,my_sc_inde_nucl,i,&
iatsc_s_nucl,iatsc_e_nucl,i+1,nct_molec(2),nint_gr_nucl(i), &
istart_nucl(i,1),iend_nucl(i,1),*112)