Télécharger TMVALUE.INC

Retour à la liste

Numérotation des lignes :

  1. C -INC TMVALUE
  2. C
  3. C SEGMENT DE TRAVAIL POUR REALISER DES OPERATIONS ET FONCTIONS
  4. C EN PARALLELE DIRECTEMENT AVEC LA BIBLIOTHEQUE PTHREAD
  5. C
  6.  
  7. C Declaration du COMMON pour le travail en parallele
  8. COMMON/optabc/IPARAL
  9.  
  10. SEGMENT SPARAL
  11. INTEGER NBTHRD
  12. INTEGER IVALUE
  13. INTEGER IOPE
  14. INTEGER IARG
  15. INTEGER I1I
  16. INTEGER IERROR(NBTHRS)
  17. REAL*8 X1I
  18. C NBTHRD : NOMBRE DE THREADS DEMANDES
  19. C IVALUE : TABLEAU CONTENANT LES SEGMENTS SVALUE
  20. C IOPE : TYPE D'OPERATION DEMANDEE
  21. C IARG : DETERMINE QUI DE I1I OU X1I EST UTILE
  22. C I1I : ENTIER LIE A L'OPERATION DEMANDEE
  23. C X1I : FLOTTANT LIE A L'OPERATION DEMANDEE
  24. C IERROR : CODE D'ERREUR
  25. ENDSEGMENT
  26.  
  27. SEGMENT SVALUE
  28. INTEGER ITYPOI(NBPOIN)
  29. INTEGER IPOI0 (NBPOIN,2)
  30. INTEGER IPOI1 (NBPOIN,2)
  31. INTEGER IPOI2 (NBPOIN,2)
  32. C ITYPOI : TABLEAU D''ENTIER CONTENANT LE TYPE DE POINTEUR CONTENANT LES VALEURS
  33. C 1: MPOVAL (CONTIENT LE VPOCHA DES CHPOINT )
  34. C 2: MELVAL (CONTIENT LE VELCHE/IELCHE DES MCHAML )
  35. C 3: MLREEL (CONTIENT LE PROG DES LISTREEL)
  36. C 4: MLENTI (CONTIENT LE LECT DES LISTENTI)
  37. C 5: ...
  38. C 6: ...
  39. C NBPOIN : NOMBRE DE POINTEURS STOQUES DANS LES TABLEAUX
  40. C IPOI0 : TABLEAU AVEC LES DONNEES D''ENTREE 1 (POINTEUR,TAILLE DU TABLEAU TOUT ALIGNE)
  41. C IPOI1 : TABLEAU AVEC LES DONNEES D''ENTREE 2 (POINTEUR,TAILLE DU TABLEAU TOUT ALIGNE)
  42. C IPOI2 : TABLEAU AVEC LES DONNEES VIERGE A REMPLIR (POINTEUR,TAILLE DU TABLEAU TOUT ALIGNE)
  43. ENDSEGMENT
  44.  
  45.  

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