C CSON      SOURCE    CHAT      06/08/24    21:25:45     5529           
      SUBROUTINE CSON
*-----------------------------------------------------------------------
*
*   chapeau de l'opérateur cson
*
*   appelle la routine clf1.eso qui est aussi appelé par taille et cfl
*
*-----------------------------------------------------------------------
*
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
*
      IRET = 0
      IRET1 = 0
      IRET2 = 0
      IRET3 = 0
      IPCHA1 = 0
      IPCHA2 = 0
      IPCHA3 = 0
*
*    argument obligatoire model
      CALL LIROBJ('MMODEL',IPMODL,1,IRET)
      IF (IRET.EQ.0) RETURN
*    argument obligatoire chamelem
      CALL LIROBJ('MCHAML',IPCHA1,1,IRET1)
      IF (IRET1.EQ.0) RETURN
      ICAS = 4

*
*  ipcha1 champ de caractéristiques
*
      CALL CFL1(IPMODL,IPCHA1,IPCHA2,IPCHA3,IPCHA4,ICAS)
*
*  en retour on récupère le champ par élément de composante 'cson'
*
      IF ( IPCHA4 .EQ. 0) RETURN
*
      CALL ECROBJ('MCHAML',IPCHA4)
      RETURN
      END