WorkingGroup2: Vertex1_111.f

File Vertex1_111.f, 665 bytes (added by omatt, 10 years ago)
Line 
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