1 | SUBROUTINE VERTEX1_111(C,V1,F2,F3,VERTEX)
|
---|
2 | IMPLICIT NONE
|
---|
3 | DOUBLE PRECISION C
|
---|
4 | DOUBLE COMPLEX V1(6)
|
---|
5 | DOUBLE COMPLEX F2(6)
|
---|
6 | DOUBLE COMPLEX F3(6)
|
---|
7 | DOUBLE COMPLEX VERTEX
|
---|
8 | VERTEX = C*((F3(4)*V1(1)*F2(2))+(F3(4)*V1(4)*F2(2))+(F3(4)*V1(2)
|
---|
9 | $ *F2(1))+1.*(0,1.)*(F3(4)*V1(3)*F2(1))+(F3(3)*V1(2)*F2(2))
|
---|
10 | $ +-1.*(0,1.)*(F3(3)*V1(3)*F2(2))+(F3(3)*V1(1)*F2(1))+-(F3(3)
|
---|
11 | $ *V1(4)*F2(1))+(F3(2)*V1(1)*F2(4))+-(F3(2)*V1(4)*F2(4))
|
---|
12 | $ +-(F3(2)*V1(2)*F2(3))+-1.*(0,1.)*(F3(2)*V1(3)*F2(3))+-(F3(1)
|
---|
13 | $ *V1(2)*F2(4))+1.*(0,1.)*(F3(1)*V1(3)*F2(4))+(F3(1)*V1(1)*F2(3))
|
---|
14 | $ +(F3(1)*V1(4)*F2(3)))
|
---|
15 | END
|
---|