107 continue
C JUYONG for dfa test!
- call edfad(edfadis)
+ if (wdfa_dist.gt.0) call edfad(edfadis)
c print*, 'edfad is finished!', edfadis
- call edfat(edfator)
+ if (wdfa_tor.gt.0) call edfat(edfator)
c print*, 'edfat is finished!', edfator
- call edfan(edfanei)
+ if (wdfa_nei.gt.0) call edfan(edfanei)
c print*, 'edfan is finished!', edfanei
- call edfab(edfabet)
+ if (wdfa_beta.gt.0) call edfab(edfabet)
c print*, 'edfab is finished!', edfabet
C stop
C JUYONG