C DYNERA    SOURCE    CHAT      05/01/12    23:18:47     5004           
      SUBROUTINE DYNERA(IPCHP1,IPCHP2,IPCHP3,NSOR,IPTAB)                        
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
************************************************************************        
*                                                                               
*                             D Y N E R A                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*     S-P ASSOCIE A L'OPERATEUR "DYNE"                                          
*     ARCHIVAGE DES RESULTATS DANS LA TABLE DE SORTIE                           
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)          
* -----------                                                                   
*                                                                               
*     IPCHP1  (E)  POINTEUR SUR LE CHPOINT DE DEPLACEMENT                       
*     IPCHP2  (E)  POINTEUR SUR LE CHPOINT DE VITESSE                           
*     IPCHP3  (E)  POINTEUR SUR LE CHPOINT D'ACCELERATION                       
*     NSOR    (E)  NUMERO DE L'INSTANT DE SORTIE                                
*     IPTAB   (S)  POINTEUR SUR LA TABLE DE SORTIE ( ACTIVE )                   
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*                                                                               
*     DENIS ROBERT, LE 21 OCTOBRE 1988.                                         
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*     ESOPE + FORTRAN77                                                         
*                                                                               
************************************************************************        
*                                                                               
* MODULES UTILISES:                                                             
*                                                                               
-INC CCOPTIO                                                                    
-INC SMTABLE                                                                    
*                                                                               
      INTEGER I0,I1,IP0,IP1                                                     
      REAL*8 X0,X1                                                              
      LOGICAL L0,L1                                                             
*                                                                               
      MTABLE=IPTAB                                                              
*                                                                               
*---  INITIALISATION ET REMPLISSAGE DE LA PETITE TABLE                          
*                                                                               
      CALL CRTABL(MTAB1)                                                        
      IPTA1=MTAB1                                                               
*                                                                               
*---  SOUS-TYPAGE DE LA PETITE TABLE : 'MOUVEMENT'                              
*                                                                               
      CALL ECCTAB(IPTA1,'MOT',I0,X0,'SOUSTYPE',L0,IP0,                          
     &                  'MOT',I1,X1,'MOUVEMENT',L1,IP1)                         
      IF (IERR.NE.0) RETURN                                                     
*                                                                               
*---  INDICE '<DEPLACEMENT' : CHPOINT DE DEPLACEMENT AU PAS N                   
*                                                                               
      CALL ECCTAB(IPTA1,'MOT',I0,X0,'<DEPLACEMENT',L0,IP0,                      
     &                   'CHPOINT',I1,X1,' ',L1,IPCHP1)                         
      IF (IERR.NE.0) RETURN                                                     
*                                                                               
*---  INDICE '<VITESSE' : CHPOINT DE VITESSE AU PAS N                           
*                                                                               
      CALL ECCTAB(IPTA1,'MOT',I0,X0,'<VITESSE',L0,IP0,                          
     &                   'CHPOINT',I1,X1,' ',L1,IPCHP2)                         
      IF (IERR.NE.0) RETURN                                                     
*                                                                               
*---  INDICE '<ACCELERATION' : CHPOINT D'ACCELERATION AU PAS N                  
*                                                                               
      CALL ECCTAB(IPTA1,'MOT',I0,X0,'<ACCELERATION',L0,IP0,                     
     &                   'CHPOINT',I1,X1,' ',L1,IPCHP3)                         
      IF (IERR.NE.0) RETURN                                                     
*                                                                               
*---  ON ECRIT LA PETITE TABLE DANS TTUF                                        
*                                                                               
      CALL ECCTAB(IPTAB,'ENTIER',NSOR,X0,' ',L0,IP0,                            
     &                  'TABLE',I1,X1,' ',L1,IPTA1)                             
      IF (IERR.NE.0) RETURN                                                     
      SEGDES,MTAB1                                                              
*                                                                               
      END