Télécharger graco7.eso

Retour à la liste

Numérotation des lignes :

  1. C GRACO7 SOURCE PV 16/11/17 21:59:38 9180
  2. SUBROUTINE GRACO7( ilicr1,mvect2,mvect1,inc,nbthr,lenb)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. *
  6. * MULTIPLICATION DE LA MATRICE ASSEMBLEE PAR LE VECTEUR MVECTX
  7. * LE RESULTAT EST DANS MVECTY QUI N'EST PAS DESACTIVE
  8. * UTILE POUR LE GRADIENT CONJUGUE
  9. *
  10. -INC SMMATRI
  11. -INC SMVECTD
  12. -INC CCOPTIO
  13. segment ilicre
  14. * stockage matrice initiale en creux
  15. * ilideb position debut de ligne dans ligcre
  16. integer ilideb(nbinc+1)
  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. external graco9
  26. common/cgraco9c/ilicre,mvect1l,mvect2l,nbthrl,nbinc
  27. ilicre=ilicr1
  28. mvect1l=mvect1
  29. mvect2l=mvect2
  30. nbthrl=nbthr
  31. nbinc=inc
  32. C
  33. C **** BOUCLE SUR LES inconnues dispatchee sur les threads
  34. C
  35. do 24 ithr=2,nbthrl
  36. call threadid(ithr,graco9)
  37. 24 continue
  38. call graco9(1)
  39. do 25 ithr=2,nbthrl
  40. call threadif(ithr)
  41. 25 continue
  42. * pour le test argument element de segment
  43. oov(1)=0
  44. RETURN
  45. END
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  

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