C DEVLIA    SOURCE    CHAT      11/03/16    21:19:10     6902           
      SUBROUTINE DEVLIA(LTLIA,KCPR,PDT,KTLIAA,KTLIAB,ITCARA,LMODYN)                               
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
*--------------------------------------------------------------------*          
*                                                                    *          
*     Op{rateur DYNE : algorithme de Fu - de Vogelaere               *          
*     ________________________________________________               *          
*                                                                    *          
*     Remplissage des tableaux de description des liaisons @         *          
*     partir des informations contenues dans la table ITLIA.         *          
*                                                                    *          
*     Param}tres:                                                    *          
*                                                                    *          
* e   LTLIA   Table rassemblant la description des liaisons          *          
* e   KCPR    Segment descriptif des points.                         *
* e   PDT     Pas de temps.                                          *          
* s   KTLIAA  Segment descriptif des liaisons en base A              *          
* s   KTLIAB  Segment descriptif des liaisons en base B              *          
*                                                                    *          
*     Auteur, date de cr{ation:                                      *          
*                                                                    *          
*     Lionel VIVAN, le 16 aout 1989.                                 *          
*                                                                    *          
*--------------------------------------------------------------------*          
*                                                                               
-INC CCOPTIO                                                                    
-INC SMCOORD       
-INC SMMODEL                                                             
*                                                                               
      SEGMENT,ICPR(XCOOR(/1)/(IDIM+1))                                          
*                                                                               
* segment chapeau modeles liaisons 
      SEGMENT MOLIAI
         integer modtla,modtlb
      ENDSEGMENT
      CHARACTER*8 TYPRET,CHARRE                                                        
      LOGICAL L0,L1,lmodyn                                                        
*                                                                               
      ICPR = KCPR                                                               
      LTLA = 0                                                                  
      LTLB = 0       
      
      IF (lmodyn) THEN
       moliai = ltlia
       segact moliai
       if (modtla.gt.0) then
         mmode1 = modtla
         segact mmode1
       endif
  
       if (modtlb.gt.0) then
         mmode2 = modtlb
         ltlb = modtlb
         segact mmode2
         if (mmode2.kmodel(/1).gt.0) then
            CALL DYNE20(LTLB,KTLIAB,ITCARA,LMODYN)                                               
         endif
        endif
      ELSE                                                          
* 
*     Liaisons sur la base A 
*                                                                              
      TYPRET = ' '                                                              
      CALL ACCTAB(LTLIA,'MOT',I0,X0,'LIAISON_A',L0,IP0,                         
     &                  TYPRET,I1,X1,CHARRE,L1,LTLA)                               
      IF (IERR.NE.0) RETURN                                                                                           
      IF (LTLA.NE.0) THEN                                                       
         CALL DYNE19(LTLA,KCPR,PDT,KTLIAA)                                          
         IF (IERR.NE.0) RETURN                                                                                                                                 
      ENDIF                                                                     
*                                                                               
*     Liaisons sur la base B                                                    
*                                                                               
      TYPRET = ' '                                                              
      CALL ACCTAB(LTLIA,'MOT',I0,X0,'LIAISON_B',L0,IP0,                         
     &                  TYPRET,I1,X1,CHARRE,L1,LTLB)                               
      IF (IERR.NE.0) RETURN                                                     
      IF (LTLB.NE.0) THEN                                                       
         CALL DYNE20(LTLB,KTLIAB,0,LMODYN)                                               
         IF (IERR.NE.0) RETURN                                                  
      ENDIF                                                                     
*          
      ENDIF                                                                    
      END