Esope source files

   1 : C COMBTA    SOURCE    CHAT      05/01/12    22:14:17     5004           
   2 :       SUBROUTINE COMBTA                                                         
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             C O M B T A                                       
   6 : *                             -----------                                       
   7 : *                                                                               
   8 : *            SOUS-PROGRAMME ASSOCIE A L'OPERATEUR "COMBTABLE"                   
   9 : *                                                                               
  10 : * FONCTION:                                                                     
  11 : * ---------                                                                     
  12 : *                                                                               
  13 : *     EFFECTUER LA COMBINAISON LINEAIRE DE CHPOINTS CONSIGNES DANS UNE          
  14 : *     TABLE, INDICES PAR DES POINTS.                                            
  15 : *                                                                               
  16 : * PHRASE D'APPEL (EN GIBIANE):                                                  
  17 : * ----------------------------                                                  
  18 : *                                                                               
  19 : *     CC = COMBTABLE (SEMBLABLE) AA BB ;                                        
  20 : *                                                                               
  21 : *     LES PARENTHESES INDIQUANT UN ARGUMENT FACULTATIF.                         
  22 : *                                                                               
  23 : * OPERANDES ET RESULTATS:                                                       
  24 : * -----------------------                                                       
  25 : *                                                                               
  26 : *     SEMBLABL  'MOT     '  MOT-CLE INDIQUANT QUE LES CHPOINTS A                
  27 : *                           COMBINER S'APPUIENT SUR LA MEME GEOMETRIE.          
  28 : *     AA        'CHPOINT '  CONTIENT LES COEFFICIENTS DE PONDERATION.           
  29 : *     BB        'TABLE   '  CONTIENT LES CHPOINTS A COMBINER.                   
  30 : *     CC        'CHPOINT '  COMBINAISON DES CHPOINTS DE LA TABLE.               
  31 : *                                                                               
  32 : * MODE DE FONCTIONNEMENT:                                                       
  33 : * -----------------------                                                       
  34 : *                                                                               
  35 : *     LES COEFFICIENTS DE PONDERATION DES CHPOINTS DOIVENT ETRE RANGES          
  36 : *     DANS UN CHPOINT A 1 COMPOSANTE (QUELCONQUE) APPUYE SUR L'ENSEMBLE         
  37 : *     OU UN SOUS-ENSEMBLE DES POINTS-INDICES DE LA TABLE.                       
  38 : *     NE DEFINIR LE CHPOINT DES COEFFICIENTS QUE SUR UN SOUS-ENSEMBLE           
  39 : *     EQUIVAUT A ATTRIBUER DES COEFFICIENTS DE PONDERATION NULS AUX             
  40 : *     CHPOINTS DE LA TABLE DONT LES POINTS-INDICES SONT EXCLUS DU               
  41 : *     SOUS-ENSEMBLE.                                                            
  42 : *                                                                               
  43 : * REMARQUES:                                                                    
  44 : * ----------                                                                    
  45 : *                                                                               
  46 : *     L'OPTION "SEMBLABLE" ACCELERE LE CALCUL, MAIS DEMANDE AU                  
  47 : *     PROGRAMMEUR UNE BONNE MAITRISE ET UNE BONNE CONNAISSANCE DE LA            
  48 : *     STRUCTURE DE SES CHPOINTS.                                                
  49 : *                                                                               
  50 : * SOUS-PROGRAMMES APPELES:                                                      
  51 : * ------------------------                                                      
  52 : *                                                                               
  53 : *     COMBT1, LIRE, ECRIRE.                                                     
  54 : *                                                                               
  55 : * AUTEUR, DATE DE CREATION:                                                     
  56 : * -------------------------                                                     
  57 : *                                                                               
  58 : *     PASCAL MANIGOT     30 MAI 1985                                            
  59 : *                                                                               
  60 : * LANGAGE:                                                                      
  61 : * --------                                                                      
  62 : *                                                                               
  63 : *     FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS                    
  64 : *                                                                               
  65 : ************************************************************************        
  66 : *                                                                               
  67 :       IMPLICIT INTEGER(I-N)
  68 : -INC CCOPTIO                                                                    
  69 : *                                                                               
  70 :       EXTERNAL COMBI2,COMB02                                                    
  71 : *                                                                               
  72 : *                                                                               
  73 :       CHARACTER*(4) LOPTIO                                                      
  74 : *                                                                               
  75 :       ICODE = 0                                                                 
  76 :       LOPTIO = ' '                                                              
  76 :       CALL LIRCHA(LOPTIO,ICODE,IRETOU)                                          
  77 : *                                                                               
  78 :       ICODE = 1                                                                 
  78 :       CALL LIROBJ ('CHPOINT ',IPCHP1,ICODE,IRETOU)                              
  79 :       IF (IERR .NE. 0) RETURN                                                   
  80 : *                                                                               
  81 :       ICODE = 1                                                                 
  81 :       CALL LIROBJ ('TABLE   ',IPTABL,ICODE,IRETOU)                              
  82 :       IF (IERR .NE. 0) RETURN                                                   
  83 : *                                                                               
  84 :       IF (LOPTIO .EQ. 'SEMB') THEN                                              
  84 :          CALL COMBT1 (IPCHP1,IPTABL,COMBI2,  IPCHP4)                            
  85 :       ELSE                                                                      
  85 :          CALL COMBT1 (IPCHP1,IPTABL,COMB02,  IPCHP4)                            
  86 :       END IF                                                                    
  87 :       IF (IERR .NE. 0) RETURN                                                   
  88 : *                                                                               
  88 :       CALL ECROBJ ('CHPOINT ',IPCHP4)                                           
  89 : *                                                                               
  90 :       END                                                                       
  91 :