Esope source files

   1 : C VECTVE    SOURCE    CHAT      05/01/13    04:05:22     5004           
   2 : C
   3 :       SUBROUTINE VECTVE(V1,V2,IDIMC,PRV)
   4 : C     ***************************************************************
   5 : C     CALCUL LE PRODUIT VECTORIEL
   6 : C     ***************************************************************
   7 :       IMPLICIT INTEGER(I-N)
   8 :       INTEGER IDIMC
   9 :       REAL*8    V1(*),V2(*),PRV(*)
  10 : C
  11 :        GOTO (10,20,30) IDIMC
  12 :          GOTO 999
  13 :    10    PRV(1) = V1(1) * V2(1)
  14 :          GOTO 999
  15 :    20    PRV(1) = V1(1) * V2(2) - V1(2) * V2(1)
  16 :          GOTO 999
  17 :    30    PRV(1) = V1(2) * V2(3) - V1(3) * V2(2)
  18 :          PRV(2) = V1(3) * V2(1) - V1(1) * V2(3)
  19 :          PRV(3) = V1(1) * V2(2) - V1(2) * V2(1)
  20 :   999 END
  21 :  
  22 :