scvect
C SCVECT SOURCE CHAT 05/01/13 03:13:01 5004 IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) DIMENSION U(N),V(N) C C----------------------------------------------------- C CALCUL DE LE PRODUIT SCALAIRE DE 2 VECTEURS C DE DIMENSION EGALE QUELCONQUE C SCVECT=U.V C----------------------------------------------------- C DO IE1=1,N ENDDO C RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales