Télécharger devlia.eso

Retour à la liste

Numérotation des lignes :

  1. C DEVLIA SOURCE PV 20/03/30 21:17:51 10567
  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.  

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