Télécharger la plaquette Cast3M


fr en

Télécharger cson.eso

Retour à la liste

Numérotation des lignes : 

cson

  1. C CSON      SOURCE    CB215821  19/08/01    21:15:34     10279          
  2.       SUBROUTINE CSON
  3. *-----------------------------------------------------------------------
  4. *
  5. *   chapeau de l'opérateur cson
  6. *
  7. *   appelle la routine clf1.eso qui est aussi appelé par taille et cfl
  8. *
  9. *-----------------------------------------------------------------------
  10. *
  11.       IMPLICIT INTEGER(I-N)
  12.       IMPLICIT REAL*8(A-H,O-Z)
  13.  
  14.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17.  
  18. *
  19.       IRET   = 0
  20.       IRET1  = 0
  21.       IPCHA1 = 0
  22.       IPCHA2 = 0
  23.       IPCHA3 = 0
  24. *
  25. *    argument obligatoire model
  26.       CALL LIROBJ('MMODEL  ',IPMODL,1,IRET)
  27.       CALL ACTOBJ('MMODEL  ',IPMODL,1)
  28.       IF (IERR .NE. 0) RETURN
  29.  
  30. *    argument obligatoire chamelem
  31.       CALL LIROBJ('MCHAML  ',IPIN,1,IRET1)
  32.       CALL ACTOBJ('MCHAML  ',IPIN,1)
  33.       IF (IERR .NE. 0) RETURN
  34.  
  35.       CALL REDUAF(IPIN,IPMODL,IPCHA1,0,IR,KER)
  36.       IF(IR   .NE. 1) CALL ERREUR(KER)
  37.       IF(IERR .NE. 0) RETURN
  38.  
  39.       ICAS = 4
  40.  
  41. *
  42. *  ipcha1 champ de caractéristiques
  43. *
  44.       CALL CFL1(IPMODL,IPCHA1,IPCHA2,IPCHA3,IPCHA4,ICAS)
  45.       IF(IERR .NE. 0) RETURN
  46. *
  47. *  en retour on récupère le champ par élément de composante 'cson'
  48. *
  49.       IF ( IPCHA4 .EQ. 0) RETURN
  50. *
  51.       CALL ACTOBJ('MCHAML  ',IPCHA4,1)
  52.       CALL ECROBJ('MCHAML  ',IPCHA4)
  53.  
  54.       END
  55.  
  56.  
  57.  

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