Télécharger la plaquette Cast3M


fr en

Télécharger devlia.eso

Retour à la liste

Numérotation des lignes : 

devlia

  1. C DEVLIA    SOURCE    CB215821  24/04/12    21:15:35     11897          
  2.       SUBROUTINE DEVLIA(LTLIA,KCPR,PDT,KTLIAA,KTLIAB,ITCARA,LMODYN,
  3.      &                  IALGO)
  4.       IMPLICIT INTEGER(I-N)
  5.       IMPLICIT REAL*8(A-H,O-Z)
  6. *--------------------------------------------------------------------*
  7. *                                                                    *
  8. *     Operateur DYNE : algorithme de Fu - de Vogelaere               *
  9. *     ________________________________________________               *
  10. *                                                                    *
  11. *     Remplissage des tableaux de description des liaisons a         *
  12. *     partir des informations contenues dans la table ITLIA.         *
  13. *                                                                    *
  14. *     Parametres:                                                    *
  15. *                                                                    *
  16. * e   LTLIA   Table rassemblant la description des liaisons          *
  17. * e   KCPR    Segment descriptif des points.                         *
  18. * e   PDT     Pas de temps.                                          *
  19. * e   IALGO   =1 SI DE_VOGELAERE, =2 SI DIFFERENCES_CENTREES         *
  20. * s   KTLIAA  Segment descriptif des liaisons en base A              *
  21. * s   KTLIAB  Segment descriptif des liaisons en base B              *
  22. *                                                                    *
  23. *     Auteur, date de creation:                                      *
  24. *     Lionel VIVAN, le 16 aout 1989.                                 *
  25. *                                                                    *
  26. *--------------------------------------------------------------------*
  27. *
  28.  
  29. -INC PPARAM
  30. -INC CCOPTIO
  31. -INC SMCOORD
  32. -INC SMMODEL
  33. *
  34.       SEGMENT,ICPR(nbpts)
  35. *
  36. * segment chapeau modeles liaisons
  37.       SEGMENT MOLIAI
  38.          integer modtla,modtlb
  39.       ENDSEGMENT
  40.       CHARACTER*8 TYPRET,CHARRE
  41.       LOGICAL L0,L1,lmodyn
  42. *
  43.       ICPR = KCPR
  44.       LTLA = 0
  45.       LTLB = 0
  46.  
  47. *---- Cas d'une table pasapas en entree --------------------------------
  48.       IF (lmodyn) THEN
  49.  
  50.         moliai = ltlia
  51.         segact moliai
  52.         if (modtla.gt.0) then
  53.           mmode1 = modtla
  54.           segact mmode1
  55.         endif
  56.  
  57.         if (modtlb.gt.0) then
  58.           mmode2 = modtlb
  59.           ltlb = modtlb
  60.           segact mmode2
  61.           if (mmode2.kmodel(/1).gt.0) then
  62.              CALL DYNE70(LTLB,KTLIAB,ITCARA)
  63.           endif
  64.         endif
  65.  
  66. *---- Cas historique (syntaxe par tables) ------------------------------        
  67.       ELSE
  68. *
  69. *       Liaisons sur la base A
  70. *       
  71.         TYPRET = ' '
  72.         CALL ACCTAB(LTLIA,'MOT',I0,X0,'LIAISON_A',L0,IP0,
  73.      &                    TYPRET,I1,X1,CHARRE,L1,LTLA)
  74.         IF (IERR.NE.0) RETURN
  75.         IF (LTLA.NE.0) THEN
  76.            CALL DYNE19(LTLA,KCPR,PDT,KTLIAA,IALGO)
  77.            IF (IERR.NE.0) RETURN
  78.         ENDIF
  79. *       
  80. *       Liaisons sur la base B
  81. *       
  82.         TYPRET = ' '
  83.         CALL ACCTAB(LTLIA,'MOT',I0,X0,'LIAISON_B',L0,IP0,
  84.      &                    TYPRET,I1,X1,CHARRE,L1,LTLB)
  85.         IF (IERR.NE.0) RETURN
  86.         IF (LTLB.NE.0) THEN
  87.            CALL DYNE20(LTLB,KTLIAB)
  88.            IF (IERR.NE.0) RETURN
  89.         ENDIF
  90. *       
  91.       ENDIF
  92.  
  93.       END
  94.  
  95.  
  96.  
  97.  
  98.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales