Télécharger depb.eso

Retour à la liste

Numérotation des lignes :

  1. C DEPB SOURCE BP208322 15/06/22 21:17:04 8543
  2. SUBROUTINE DEPB
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C ====================================================================
  6. C = L'OPERATEUR DEPB FABRIQUE UN OBJET ATTACHE CORRESPONDANT A UNE =
  7. C = LIAISON DE TYPE DEPLACEMENT IMPOSE SUR MODES BLOQUES =
  8. C = SYNTAXE : =
  9. C = ATTA1=DEVE CHP1 STR1 ; =
  10. C = ATTA1 OBJET ATTACHE =
  11. C = CHP1 OBJET CHAMPOINT FABRIQUE PAR DEPIMP =
  12. C = STR1 OBJET STRUCTURE =
  13. C = CREATION 03/09/86 =
  14. C = PROGRAMMEUR GUILBAUD =
  15. C ====================================================================
  16. C
  17. -INC CCOPTIO
  18. -INC CCHAMP
  19. -INC SMCOORD
  20. -INC SMATTAC
  21. -INC SMELEME
  22. -INC SMSTRUC
  23. -INC SMCHPOI
  24. CALL LIROBJ('CHPOINT ',IRET1,1,IRETOU)
  25. CALL LIROBJ('STRUCTUR',IRET2,1,IRETOU)
  26. IF(IERR.NE.0) RETURN
  27. C
  28. MSTRUC=IRET2
  29. SEGACT MSTRUC
  30. NBSTRU=LISTRU(/1)
  31. MSOSTU=LISTRU(1)
  32. SEGDES MSTRUC
  33. IF(NBSTRU.NE.1) THEN
  34. C *** LA SOUS-STRUCTURE N'EST PAS ELEMENTAIRE
  35. INTERR(1)=MSOSTU
  36. CALL ERREUR(90)
  37. RETURN
  38. ENDIF
  39. C
  40. MCHPOI=IRET1
  41. SEGACT MCHPOI
  42. IF(MTYPOI.NE.'FLX ') THEN
  43. C *** LE CHAMPOINT N'EST PAS DE SOUS-TYPE MOFLX
  44. MOTERR(1:8)='CHPOINT'
  45. CALL ERREUR(302)
  46. RETURN
  47. ENDIF
  48. SEGDES MCHPOI
  49. C VERIF DE COMPATIBILITE ENTRE LA STRUCTURE ET LE CHAMPOINT A CREER A FA
  50. N=1
  51. SEGINI MATTAC
  52. M=0
  53. N=1
  54. SEGINI MSOUMA
  55. LISATT(1)=MSOUMA
  56. ITYATT='DEPI'
  57. IPHYCH=0
  58. IGEOCH=0
  59. SEGACT MCOORD
  60. C
  61. C CREATION DU CHAMPOINT DES VARIABLES DE LIAISONS
  62. C
  63. NBNO=XCOOR(/1)/(IDIM+1)
  64. XCOOR(**)=0.D0
  65. XCOOR(**)=0.D0
  66. IF(IDIM.EQ.3) XCOOR(**)=0.D0
  67. XCOOR(**)=0.D0
  68. C NSOUPO=1
  69. C SEGINI MCHPOI
  70. C NC=1
  71. C SEGINI MSOUPO
  72. C IPCHP(1)=MSOUPO
  73. C IFOPOI=2
  74. NBNN=1
  75. NBELEM=1
  76. NBSOUS=0
  77. NBREF=0
  78. SEGINI MELEME
  79. C IGEOC=MELEME
  80. ITYPEL=1
  81. NUM(1,1)=NBNO+1
  82. C N=1
  83. C SEGINI MPOVAL
  84. C IPOVAL=MPOVAL
  85. C NOCOMP(1)=MOFLX
  86. C NOHARM(1)=0
  87. C VPOCHA(1,1)=0.D0
  88. C SEGDES MPOVAL,MSOUPO,MCHPOI
  89. SEGDES MELEME
  90. N=1
  91. SEGINI MJONCT
  92. IATREL(1)=MJONCT
  93. MJOTYP='DEPI'
  94. MJOPOI=MELEME
  95. MJODDL='FLX'
  96. ISTRJO(1)=MSOSTU
  97. IPCHJO(1)=IRET1
  98. IPOSJO(1)=0
  99. SEGDES MJONCT,MSOUMA,MATTAC
  100. CALL ECROBJ('ATTACHE ',MATTAC)
  101. RETURN
  102. END
  103.  
  104.  
  105.  
  106.  
  107.  

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