| 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
|
|---|
