+c write (iout,*) "SCSC after reduce ierr",ierr
+ if (fg_rank.eq.0.and.g_ilist_sc.gt.maxres*maxint_res) then
+ if ((me.eq.king.or.out1file).and.energy_dec) then
+ write (iout,*) "Too many SCSC interactions",
+ & g_ilist_sc," only",maxres*maxint_res," allowed."
+ write (iout,*) "Reduce r_cut_int and resubmit"
+ write (iout,*) "Specify a smaller r_cut_int and resubmit"
+ call flush(iout)
+ endif
+ write (*,*) "Processor:",me,": Too many SCSC interactions",
+ & g_ilist_sc," only",maxres*maxint_res," allowed."
+ write (iout,*) "Reduce r_cut_int and resubmit"
+ write (iout,*) "Specify a smaller r_cut_int and resubmit"
+ call MPI_Abort(MPI_COMM_WORLD,ierr)
+ endif