C BAPOIN    SOURCE    CHAT      05/01/12    21:33:11     5004           
      SUBROUTINE BAPOIN(IMAIL,IPT,INOMA,INOPT)                                  
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  

*--------------------------------------------------------------------*          
*                                                                    *          
*     correspondance entre les points de l'ancien maillage et du     *          
*     nouveau maillage.                                              *          
*                                                                    *          
*     Param}tres:                                                    *          
*                                                                    *          
* e   IMAIL   maillage initial                                       *          
* e   IPT     point initial                                          *          
* e   INOMA   maillage translat{                                     *          
* e   INOPT   point translat{                                        *          
*                                                                    *          
*     Auteur, date de cr{ation:                                      *          
*                                                                    *          
*     Lionel VIVAN, le 9 mai 1990.                                   *          
*                                                                    *          
*--------------------------------------------------------------------*          
*                                                                    *          
-INC CCOPTIO                                                                    
-INC SMELEME                                                                    
*                                                                               
      INOPT = 0                                                                 
      MELEME = IMAIL                                                            
      SEGACT MELEME                                                             
      NBEL = NUM(/2)                                                            
      NBNO = NUM(/1)                                                            
      IPT1 = INOMA                                                              
      SEGACT IPT1                                                               
      DO 10 IE = 1,NBEL                                                         
         DO 20 IN = 1,NBNO                                                      
            INOE = NUM(IN,IE)                                                   
            IF (INOE.EQ.IPT) THEN                                               
               INOPT = IPT1.NUM(IN,IE)                                          
               GOTO 30                                                          
            ENDIF                                                               
 20         CONTINUE                                                            
*        end do                                                                 
 10      CONTINUE                                                               
*     end do                                                                    
      CALL ERREUR(504)                                                          
 30   CONTINUE                                                                  
      SEGDES IPT1                                                         
      SEGDES MELEME                                                       
*                                                                               
      END