Télécharger la plaquette Cast3M


fr en

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