Télécharger graco10.eso

Retour à la liste

Numérotation des lignes :

  1. C GRACO10 SOURCE PV 15/07/29 15:39:39 8593
  2. SUBROUTINE GRACO10(ith,ilideb,posm,valm,vect1,vect2)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. integer ilideb(*),posm(*)
  6. real*8 valm(*),vect1(*),vect2(*)
  7. common/cgraco9c/ilicre,mvect1l,mvect2l,nbthrl,nbinc
  8. DO 2 idli=ith,nbinc,nbthrl
  9. p=0.d0
  10. do 5 i=ilideb(idli),ilideb(idli+1)-1
  11. inc=posm(i)
  12. p=p+valm(i)*vect2(inc)
  13. 5 continue
  14. vect1(idli)=p
  15. 2 continue
  16. 1 continue
  17. RETURN
  18. END
  19.  
  20.  
  21.  
  22.  

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