Esope source files

   1 : C MANELM    SOURCE    CHAT      07/10/29    21:23:45     5940           
   2 :       SUBROUTINE MANELM (MOTYPL,LISPO1,  IPELEM)                                
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             M A N E L M                                       
   6 : *                             -----------                                       
   7 : *                                                                               
   8 : * FONCTION:                                                                     
   9 : * ---------                                                                     
  10 : *                                                                               
  11 : *     CREATION MANUELLE D'UN OBJET 'MAILLAGE'.                                  
  12 : *     (SOUS-PROGRAMME EQUIVALENT A L'OPERATEUR "MANUEL" SANS OPTION)            
  13 : *                                                                               
  14 : * MODE D'APPEL:                                                                 
  15 : * -------------                                                                 
  16 : *                                                                               
  16 : *     CALL MANELM (MOTYPL,LISPO1,  IPELEM)                                      
  17 : *                                                                               
  18 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE                                         
  19 : * -----------                                                                   
  20 : *                                                                               
  21 : *     MOTYPL  ENTIER    (E)  CONTIENT UN NOM D'ELEMENT (CHAINE DE               
  22 : *                            CARACTERES).                                       
  23 : *     LISPO1  ENTIER    (E)  LISTE DES POINTS DE L'ELEMENT.                     
  24 : *     IPELEM  ENTIER    (S)  POINTEUR DU 'MAILLAGE' CREE.                       
  25 : *                                                                               
  26 : * REMARQUES:                                                                    
  27 : * ----------                                                                    
  28 : *                                                                               
  29 : *     ON NE VERIFIE PAS QUE LE NOMBRE DE POINTS DE "LISPO1" CORRESPOND          
  30 : *     AU NOMBRE DE NOEUDS DE "MOTYPL".                                          
  31 : *                                                                               
  32 : * SOUS-PROGRAMMES APPELES:                                                      
  33 : * ------------------------                                                      
  34 : *                                                                               
  35 : *     ERREUR.                                                                   
  36 : *                                                                               
  37 : * AUTEUR, DATE DE CREATION:                                                     
  38 : * -------------------------                                                     
  39 : *                                                                               
  40 : *     PASCAL MANIGOT     19 AVRIL 1985                                          
  41 : *                                                                               
  42 : * LANGAGE:                                                                      
  43 : * --------                                                                      
  44 : *                                                                               
  45 : *     ESOPE + FORTRAN77                                                         
  46 : *                                                                               
  47 : ************************************************************************        
  48 : *                                                                               
  49 :       IMPLICIT INTEGER(I-N)
  50 : -INC CCOPTIO                                                                    
  51 : -INC CCGEOME                                                                    
  52 : -INC SMELEME                                                                    
  53 : *                                                                               
  54 :       CHARACTER*4 MOTYPL                                                        
  55 :       DIMENSION LISPO1(*)                                                       
  56 : *                                                                               
  57 :       ITYPE = 0                                                                 
  58 :       DO 100 IB100=1,NOMBR                                                      
  59 :          IF (MOTYPL .EQ. NOMS(IB100) ) THEN                                     
  60 :             ITYPE = IB100                                                       
  61 : *           --> SORTIE DE BOUCLE N.100                                          
  62 :             GOTO 102                                                            
  63 :          END IF                                                                 
  64 :   100    CONTINUE                                                               
  65 : *     END DO                                                                    
  66 :   102 CONTINUE                                                                  
  67 : *                                                                               
  68 :       IF (ITYPE .EQ. 0) THEN                                                    
  69 :          MOTERR(1:4)=MOTYPL                                                     
  70 :          NUMERR = 7                                                             
  70 :          CALL ERREUR (NUMERR)                                                   
  71 :          RETURN                                                                 
  72 :       END IF                                                                    
  73 : *                                                                               
  74 :       NBNN = NBNNE(ITYPE)                                                       
  75 :       NBSOUS = 0                                                                
  76 :       NBREF = 0                                                                 
  77 :       NBELEM = 1                                                                
  78 :       SEGINI,MELEME                                                             
  79 :       IPELEM = MELEME                                                           
  80 :       ITYPEL = ITYPE                                                            
  81 : *                                                                               
  82 :       DO 200 IB200=1,NBNN                                                       
  83 :          NUM(IB200,1) = LISPO1(IB200)                                           
  84 :   200    CONTINUE                                                               
  85 : *     END DO                                                                    
  86 : *                                                                               
  87 :       SEGDES,MELEME                                                             
  88 : *                                                                               
  89 :       END                                                                       
  90 :  
  91 :  
  92 :  
  93 :  
  94 :  
  95 :  
  96 :