C DYNE      SOURCE    CHAT      05/01/12    23:18:14     5004           
      SUBROUTINE DYNE                                                           
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
*--------------------------------------------------------------------*          
*                                                                    *          
*     Sous-programme de l'op{rateur DYNE                             *          
*     __________________________________                             *          
*                                                                    *          
*     Calcul d'une r{ponse dynamique @ l'aide d'algorithmes          *          
*     explicites:                                                    *          
*                                                                    *          
*        - algorithme de Plexus                                      *          
*        - algorithme de Fu - de Vogelaere.                          *          
*                                                                    *          
*     Auteur, date de cr{ation:                                      *          
*     _________________________                                      *          
*                                                                    *          
*     Denis ROBERT-MOUGIN & Lionel VIVAN ,le 19 mai 1989.            *          
*                                                                    *          
*--------------------------------------------------------------------*          
-INC CCOPTIO                                                                    
*                                                                               
      CHARACTER*6 MOPLEX                                                        
      CHARACTER*20 MODEVO,MOALG,MODIFF                                                 
      DATA MOPLEX /'PLEXUS'/                                                    
      DATA MODEVO /'DE_VOGELAERE'/
      DATA MODIFF /'DIFFERENCES_CENTREES'/                                              
*                                                                               
*     Quel algorithme a-t-on choisi ?                                           
*                                                                               
      CALL MESLIR(-272)                                                         
      CALL LIRCHA(MOALG,1,IRET)                                                 
      IF (IRET.EQ.0) RETURN                                                     
*                                                                               
      IF (MOALG(1:6).EQ.MOPLEX) THEN                                            
*                                                                               
*        Algorithme de Plexus                                                   
*  on s'en sert plus. Il ne figure pas dans la notice                                                                            
         CALL DYNPLX                                                            
         RETURN                                                                 
      ELSE IF (MOALG(1:12).EQ.MODEVO) THEN                                      
*                                                                               
*        Algorithme de Fu - de Vogelaere                                        
*                                                                               
         CALL DYNDEV                                                            
         RETURN      
      ELSE IF (MOALG(1:20).EQ.MODIFF) THEN                                      
*                                                                               
*        Algorithme des differences centrees (le meme que plexus)                                        
*                                                                               
         CALL DYNDIF                                                            
         RETURN                                                                                   
      ELSE                                                                      
*                                                                               
*        Erreur dans le choix de l'algorithme                                   
*                                                                               
         CALL ERREUR(477)                                                       
         RETURN                                                                 
      ENDIF                                                                     
*                                                                               
      END