Esope source files

   1 : C VALCHE    SOURCE    FANDEUR   10/08/31    21:19:57     6734           
   2 :                                                                         
   3 :       SUBROUTINE VALCHE (IPTVAL,NCOMP,IPMINT,IPPORE)                    
   4 :                                                                         
   5 : *_______________________________________________________________________
   6 : *                                                                       
   7 : *   PASSAGE DES VALEURS D'UN MCHAML AUX NOEUDS SUR UN AUTRE SUPPORT     
   8 : *                                                                       
   9 : *   IPTVAL   POINTEUR SUR UN SEGMENT MPTVAL CONTENANT LES MELVALS A     
  10 : *            RECALCULER                                                 
  11 : *                                                                       
  12 : *   NCOMP    NOMBRE DE COMPOSANTES QUE L'ON SOUHAITE RECALCULER         
  13 : *                                                                       
  14 : *   IPMINT  POINTEUR SUR LE SEGMENT D'INTEGRATION DU SUPPORT OU L'ON    
  15 : *           SOUHAITE PROJETER LES MELVAL                                
  16 : *                                                                       
  17 : * IPPORE est =0 s'il faut prendre toutes les fonctions de formes        
  18 : *         sinon précise lesquelles premieres il faut prendre            
  19 : *                                                                       
  20 : *   REMARQUE 1 :  LES MELVAL RECALCULES SONT REMIS DANS LE SEGMENT      
  21 : *                 MPTVAL (ON DESACTIVE ICI LES MELVALS ORIGINELS).      
  22 : *                 IL NE FAUT PAS OUBLIER DE SUPRIMER LES MELVALS        
  23 : *                 RECALCULES APRES UTILISATION.                         
  24 : *                                                                       
  25 : *   REMARQUE 2 :  LE POINTEUR IPMINT DOIT ETRE ACTIF EN ENTREE DE       
  26 : *                 VALCHE ET SON ETAT N'EST PAS MODIFIE EN SORTIE.       
  27 : *                                                                       
  28 : *   CAMPENON JM LE 02/91                                                
  29 : *                                                                       
  30 : *_______________________________________________________________________
  31 :                                                                         
  32 :       IMPLICIT INTEGER(I-N)                                             
  33 :                                                                         
  34 : -INC CCOPTIO                                                            
  35 :                                                                         
  36 :       SEGMENT MPTVAL                                                    
  37 :         INTEGER IPOS(NS)    ,NSOF(NS)                                   
  38 :         INTEGER      IVAL(NCOSOU)                                       
  39 :         CHARACTER*16 TYVAL(NCOSOU)                                      
  40 :       ENDSEGMENT                                                        
  41 :                                                                         
  42 :       MPTVAL=IPTVAL                                                     
  43 :       DO 1 ICOMP=1,NCOMP                                                
  44 :          IPMELV=IVAL(ICOMP)                                             
  45 :          IF (IPMELV.NE.0) THEN                                          
  45 :             CALL CHAME3(IPMELV,IPMINT,IPRES,IPPORE)                     
  46 :             IF(IERR.NE.0)RETURN                                         
  47 :             IVAL(ICOMP)=IPRES                                           
  48 :          ENDIF                                                          
  49 :  1    CONTINUE                                                          
  50 :                                                                         
  51 :       RETURN                                                            
  52 :       END                                                               
  53 : 
  54 :