C JACO      SOURCE    PV        20/03/31    14:33:28     10567          
      SUBROUTINE JACO
C=====================================================================
C    OPERATEUR POUR CALCULER LE JACOBIEN AUX POINTS DE GAUSS
C
C    CHAM = JACO  MODL
C              MODL : MODELE de calcul , type MMODEL
C              CHAM : CHAMELEM de sous type SCALAIRE contenant
C                       les JACOBIENS aux POINTS DE GAUSS
C
C=====================================================================
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
      PARAMETER(XZER=0.D0,UNDEMI=.5D0,UN=1.D0)

-INC PPARAM
-INC CCOPTIO
-INC SMCHAML
-INC SMCOORD
C
C
C
C
C           IPMODL          MODELE MMODEL
C           IPCHE           CHAMELEM  DE SOUS TYPE SCALAIRE
C                           CONTENANT LE JACOBIEN
C
C
      IPMODL=0
      IPCHE=0
      IRET=0
C
C     LECTURE DU MODELE
C
      CALL LIROBJ('MMODEL  ',IPMODL,1,IRTM)
      CALL ACTOBJ('MMODEL  ',IPMODL,1)
      IF (IERR.NE.0) RETURN
C
C     CALCUL DU JACOBIEN
C
      segact mcoord
      CALL JACOPO(IPMODL,IPCHE,IRET)
C
      IF(IRET.NE.0) THEN
        CALL ACTOBJ('MCHAML  ',IPCHE,1)
        CALL ECROBJ('MCHAML  ',IPCHE)
      ENDIF
      END