Télécharger devlia.eso

Retour à la liste

Numérotation des lignes :

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

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