Télécharger colive.eso

Retour à la liste

Numérotation des lignes :

  1. C COLIVE SOURCE CHAT 05/01/12 22:13:18 5004
  2. SUBROUTINE COLIVE(VEC1,VEC2,L1,C1,C2,VEC3)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. ************************************************************************
  6. *
  7. * C O L I V E
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. * CALCULE LA COMBINAISON LINEAIRE : C1 VEC1 + C2 VEC2 = VEC3
  13. *
  14. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  15. * -----------
  16. *
  17. * VEC1 (E) PREMIER VECTEUR
  18. * VEC2 (E) SECOND VECTEUR
  19. * L1 (E) LONGUEUR DES VECTEURS
  20. * C1 (E) PREMIER COEFFICIENT
  21. * C2 (E) SECOND COEFFICIENT
  22. * VEC3 (S) VECTEUR RESULTAT
  23. *
  24. * AUTEUR, DATE DE CREATION:
  25. * -------------------------
  26. * DENIS ROBERT, LE 3 DECEMBRE 1988.
  27. *
  28. * LANGAGE:
  29. * --------
  30. * FORTRAN77
  31. *
  32. ************************************************************************
  33. *
  34. REAL*8 VEC1(*),VEC2(*),VEC3(*)
  35. *
  36. IFO=0
  37. DO 10 I1=1,L1
  38. IFO=IFO+1
  39. VEC3(IFO)=VEC1(IFO)*C1+VEC2(IFO)*C2
  40. 10 CONTINUE
  41. * END DO
  42. *
  43. END
  44.  
  45.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales