Télécharger devlia.eso

Retour à la liste

Numérotation des lignes :

  1. C DEVLIA SOURCE BP208322 18/07/11 21:15:09 9879
  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. -INC CCOPTIO
  29. -INC SMCOORD
  30. -INC SMMODEL
  31. *
  32. SEGMENT,ICPR(XCOOR(/1)/(IDIM+1))
  33. *
  34. * segment chapeau modeles liaisons
  35. SEGMENT MOLIAI
  36. integer modtla,modtlb
  37. ENDSEGMENT
  38. CHARACTER*8 TYPRET,CHARRE
  39. LOGICAL L0,L1,lmodyn
  40. *
  41. ICPR = KCPR
  42. LTLA = 0
  43. LTLB = 0
  44.  
  45. *---- Cas d'une table pasapas en entree --------------------------------
  46. IF (lmodyn) THEN
  47.  
  48. moliai = ltlia
  49. segact moliai
  50. if (modtla.gt.0) then
  51. mmode1 = modtla
  52. segact mmode1
  53. endif
  54.  
  55. if (modtlb.gt.0) then
  56. mmode2 = modtlb
  57. ltlb = modtlb
  58. segact mmode2
  59. if (mmode2.kmodel(/1).gt.0) then
  60. CALL DYNE70(LTLB,KTLIAB,ITCARA)
  61. endif
  62. endif
  63.  
  64. *---- Cas historique (syntaxe par tables) ------------------------------
  65. ELSE
  66. *
  67. * Liaisons sur la base A
  68. *
  69. TYPRET = ' '
  70. CALL ACCTAB(LTLIA,'MOT',I0,X0,'LIAISON_A',L0,IP0,
  71. & TYPRET,I1,X1,CHARRE,L1,LTLA)
  72. IF (IERR.NE.0) RETURN
  73. IF (LTLA.NE.0) THEN
  74. CALL DYNE19(LTLA,KCPR,PDT,KTLIAA,IALGO)
  75. IF (IERR.NE.0) RETURN
  76. ENDIF
  77. *
  78. * Liaisons sur la base B
  79. *
  80. TYPRET = ' '
  81. CALL ACCTAB(LTLIA,'MOT',I0,X0,'LIAISON_B',L0,IP0,
  82. & TYPRET,I1,X1,CHARRE,L1,LTLB)
  83. IF (IERR.NE.0) RETURN
  84. IF (LTLB.NE.0) THEN
  85. CALL DYNE20(LTLB,KTLIAB)
  86. IF (IERR.NE.0) RETURN
  87. ENDIF
  88. *
  89. ENDIF
  90.  
  91. END
  92.  
  93.  
  94.  

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