Télécharger graco13.eso

Retour à la liste

Numérotation des lignes :

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

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