C VSUR      SOURCE    PV        20/03/31    14:34:23     10567          
      SUBROUTINE VSUR
C=====================================================================
C    OPERATEUR POUR CALCULER LES VECTEURS SURFACIQUES AUX POINTS
C               DE GAUSS DES COQUES
C
C    CHAM = VSUR  MODL  (MOT1)
C              MODL : MODELE de calcul , type MMODEL
C              CHAM : CHAMELEM de sous type VECTEUR contenant
C                       les JACOBIENS aux POINTS DE GAUSS
C              MOT1 : MOT 'NORM' : les vecteurs sont normes
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 LES VECTEURS SURFACIQUES
C
C
      CHARACTER*4 MCLE(1)
      DATA NCLE /1/
      DATA MCLE /'NORM'/
      segact mcoord
      IPMODL=0
      IPCHE=0
      IRET=0
C
C     LECTURE DU MODELE
C
      CALL LIROBJ('MMODEL',IPMODL,1,IRTM)
      IF (IERR.NE.0) RETURN
C
C     LECTURE DU MOT
C
      CALL LIRMOT(MCLE,NCLE,ICLE,0)
      IF (IERR.NE.0) RETURN
      IF (ICLE.NE.1) THEN
         INORM = 0
      ELSE
         INORM = 1
      ENDIF
C
C     CALCUL DU JACOBIEN
C
      CALL JACONO(IPMODL,INORM,IPCHE,IRET)
C
      IF(IRET.NE.0) CALL ECROBJ('MCHAML',IPCHE)
      RETURN
      END