Télécharger la plaquette Cast3M


fr en

Télécharger graf.eso

Retour à la liste

Numérotation des lignes : 

graf

  1. C GRAF      SOURCE    CB215821  23/11/02    21:15:04     11779          
  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.       CALL ACTOBJ('MMODEL  ',IPMODL,1)   
  43. *
  44. *       LECTURE D'UN CHPOINT
  45. *
  46.       CALL LIROBJ('CHPOINT',IPCHP1,0,IRET1)
  47.       IF(IERR.NE.0) RETURN
  48. *
  49. *    CHPOINT DE DEPLACEMENT ---> MCHAML AUX NOEUDS
  50. *
  51.       IF (IRET1.NE.0) THEN
  52.          CALL ACTOBJ('CHPOINT',IPCHP1,1)
  53.          CALL CHAME1(0,IPMODL,IPCHP1,' ',IPCHE2,1)
  54.          IF (IERR.NE.0) RETURN
  55. *
  56. *     LECTURE D'UN PREMIER MCHAML (DEPLACEMENTS)
  57. *
  58.       ELSE
  59.          CALL LIROBJ('MCHAML',IPIN,1,IRET2)
  60.          IF (IERR.NE.0) RETURN
  61.          CALL ACTOBJ('MCHAML  ',IPIN,1)   
  62.          CALL REDUAF(IPIN,IPMODL,IPCHE2,0,IR,KER)
  63.          IF(IR   .NE. 1) CALL ERREUR(KER)
  64.          IF(IERR .NE. 0) RETURN
  65.       ENDIF
  66. *
  67. *     LECTURE D'UN DEUXIEME MCHAML (CARACTERISTIQUE)
  68. *
  69.       CALL LIROBJ('MCHAML',IPIN,0,IRET3)
  70.       IF (IERR.NE.0) RETURN      
  71.       IPCHE1=0
  72.       IF (IRET3 .EQ. 1) THEN
  73.         CALL ACTOBJ('MCHAML  ',IPIN,1)   
  74.         CALL REDUAF(IPIN,IPMODL,IPCHE1,0,IR,KER)
  75.         IF(IR   .NE. 1) CALL ERREUR(KER)
  76.         IF(IERR .NE. 0) RETURN
  77.       ENDIF
  78.  
  79.       IF (IRET3.NE.0.AND.IRET2.NE.0) THEN
  80.         CALL RNGCHA (IPCHE1,IPCHE2,'CARACTERISTIQUES',
  81.      1               'DEPLACEMENTS',IPCHA1,IPCHA2)
  82.         IF(IPCHA1.EQ.0.OR.IPCHA2.EQ.0)THEN
  83.            CALL ERREUR(805)
  84.            RETURN
  85.         ENDIF
  86.         IPCHE1=IPCHA1
  87.         IPCHE2=IPCHA2
  88.       ENDIF
  89. *
  90. *     GESTION DES OPERANDES
  91. *
  92.       CALL GRAF1(IPMODL,IPCHE2,IPCHE1,IPCHL1,IRET)
  93.       IF(IERR .NE. 0) RETURN
  94. *
  95.       IF (IRET.EQ.1) THEN
  96.           CALL ACTOBJ('MCHAML',IPCHL1,1)
  97.           CALL ECROBJ('MCHAML',IPCHL1)
  98.       ENDIF
  99.  
  100.       RETURN
  101.       END
  102.  
  103.  

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