Esope source files

   1 : C RESI2     SOURCE    CHAT      09/10/09    21:22:51     6519           
   2 :       SUBROUTINE RESI2(NEF,NBNN,IDESCR)                             
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             R E S I 2                                       
   6 : *                             ---------                                       
   7 : *                                                                               
   8 : * FONCTION:                                                                     
   9 : * ---------                                                                     
  10 : *     CE SOUS-PROGRAMME REMPLIT LE SEGMENT DESCRIPTEUR DE L'OBJET               
  11 : *     RIGIDITE,DANS LE CAS DE L'APPLICATION MAGNETODYNAMIQUE                           
  12 : *                                                                               
  13 : * MODULES UTILISES:                                                             
  14 : * -----------------                                                             
  15 : *                                                                               
  16 :       IMPLICIT INTEGER(I-N)
  17 : -INC SMRIGID                                                                    
  18 : *                                                                               
  19 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  20 : * -----------                                                                   
  21 : *                                                                               
  22 : *     NBNN    (E)  NOMBRE DE NOEUDS DANS LE TYPE D'ELEMENT CONSIDERE            
  23 : *     NEF     (E)  = 128 : ELEMENT COQUE ROT3               
  24 : *     IDESCR  (S)  POINTEUR SUR LE SEGMENT DESCR                                
  25 : *                                                                               
  26 : * CONSTANTES:                                                                   
  27 : * -----------                                                                   
  28 : *                                                                               
  29 :       CHARACTER*4 MOTHER,MOCHAL
  30 :       PARAMETER ( MOTHER='FC   ' )                                               
  31 :       PARAMETER ( MOCHAL='ED   ' )                                               
  32 : *                                                                               
  33 : * REMARQUES:                                                                    
  34 : * ----------                                                                    
  35 : *     - L'INCONNUE EST LA FONCTION DE COURANT 'FC'
  36 : *     - L'INCONNUE DUALE EST LE CHAMP ELECTRIQUE 'ED'           
  37 : *                                                                               
  38 : * AUTEUR, DATE DE CREATION:                                                     
  39 : * -------------------------                                                     
  40 : *                                                                               
  41 : *     YANN STEPHAN,LE 28 JANVIER 1997 (COPIE DE TCOND2).                                           
  42 : *                                                                               
  43 : * LANGAGE:                                                                      
  44 : * --------                                                                      
  45 : *                                                                               
  46 : *     ESOPE + FORTRAN77                                                         
  47 : ***                                                                             
  48 : *                                                                               
  49 :         NLIGRP=NBNN
  50 :         NLIGRD=NBNN                                                           
  51 :         SEGINI,DESCR                                                            
  52 :         DO 11 IB=1,NLIGRP                                                       
  53 :          LISINC(IB)=MOTHER                                                      
  54 :          LISDUA(IB)=MOCHAL                                                      
  55 :          NOELEP(IB)=IB
  56 :          NOELED(IB)=IB
  57 :    11   CONTINUE                                                                
  58 :         IDESCR=DESCR                                                              
  59 :         SEGDES,DESCR                                                              
  60 :         END
  61 :  
  62 :  
  63 :  
  64 :  
  65 :  
  66 :  
  67 :  
  68 :  
  69 :