C NORMB3    SOURCE    CB215821  18/04/04    21:15:09     9798           
      SUBROUTINE NORMB3(ICHP,IRIG,VNOR)
************************************************************************
* NOM         : NORMB3
* DESCRIPTION : Sous-programme de NNOR associe a la normalisation L2
*               d'un objet CHPOINT
************************************************************************
* APPELE PAR : nnor.eso ; normb5.eso
************************************************************************
* ENTREES : ICHP = pointeur vers le CHPOINT a normer
*                  (ATTENTION : NNOR EST UNE DIRECTIVE)
*           IRIG = pointeur vers la RIGIDITE associee a la norme L2
*                  (0 si aucune)
* SORTIES : VNOR = coefficient de normalisation
************************************************************************
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)


-INC PPARAM
-INC CCOPTIO
-INC CCREEL

      IF (IRIG .GT. 0) THEN
         CALL XTMX(ICHP,IRIG,VAL)
      ELSE
         CALL XTX1(ICHP,VAL)
      ENDIF

      IF(VAL .LE. 0.D0) THEN
        REAERR(1)=VAL
        REAERR(2)=0.D0
        CALL ERREUR(1063)
        RETURN
      ENDIF
      VNOR=SQRT(VAL)
      
C     Division du CHPOINT par le FLOTTANT VNOR
      IOPERA=5
      IARGU =2
      I1    =0
      CALL OPCHP1(ICHP,IOPERA,IARGU,I1,VNOR,ICHP1,IRET)
      IF (IRET.EQ.0) CALL ERREUR(5)
      ICHP=ICHP1

      RETURN
      END