+c parallel
+ integer idfadis_start,idfadis_end,
+ & idfaphi_start,idfaphi_end,
+ & idfathe_start,idfathe_end,
+ & idfanei_start,idfanei_end
+ COMMON /dfa_mpi/ idfadis_start,idfadis_end,
+ & idfaphi_start,idfaphi_end,
+ & idfathe_start,idfathe_end,
+ & idfanei_start,idfanei_end
+