Télécharger devlia.eso

Retour à la liste

Numérotation des lignes :

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

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