C MANELM    SOURCE    CHAT      07/10/29    21:23:45     5940           
      SUBROUTINE MANELM (MOTYPL,LISPO1,  IPELEM)                                
************************************************************************        
*                                                                               
*                             M A N E L M                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     CREATION MANUELLE D'UN OBJET 'MAILLAGE'.                                  
*     (SOUS-PROGRAMME EQUIVALENT A L'OPERATEUR "MANUEL" SANS OPTION)            
*                                                                               
* MODE D'APPEL:                                                                 
* -------------                                                                 
*                                                                               
*     CALL MANELM (MOTYPL,LISPO1,  IPELEM)                                      
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE                                         
* -----------                                                                   
*                                                                               
*     MOTYPL  ENTIER    (E)  CONTIENT UN NOM D'ELEMENT (CHAINE DE               
*                            CARACTERES).                                       
*     LISPO1  ENTIER    (E)  LISTE DES POINTS DE L'ELEMENT.                     
*     IPELEM  ENTIER    (S)  POINTEUR DU 'MAILLAGE' CREE.                       
*                                                                               
* REMARQUES:                                                                    
* ----------                                                                    
*                                                                               
*     ON NE VERIFIE PAS QUE LE NOMBRE DE POINTS DE "LISPO1" CORRESPOND          
*     AU NOMBRE DE NOEUDS DE "MOTYPL".                                          
*                                                                               
* SOUS-PROGRAMMES APPELES:                                                      
* ------------------------                                                      
*                                                                               
*     ERREUR.                                                                   
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*                                                                               
*     PASCAL MANIGOT     19 AVRIL 1985                                          
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*     ESOPE + FORTRAN77                                                         
*                                                                               
************************************************************************        
*                                                                               
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
-INC CCGEOME                                                                    
-INC SMELEME                                                                    
*                                                                               
      CHARACTER*4 MOTYPL                                                        
      DIMENSION LISPO1(*)                                                       
*                                                                               
      ITYPE = 0                                                                 
      DO 100 IB100=1,NOMBR                                                      
         IF (MOTYPL .EQ. NOMS(IB100) ) THEN                                     
            ITYPE = IB100                                                       
*           --> SORTIE DE BOUCLE N.100                                          
            GOTO 102                                                            
         END IF                                                                 
  100    CONTINUE                                                               
*     END DO                                                                    
  102 CONTINUE                                                                  
*                                                                               
      IF (ITYPE .EQ. 0) THEN                                                    
         MOTERR(1:4)=MOTYPL                                                     
         NUMERR = 7                                                             
         CALL ERREUR (NUMERR)                                                   
         RETURN                                                                 
      END IF                                                                    
*                                                                               
      NBNN = NBNNE(ITYPE)                                                       
      NBSOUS = 0                                                                
      NBREF = 0                                                                 
      NBELEM = 1                                                                
      SEGINI,MELEME                                                             
      IPELEM = MELEME                                                           
      ITYPEL = ITYPE                                                            
*                                                                               
      DO 200 IB200=1,NBNN                                                       
         NUM(IB200,1) = LISPO1(IB200)                                           
  200    CONTINUE                                                               
*     END DO                                                                    
*                                                                               
      SEGDES,MELEME                                                             
*                                                                               
      END