Esope source files

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