Télécharger la plaquette Cast3M


fr en

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