Esope source files

   1 : C CSON      SOURCE    CHAT      06/08/24    21:25:45     5529           
   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 :       IRET = 0
  15 :       IRET1 = 0
  16 :       IRET2 = 0
  17 :       IRET3 = 0
  18 :       IPCHA1 = 0
  19 :       IPCHA2 = 0
  20 :       IPCHA3 = 0
  21 : *
  22 : *    argument obligatoire model
  22 :       CALL LIROBJ('MMODEL',IPMODL,1,IRET)
  23 :       IF (IRET.EQ.0) RETURN
  24 : *    argument obligatoire chamelem
  24 :       CALL LIROBJ('MCHAML',IPCHA1,1,IRET1)
  25 :       IF (IRET1.EQ.0) RETURN
  26 :       ICAS = 4
  27 : 
  28 : *
  29 : *  ipcha1 champ de caractéristiques
  30 : *
  30 :       CALL CFL1(IPMODL,IPCHA1,IPCHA2,IPCHA3,IPCHA4,ICAS)
  31 : *
  32 : *  en retour on récupère le champ par élément de composante 'cson'
  33 : *
  34 :       IF ( IPCHA4 .EQ. 0) RETURN
  35 : *
  35 :       CALL ECROBJ('MCHAML',IPCHA4)
  36 :       RETURN
  37 :       END
  38 :  
  39 :  
  40 :