Télécharger prosc1.eso

Retour à la liste

Numérotation des lignes :

  1. C PROSC1 SOURCE CHAT 05/01/13 02:34:53 5004
  2. SUBROUTINE PROSC1(VECTB,VECTC,X,LONVEC)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C SOUS-PROGRAMME APPELE PAR PROJ3
  6. DIMENSION VECTB(1),VECTC(1)
  7. X=0.D0
  8. DO 1 I=1,LONVEC
  9. X=X+VECTB(I)*VECTC(I)
  10. 1 CONTINUE
  11. RETURN
  12. END
  13.  
  14.  

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