C CSON      SOURCE    CB215821  19/08/01    21:15:34     10279          
      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)
      

-INC PPARAM
-INC CCOPTIO

*
      IRET   = 0
      IRET1  = 0
      IPCHA1 = 0
      IPCHA2 = 0
      IPCHA3 = 0
*
*    argument obligatoire model
      CALL LIROBJ('MMODEL  ',IPMODL,1,IRET)
      CALL ACTOBJ('MMODEL  ',IPMODL,1)
      IF (IERR .NE. 0) RETURN

*    argument obligatoire chamelem
      CALL LIROBJ('MCHAML  ',IPIN,1,IRET1)
      CALL ACTOBJ('MCHAML  ',IPIN,1)
      IF (IERR .NE. 0) RETURN

      CALL REDUAF(IPIN,IPMODL,IPCHA1,0,IR,KER)
      IF(IR   .NE. 1) CALL ERREUR(KER)
      IF(IERR .NE. 0) RETURN
      
      ICAS = 4

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

      END