& NCA, ICAIDX(MAXRES)
COMMON /IDFA2/ ishiftca,ilastca
c parallel
- integer idfadis_start,idfadis_end,
- & idfaphi_start,idfaphi_end,
- & idfathe_start,idfathe_end,
- & idfanei_start,idfanei_end
+ integer idfadis_start,idfadis_end,idfaphi_start,idfaphi_end,
+ & idfathe_start,idfathe_end,idfanei_start,idfanei_end,
+ & idfadis_start_all(0:max_fg_procs-1),
+ & idfadis_end_all(0:max_fg_procs-1),
+ & idfaphi_start_all(0:max_fg_procs-1),
+ & idfaphi_end_all(0:max_fg_procs-1),
+ & idfathe_start_all(0:max_fg_procs-1),
+ & idfathe_end_all(0:max_fg_procs-1),
+ & idfanei_start_all(0:max_fg_procs-1),
+ & idfanei_end_all(0:max_fg_procs-1)
COMMON /dfa_mpi/ idfadis_start,idfadis_end,
- & idfaphi_start,idfaphi_end,
- & idfathe_start,idfathe_end,
- & idfanei_start,idfanei_end
+ & idfaphi_start,idfaphi_end,idfathe_start,idfathe_end,
+ & idfanei_start,idfanei_end,idfadis_start_all,idfadis_end_all,
+ & idfaphi_start_all,idfaphi_end_all,idfathe_start_all,
+ & idfathe_end_all,idfanei_start_all,idfanei_end_all
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC