Télécharger cson.eso

Retour à la liste

Numérotation des lignes :

  1. C CSON SOURCE CB215821 16/12/05 21:15:15 9237
  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. IF (IERR .NE. 0) RETURN
  26.  
  27. * argument obligatoire chamelem
  28. CALL LIROBJ('MCHAML',IPIN,1,IRET1)
  29. IF (IERR .NE. 0) RETURN
  30. CALL REDUAF(IPIN,IPMODL,IPCHA1,0,IR,KER)
  31. IF(IR .NE. 1) CALL ERREUR(KER)
  32. IF(IERR .NE. 0) RETURN
  33.  
  34. ICAS = 4
  35.  
  36. *
  37. * ipcha1 champ de caractéristiques
  38. *
  39. CALL CFL1(IPMODL,IPCHA1,IPCHA2,IPCHA3,IPCHA4,ICAS)
  40. IF(IERR .NE. 0) RETURN
  41. *
  42. * en retour on récupère le champ par élément de composante 'cson'
  43. *
  44. IF ( IPCHA4 .EQ. 0) RETURN
  45. *
  46. CALL ECROBJ('MCHAML',IPCHA4)
  47. RETURN
  48. END
  49.  
  50.  
  51.  

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