Sources Esope | Cast3M

vectve
C VECTVE    SOURCE    CHAT      05/01/13    04:05:22     5004
C
      SUBROUTINE VECTVE(V1,V2,IDIMC,PRV)
C     ***************************************************************
C     CALCUL LE PRODUIT VECTORIEL
C     ***************************************************************
      IMPLICIT INTEGER(I-N)
      INTEGER IDIMC
      REAL*8    V1(*),V2(*),PRV(*)
C
       GOTO (10,20,30) IDIMC
         GOTO 999
   10    PRV(1) = V1(1) * V2(1)
         GOTO 999
   20    PRV(1) = V1(1) * V2(2) - V1(2) * V2(1)
         GOTO 999
   30    PRV(1) = V1(2) * V2(3) - V1(3) * V2(2)
         PRV(2) = V1(3) * V2(1) - V1(1) * V2(3)
         PRV(3) = V1(1) * V2(2) - V1(2) * V2(1)
  999 END