Esope source files

   1 : C PROJEP    SOURCE    AM        08/02/14    21:27:57     6050           
   2 :       SUBROUTINE PROJEP                                                         
   3 : C======================================================================         
   4 : C                                                                               
   5 : C     OPERATEUR DE PROJECTION D UN CHAMPS PAR POINT                             
   6 : C                 SUR UN CHAMPS PAR ELEMEMT                                     
   7 : C                                                                               
   8 : C     LE CHAMP PAR POINT DOIT CONTENIR TOUTE L INFO POUR LE CHAMP               
   9 : C     PAR ELEMENT:TOUS LES POINTS DU CHAMP PAR ELEMENT DOIVENT ETRE             
  10 : C     DANS LE CHAMP PAR POINT,ET EN UN DE CES POINTS TOUTES LES                 
  11 : C     COMPOSANTES DU CHAMP PAR ELEMENT DANS LE CHAMP PAR POINT                  
  12 : C                                                                               
  13 : C=======================================================================        
  14 : C                                                                               
  15 : C    SYNTAXE   CHP1=PROJECP CHP2 OBJ MOCLE                                      
  16 : C              CHP1=CHAMP PAR ELEMENT                                           
  17 : C              CHP2=CHAMP PAR POINT                                             
  18 : C              OBJ =OBJET AFFECTE                                               
  19 : C              MOCLE = SUR 4 CARACTERES DECRIVANT LE SOUS TYPE DU               
  20 : C                      CHAMP A CREER                                            
  21 : C      CODE EBERSOLT JUILLET 84                                                 
  22 : C                                                                               
  23 : C=====================================================================          
  24 :       IMPLICIT INTEGER(I-N)
  25 : -INC CCOPTIO                                                                    
  26 : -INC CCHAMP                                                                     
  27 : C                                                                               
  27 :       CALL LIRMOT(NOMCH,LNOMCH,IM1,1)                                           
  28 :       IF(IERR.NE.0) GOTO 666                                                    
  29 : C                                                                               
  29 :       CALL LIROBJ('AFFECTE ',IPOI1,1,IRT1)                                      
  30 :       IF (IERR.NE.0) GOTO 666                                                   
  31 : C                                                                               
  31 :       CALL LIROBJ('CHPOINT ',IPOI2,1,IRT2)                                      
  32 :       IF (IERR.NE.0) GOTO 666                                                   
  33 : C                                                                               
  33 :       CALL PROJCH(IPOI2,IPOI1,NOMCH(IM1),IPOI3,IRT4)                            
  34 :       IF (IRT4.EQ.0) GOTO 666                                                   
  35 : C                                                                               
  35 :       CALL ECROBJ('CHAMELEM',IPOI3)                                             
  36 : C                                                                               
  37 :   666 CONTINUE                                                                  
  38 :       RETURN                                                                    
  39 :       END                                                                       
  40 :  
  41 :  
  42 :