Télécharger graco9.eso

Retour à la liste

Numérotation des lignes :

  1. C GRACO9 SOURCE PV 15/07/29 15:39:45 8593
  2. SUBROUTINE GRACO9(ith)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. *
  6. * extrait de graco7 pour pouvoir //
  7. *
  8. -INC SMVECTD
  9. -INC CCOPTIO
  10. common/cgraco9c/ilicre,mvect1,mvect2,nbthrl,nbinc
  11. segment ilicre
  12. * stockage matrice initiale en creux
  13. * ilideb position debut de ligne dans ligcre
  14. integer ilideb(nbinc+1)
  15. ** integer iliinc(ino+1)
  16. integer ligcrp
  17. endsegment
  18. segment ligcre
  19. * lmatr: longueur reelle ligne
  20. * posm: numero inconnue
  21. * valm: valeur terme
  22. integer posm(lmat)
  23. real*8 valm(lmat)
  24. endsegment
  25. ligcre=ligcrp
  26. call graco10(ith,ilideb(1),posm(1),valm(1),
  27. > mvect1.vectbb(1),mvect2.vectbb(1))
  28. end
  29.  
  30.  

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