Esope source files

   1 : C RESI3     SOURCE    CHAT      11/03/16    21:30:38     6902           
   2 :       SUBROUTINE RESI3(NEF,IMAIL,IPMODE,IPCHEL,IPRIGI)                         
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             R E S I 3                                       
   6 : *                             ---------                                       
   7 : *                                                                               
   8 : * FONCTION:                                                                     
   9 : * ---------                                                                     
  10 : *     CALCUL DE LA MATRICE DE RESISTANCE, ON SE DIRIGE VERS LES               
  11 : *     SECTEURS SPECIFIQUES SUIVANT LA FORMULATION ET LE TYPE DES                
  12 : *     ELEMENTS FINIS                                                            
  13 : *                                                                               
  14 : * MODULES UTILISES:                                                             
  15 : * -----------------                                                             
  16 : *                                                                               
  17 :       IMPLICIT INTEGER(I-N)
  18 : -INC CCOPTIO                                                                    
  19 : -INC SMMODEL                                                                    
  20 : *                                                                               
  21 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
  22 : * -----------                                                                   
  23 : *                                                                               
  24 : *     NEF     (E)  NUMERO DE L'ELEMENT FINI DANS NOMTP (VOIR CCHAMP)            
  25 : *     IMAIL   (E)  NUMERO DU MAILLAGE ELEMENTAIRE CONSIDERE,DANS                
  26 : *                  L'OBJET MODELE                                               
  27 : *     IPMODE  (E)  POINTEUR SUR UN SEGMENT IMODEL                               
  28 : *                  DE CARACTERISTIQUES                                          
  29 : *     IPCHEL  (E)  POINTEUR SUR LE CHAMELEM DE CARACTERISTIQUES                 
  30 : *     IPRIGI (E/S) POINTEUR SUR L'OBJET RESULTAT,DE TYPE RIGIDITE               
  31 : *                                                                               
  32 : * AUTEUR,DATE DE CREATION:                                                      
  33 : * ------------------------                                                      
  34 : *                                                                               
  35 : *     YANN STEPHAN, LE 28 JANVIER 1997 (COPIE DE TCOND3).                                          
  36 : *                                                                               
  37 : * LANGAGE:                                                                      
  38 : * --------                                                                      
  39 : *                                                                               
  40 : *             FORTRAN77+ESOPE                                                         
  41 : *                                                                               
  42 : ************************************************************************        
  43 : *                                                                               
  44 :       IMODEL=IPMODE                                                             
  45 :       SEGACT,IMODEL                                                             
  46 :       NF1=FORMOD(/2)                                                            
  46 :       CALL PLACE(FORMOD,NF1,IF1,'MAGNETODYNAMIQUE')                                   
  47 :       IF (IF1.EQ.0) THEN                                                        
  47 :          CALL ERREUR(251)
  48 :          RETURN
  49 :       ENDIF
  50 : *                                                                               
  51 : *     CAS DE LA FORMULATION MAGNETODYNAMIQUE                                       
  52 : *                                                                               
  53 :       IF (NEF.EQ.128) THEN                                               
  54 : *                                                                               
  55 : *       CAS DE L'ELEMENT ROT3                                               
  56 : *                                                                               
  56 :         CALL ROT3R(NEF,IMAIL,IPMODE,IPCHEL,IPRIGI)                         
  57 :         IF(IERR.NE.0) RETURN
  58 : *                                                                               
  59 :       ELSE                                                                   
  60 : *                                                                               
  61 : *       OPTION INDISPONIBLE                                                 
  62 : *                                                                          
  62 :         CALL ERREUR(19)                                                     
  63 :       ENDIF                                                                  
  64 :       RETURN
  65 :       END                                                                       
  66 :  
  67 :  
  68 :  
  69 :  
  70 :  
  71 :  
  72 :  
  73 :  
  74 :  
  75 :