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