C
C
INTEGER IDFAMAX,IDFAMX2,IDFACMD,IDMAXMIN, MAXN
- PARAMETER(IDFAMAX=4000,IDFAMX2=1000,IDFACMD=500,IDMAXMIN=500)
+ PARAMETER(IDFAMAX=20000,IDFAMX2=1000,IDFACMD=500,IDMAXMIN=500)
PARAMETER(MAXN=4)
real*8 wwdist,wwangle,wwnei
parameter(wwdist=1.0d0,wwangle=1.0d0,wwnei=1.0d0)
& 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