Télécharger graf.eso

Retour à la liste

Numérotation des lignes :

  1. C GRAF SOURCE CB215821 16/12/05 21:39:32 9237
  2.  
  3. SUBROUTINE GRAF
  4.  
  5. IMPLICIT INTEGER(I-N)
  6. IMPLICIT REAL*8(A-H,O-Z)
  7.  
  8. *--------------------------------------------------------------------*
  9. * *
  10. * Opérateur GRADIENT DE FLEXION *
  11. * ________________________________ *
  12. * *
  13. * Syntaxe : GRAF1 = GRAF MOD1 DEP1 ( CAR1 ) ; *
  14. * *
  15. * Entrees: *
  16. * *
  17. * MOD1 objet MMODEL *
  18. * DEP1 CHPOINT ou MCHAML de déplacements *
  19. * CAR1 MCHAML de sous-type CARACTERISTIQUES *
  20. * *
  21. * Sortie: *
  22. * *
  23. * GRAF1 MCHAML de sous-type GRADIENT DE FLEXION *
  24. * *
  25. * passage aux nouveaux MCHAMLs par P.DOWLATYARI le 28/03/91 *
  26. * *
  27. *--------------------------------------------------------------------*
  28.  
  29. -INC PPARAM
  30. -INC CCOPTIO
  31. *
  32. IPCHL1=0
  33. IPCHE1=0
  34. IRET1=0
  35. IRET2=0
  36. IRET3=0
  37. *
  38. * LECTURE D'UN MMODEL
  39. *
  40. CALL LIROBJ('MMODEL',IPMODL,1,IRET)
  41. IF (IERR.NE.0) RETURN
  42. *
  43. * LECTURE D'UN CHPOINT
  44. *
  45. CALL LIROBJ('CHPOINT',IPCHP1,0,IRET1)
  46. IF(IERR.NE.0) RETURN
  47. *
  48. * CHPOINT DE DEPLACEMENT ---> MCHAML AUX NOEUDS
  49. *
  50. IF (IRET1.NE.0) THEN
  51. CALL CHAME1(0,IPMODL,IPCHP1,' ',IPCHE2,1)
  52. IF (IERR.NE.0) RETURN
  53. *
  54. * LECTURE D'UN PREMIER MCHAML (DEPLACEMENTS)
  55. *
  56. ELSE
  57. CALL LIROBJ('MCHAML',IPIN,1,IRET2)
  58. IF (IERR.NE.0) RETURN
  59. CALL REDUAF(IPIN,IPMODL,IPCHE2,0,IR,KER)
  60. IF(IR .NE. 1) CALL ERREUR(KER)
  61. IF(IERR .NE. 0) RETURN
  62. ENDIF
  63. *
  64. * LECTURE D'UN DEUXIEME MCHAML (CARACTERISTIQUE)
  65. *
  66. CALL LIROBJ('MCHAML',IPIN,0,IRET3)
  67. IF (IERR.NE.0) RETURN
  68. IPCHE1=0
  69. IF (IRET3 .EQ. 1) THEN
  70. CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  71. IF(IR .NE. 1) CALL ERREUR(KER)
  72. IF(IERR .NE. 0) RETURN
  73. ENDIF
  74.  
  75. IF (IRET3.NE.0.AND.IRET2.NE.0) THEN
  76. CALL RNGCHA (IPCHE1,IPCHE2,'CARACTERISTIQUES',
  77. 1 'DEPLACEMENTS',IPCHA1,IPCHA2)
  78. IF(IPCHA1.EQ.0.OR.IPCHA2.EQ.0)THEN
  79. CALL ERREUR(805)
  80. RETURN
  81. ENDIF
  82. IPCHE1=IPCHA1
  83. IPCHE2=IPCHA2
  84. ENDIF
  85. *
  86. * GESTION DES OPERANDES
  87. *
  88. CALL GRAF1(IPMODL,IPCHE2,IPCHE1,IPCHL1,IRET)
  89. IF(IERR .NE. 0) RETURN
  90. *
  91. IF (IRET.EQ.1) THEN
  92. IF (IRET1.NE.0) CALL DTCHAM(IPCHE2)
  93. CALL ECROBJ('MCHAML',IPCHL1)
  94. ENDIF
  95.  
  96. RETURN
  97. END
  98.  
  99.  
  100.  
  101.  

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