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
logical lprn
common /kutas/ lprn
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
- C
- C Parallel Antiparallel
- C
- C o o
- C /l\ /j\
- C / \ / \
- C /| o | | o |\
- C \ j|/k\| / \ |/k\|l /
- C \ / \ / \ / \ /
- C o o o o
- C i i
- C
+ C C
+ C Parallel Antiparallel C
+ C C
+ C o o C
+ C /l\ /j\ C
+ C / \ / \ C
+ C /| o | | o |\ C
+ C \ j|/k\| / \ |/k\|l / C
+ C \ / \ / \ / \ / C
+ C o o o o C
+ C i i C
+ C C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
itk=itortyp(itype(k))
s1= scalar2(AEAb1(1,2,imat),CUgb2(1,i))
logical lprn
common /kutas/ lprn
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
- C
- C Parallel Antiparallel
- C
- C o o
- C \ /l\ /j\ /
- C \ / \ / \ /
- C o| o | | o |o
- C \ j|/k\| \ |/k\|l
- C \ / \ \ / \
- C o o
- C i i
- C
+ C C
+ C Parallel Antiparallel C
+ C C
+ C o o C
+ C \ /l\ /j\ / C
+ C \ / \ / \ / C
+ C o| o | | o |o C
+ C \ j|/k\| \ |/k\|l C
+ C \ / \ \ / \ C
+ C o o C
+ C i i C
+ C C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
cd write (2,*) 'eello6_graph2: i,',i,' j',j,' k',k,' l',l
C AL 7/4/01 s1 would occur in the sixth-order moment,
double precision vv(2),pizda(2,2),auxmat(2,2),auxvec(2)
logical swap
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
- C
- C Parallel Antiparallel
- C
- C o o
- C /l\ / \ /j\
- C / \ / \ / \
- C /| o |o o| o |\
- C j|/k\| / |/k\|l /
- C / \ / / \ /
- C / o / o
- C i i
- C
+ C C
+ C Parallel Antiparallel C
+ C C
+ C o o C
+ C /l\ / \ /j\ C
+ C / \ / \ / \ C
+ C /| o |o o| o |\ C
+ C j|/k\| / |/k\|l / C
+ C / \ / / \ / C
+ C / o / o C
+ C i i C
+ C C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C 4/7/01 AL Component s1 was removed, because it pertains to the respective
& auxvec1(2),auxmat1(2,2)
logical swap
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
- C
- C Parallel Antiparallel
- C
- C o o
- C /l\ / \ /j\
- C / \ / \ / \
- C /| o |o o| o |\
- C \ j|/k\| \ |/k\|l
- C \ / \ \ / \
- C o \ o \
- C i i
- C
+ C C
+ C Parallel Antiparallel C
+ C C
+ C o o C
+ C /l\ / \ /j\ C
+ C / \ / \ / \ C
+ C /| o |o o| o |\ C
+ C \ j|/k\| \ |/k\|l C
+ C \ / \ \ / \ C
+ C o \ o \ C
+ C i i C
+ C C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C 4/7/01 AL Component s1 was removed, because it pertains to the respective