Télécharger crit.eso

Retour à la liste

Numérotation des lignes :

crit
  1. C CRIT SOURCE JB251061 23/05/10 21:15:08 11667
  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.  
  22. -INC PPARAM
  23. -INC CCOPTIO
  24. -INC SMCHAML
  25. *
  26. IPCHE1=0
  27. IPCHE2=0
  28. IPCAR=0
  29. *
  30. * LECTURE D'UN MODEL
  31. *
  32. CALL LIROBJ('MMODEL ',IPMODL,1,IRT)
  33. CALL ACTOBJ('MMODEL ',IPMODL,1)
  34. IF(IERR.NE.0)RETURN
  35. *
  36. CALL LIROBJ('MCHAML ',IPIN,1,IRT)
  37. CALL ACTOBJ('MCHAML ',IPIN,1)
  38. IF(IERR.NE.0)RETURN
  39. CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  40. IF(IR .NE. 1) CALL ERREUR(KER)
  41. IF(IERR .NE. 0) RETURN
  42.  
  43. MCHELM=IPCHE1
  44. IF(TITCHE.NE.'CONTRAINTES')THEN
  45. MOTERR(1:32)='CONTRAIN'
  46. CALL ERREUR(565)
  47. RETURN
  48. ENDIF
  49. *
  50. CALL LIROBJ('MCHAML ',IPIN,1,IRT)
  51. CALL ACTOBJ('MCHAML ',IPIN,1)
  52. IF(IERR.NE.0)RETURN
  53. CALL REDUAF(IPIN,IPMODL,IPCHE2,0,IR,KER)
  54. IF(IR .NE. 1) CALL ERREUR(KER)
  55. IF(IERR .NE. 0) RETURN
  56.  
  57. MCHELM=IPCHE2
  58. IF(TITCHE.NE.'VARIABLES INTERNES')THEN
  59. MOTERR(1:32)='VARINTER'
  60. CALL ERREUR(565)
  61. RETURN
  62. ENDIF
  63. *
  64. CALL LIROBJ('MCHAML ',IPIN,1,IRT)
  65. CALL ACTOBJ('MCHAML ',IPIN,1)
  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. IF(TITCHE.NE.'CARACTERISTIQUES')THEN
  73. MOTERR(1:32)='CARACTER'
  74. CALL ERREUR(565)
  75. RETURN
  76. ENDIF
  77. *
  78. CALL CRITP(IPMODL,IPCHE1,IPCHE2,IPCAR,IPCHES)
  79. IF(IERR .NE. 0) RETURN
  80.  
  81. CALL ACTOBJ('MCHAML ',IPCHES,1)
  82. CALL ECROBJ('MCHAML ',IPCHES)
  83.  
  84. END
  85.  
  86.  
  87.  
  88.  

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