Télécharger cson.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  15.  
  16. *
  17. IRET = 0
  18. IRET1 = 0
  19. IPCHA1 = 0
  20. IPCHA2 = 0
  21. IPCHA3 = 0
  22. *
  23. * argument obligatoire model
  24. CALL LIROBJ('MMODEL ',IPMODL,1,IRET)
  25. CALL ACTOBJ('MMODEL ',IPMODL,1)
  26. IF (IERR .NE. 0) RETURN
  27.  
  28. * argument obligatoire chamelem
  29. CALL LIROBJ('MCHAML ',IPIN,1,IRET1)
  30. CALL ACTOBJ('MCHAML ',IPIN,1)
  31. IF (IERR .NE. 0) RETURN
  32.  
  33. CALL REDUAF(IPIN,IPMODL,IPCHA1,0,IR,KER)
  34. IF(IR .NE. 1) CALL ERREUR(KER)
  35. IF(IERR .NE. 0) RETURN
  36.  
  37. ICAS = 4
  38.  
  39. *
  40. * ipcha1 champ de caractéristiques
  41. *
  42. CALL CFL1(IPMODL,IPCHA1,IPCHA2,IPCHA3,IPCHA4,ICAS)
  43. IF(IERR .NE. 0) RETURN
  44. *
  45. * en retour on récupère le champ par élément de composante 'cson'
  46. *
  47. IF ( IPCHA4 .EQ. 0) RETURN
  48. *
  49. CALL ACTOBJ('MCHAML ',IPCHA4,1)
  50. CALL ECROBJ('MCHAML ',IPCHA4)
  51.  
  52. END
  53.  
  54.  
  55.  

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