Télécharger graco7.eso

Retour à la liste

Numérotation des lignes :

graco7
  1. C GRACO7 SOURCE PV 21/10/12 21:15:07 11118
  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.  
  13. -INC PPARAM
  14. -INC CCOPTIO
  15. -INC SILICRE
  16. external graco9
  17. common/cgraco9c/ilicre,mvect1l,mvect2l,nbthrl,nbinc
  18. ilicre=ilicr1
  19. segact ilicre
  20. mvect1l=mvect1
  21. mvect2l=mvect2
  22. nbthrl=nbthr
  23. nbinc=inc
  24. C
  25. C **** BOUCLE SUR LES inconnues dispatchee sur les threads
  26. C
  27. do 24 ithr=2,nbthrl
  28. call threadid(ithr,graco9)
  29. 24 continue
  30. call graco9(1)
  31. do 25 ithr=2,nbthrl
  32. call threadif(ithr)
  33. 25 continue
  34. RETURN
  35. END
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  

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