Sources des Includes

C      -INC TMVALUE
C
C SEGMENT DE TRAVAIL POUR REALISER DES OPERATIONS ET FONCTIONS
C         EN PARALLELE DIRECTEMENT AVEC LA BIBLIOTHEQUE PTHREAD
C
 
C     Declaration du COMMON pour le travail en parallele
      COMMON/optabc/IPARAL
      save /optabc/
 
      SEGMENT SPARAL
        INTEGER NBTHRD
        INTEGER IVALUE
        INTEGER IOPE
        INTEGER IARG
        INTEGER I1I
        INTEGER IERROR(NBTHR)
        REAL*8  X1I
C       NBTHRD  : NOMBRE DE THREADS DEMANDES
C       IVALUE  : TABLEAU CONTENANT LES SEGMENTS SVALUE
C       IOPE    : TYPE D'OPERATION DEMANDEE
C       IARG    : DETERMINE QUI DE I1I OU X1I EST UTILE
C       I1I     : ENTIER   LIE A L'OPERATION DEMANDEE
C       X1I     : FLOTTANT LIE A L'OPERATION DEMANDEE
C       IERROR  : CODE D'ERREUR
      ENDSEGMENT
 
      SEGMENT SVALUE
        INTEGER      NPUTIL
        INTEGER      ITYPOI(NBPOIN)
        INTEGER      IPOI0 (NBPOIN,2)
        INTEGER      IPOI1 (NBPOIN,2)
        INTEGER      IPOI2 (NBPOIN,2)
C       ITYPOI  : TABLEAU D''ENTIER CONTENANT LE TYPE DE POINTEUR CONTENANT LES VALEURS
C              1: MPOVAL (CONTIENT LE VPOCHA        DES CHPOINT )
C              2: MELVAL (CONTIENT LE VELCHE/IELCHE DES MCHAML  )
C              3: MLREEL (CONTIENT LE PROG          DES LISTREEL)
C              4: MLENTI (CONTIENT LE LECT          DES LISTENTI)
C              5: ...
C              6: ...
C       NBUTIL  : NOMBRE DE VALEURS REELLEMENT UTILES (<=NBPOIN)
C       NBPOIN  : NOMBRE DE POINTEURS STOQUES DANS LES TABLEAUX
C       IPOI0   : TABLEAU AVEC LES DONNEES D''ENTREE 1      (POINTEUR,TAILLE DU TABLEAU TOUT ALIGNE)
C       IPOI1   : TABLEAU AVEC LES DONNEES D''ENTREE 2      (POINTEUR,TAILLE DU TABLEAU TOUT ALIGNE)
C       IPOI2   : TABLEAU AVEC LES DONNEES VIERGE A REMPLIR (POINTEUR,TAILLE DU TABLEAU TOUT ALIGNE)
      ENDSEGMENT