+ if (nfgtasks.gt.1) then
+ call MPI_Bcast(itime_mat,1,MPI_INT,king,FG_COMM,IERROR)
+ endif
+ if (mod(itime_mat,imatupdate).eq.0) then
+ call make_SCp_inter_list
+ call make_SCSC_inter_list
+ call make_pp_inter_list
+ call make_pp_vdw_inter_list
+ endif