& "idfaphi ",idfaphi,idfaphi_start,idfaphi_end,
& "idfathe ",idfathe,idfathe_start,idfathe_end,
& "idfanei ",idfanei,idfanei_start,idfanei_end
+ if (nfgtasks.gt.1) then
do i=0,max_fg_procs-1
idfadis_start_all(j)=0
idfadis_end_all(j)=0
& idfanei_end_all(i)
enddo
endif
+ endif
#else
idfadis_start=1
idfadis_end=idfadis
edfadis=0
gdfad=0.0d0
+c write (2,*) "edfad",idfadis_start,idfadis_end
do i=idfadis_start,idfadis_end
iatm1=idislis(1,i)+ishiftca