Télécharger crit.eso

Retour à la liste

Numérotation des lignes :

  1. C CRIT SOURCE CB215821 16/12/05 21:15:14 9237
  2. SUBROUTINE CRIT
  3. C=======================================================================
  4. C
  5. C OPERATEUR CRITERE
  6. C
  7. C SCA = CRIT MODL SIG VAR CAR
  8. C
  9. C MMODEL | MODL OBJET MODELE
  10. C
  11. C | SIG CONTRAINTES
  12. C MCHAMLS | VAR VARIABLES INTERNES
  13. C | CAR CONSTANTES DU MATERIAU ET CARACTERISTIQUES
  14. C | GEOMETRIQUES ( SELON LES ELEMENTS )
  15. C | SCA CRITERE RESULTAT
  16. C
  17. C=======================================================================
  18. IMPLICIT INTEGER(I-N)
  19. IMPLICIT REAL*8(A-H,O-Z)
  20. *
  21. -INC CCOPTIO
  22. -INC SMCHAML
  23. *
  24. IPCHE1=0
  25. IPCHE2=0
  26. IPCAR=0
  27. *
  28. * LECTURE D'UN MODEL
  29. *
  30. CALL LIROBJ('MMODEL',IPMODL,1,IRT)
  31. IF(IERR.NE.0)RETURN
  32. *
  33. CALL LIROBJ('MCHAML',IPIN,1,IRT)
  34. IF(IERR.NE.0)RETURN
  35. CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  36. IF(IR .NE. 1) CALL ERREUR(KER)
  37. IF(IERR .NE. 0) RETURN
  38.  
  39. MCHELM=IPCHE1
  40. SEGACT MCHELM
  41. IF(TITCHE.NE.'CONTRAINTES')THEN
  42. MOTERR(1:8)='CONTRAIN'
  43. CALL ERREUR(109)
  44. SEGDES MCHELM
  45. RETURN
  46. ENDIF
  47. SEGDES MCHELM
  48. *
  49. CALL LIROBJ('MCHAML',IPIN,1,IRT)
  50. IF(IERR.NE.0)RETURN
  51. CALL REDUAF(IPIN,IPMODL,IPCHE2,0,IR,KER)
  52. IF(IR .NE. 1) CALL ERREUR(KER)
  53. IF(IERR .NE. 0) RETURN
  54.  
  55. MCHELM=IPCHE2
  56. SEGACT MCHELM
  57. IF(TITCHE.NE.'VARIABLES INTERNES')THEN
  58. MOTERR(1:8)='VARINTER'
  59. CALL ERREUR(109)
  60. SEGDES MCHELM
  61. RETURN
  62. ENDIF
  63. SEGDES MCHELM
  64. *
  65. CALL LIROBJ('MCHAML',IPIN,1,IRT)
  66. IF(IERR.NE.0)RETURN
  67. CALL REDUAF(IPIN,IPMODL,IPCAR,0,IR,KER)
  68. IF(IR .NE. 1) CALL ERREUR(KER)
  69. IF(IERR .NE. 0) RETURN
  70.  
  71. MCHELM=IPCAR
  72. SEGACT MCHELM
  73. IF(TITCHE.NE.'CARACTERISTIQUES')THEN
  74. MOTERR(1:8)='CARACTER'
  75. CALL ERREUR(109)
  76. SEGDES MCHELM
  77. RETURN
  78. ENDIF
  79. SEGDES MCHELM
  80. *
  81. CALL CRITP(IPMODL,IPCHE1,IPCHE2,IPCAR,IPCHES)
  82. IF(IERR .NE. 0) RETURN
  83.  
  84. CALL ECROBJ('MCHAML',IPCHES)
  85.  
  86. RETURN
  87. END
  88.  
  89.  
  90.  

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