C PROJEP    SOURCE    AM        08/02/14    21:27:57     6050           
      SUBROUTINE PROJEP                                                         
C======================================================================         
C                                                                               
C     OPERATEUR DE PROJECTION D UN CHAMPS PAR POINT                             
C                 SUR UN CHAMPS PAR ELEMEMT                                     
C                                                                               
C     LE CHAMP PAR POINT DOIT CONTENIR TOUTE L INFO POUR LE CHAMP               
C     PAR ELEMENT:TOUS LES POINTS DU CHAMP PAR ELEMENT DOIVENT ETRE             
C     DANS LE CHAMP PAR POINT,ET EN UN DE CES POINTS TOUTES LES                 
C     COMPOSANTES DU CHAMP PAR ELEMENT DANS LE CHAMP PAR POINT                  
C                                                                               
C=======================================================================        
C                                                                               
C    SYNTAXE   CHP1=PROJECP CHP2 OBJ MOCLE                                      
C              CHP1=CHAMP PAR ELEMENT                                           
C              CHP2=CHAMP PAR POINT                                             
C              OBJ =OBJET AFFECTE                                               
C              MOCLE = SUR 4 CARACTERES DECRIVANT LE SOUS TYPE DU               
C                      CHAMP A CREER                                            
C      CODE EBERSOLT JUILLET 84                                                 
C                                                                               
C=====================================================================          
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
-INC CCHAMP                                                                     
C                                                                               
      CALL LIRMOT(NOMCH,LNOMCH,IM1,1)                                           
      IF(IERR.NE.0) GOTO 666                                                    
C                                                                               
      CALL LIROBJ('AFFECTE ',IPOI1,1,IRT1)                                      
      IF (IERR.NE.0) GOTO 666                                                   
C                                                                               
      CALL LIROBJ('CHPOINT ',IPOI2,1,IRT2)                                      
      IF (IERR.NE.0) GOTO 666                                                   
C                                                                               
      CALL PROJCH(IPOI2,IPOI1,NOMCH(IM1),IPOI3,IRT4)                            
      IF (IRT4.EQ.0) GOTO 666                                                   
C                                                                               
      CALL ECROBJ('CHAMELEM',IPOI3)                                             
C                                                                               
  666 CONTINUE                                                                  
      RETURN                                                                    
      END