+C init parallel
+C BETA is not parallel !
+#ifdef MPI
+ if (wdfa_beta.ne.0.0 .and. nfgtasks.gt.1) then
+ write (iout,*) "ERRROR dfa_beta works only for FGPROCS=1"
+ print *,"ERRROR dfa_beta works only for FGPROCS=1"
+ stop
+ endif
+ call int_bounds(idfadis,idfadis_start,idfadis_end)
+ call int_bounds(idfaphi,idfaphi_start,idfaphi_end)
+ call int_bounds(idfathe,idfathe_start,idfathe_end)
+ call int_bounds(idfanei,idfanei_start,idfanei_end)
+ if (me.eq.king .or. .not. out1file)
+ & write (iout,*) "DFA MPI ",
+ & "idfadis ",idfadis,idfadis_start,idfadis_end,
+ & "idfaphi ",idfaphi,idfaphi_start,idfaphi_end,
+ & "idfathe ",idfathe,idfathe_start,idfathe_end,
+ & "idfanei ",idfanei,idfanei_start,idfanei_end
+#else
+ idfadis_start=1
+ idfadis_end=idfadis
+ idfaphi_start=1
+ idfaphi_end=idfaphi
+ idfathe_start=1
+ idfathe_end=idfathe
+ idfanei_start=1
+ idfanei_end=idfanei
+#endif
+
+