Télécharger la plaquette Cast3M


fr en

Télécharger normb3.eso

Retour à la liste

Numérotation des lignes : 

normb3

  1. C NORMB3    SOURCE    CB215821  18/04/04    21:15:09     9798           
  2.       SUBROUTINE NORMB3(ICHP,IRIG,VNOR)
  3. ************************************************************************
  4. * NOM         : NORMB3
  5. * DESCRIPTION : Sous-programme de NNOR associe a la normalisation L2
  6. *               d'un objet CHPOINT
  7. ************************************************************************
  8. * APPELE PAR : nnor.eso ; normb5.eso
  9. ************************************************************************
  10. * ENTREES : ICHP = pointeur vers le CHPOINT a normer
  11. *                  (ATTENTION : NNOR EST UNE DIRECTIVE)
  12. *           IRIG = pointeur vers la RIGIDITE associee a la norme L2
  13. *                  (0 si aucune)
  14. * SORTIES : VNOR = coefficient de normalisation
  15. ************************************************************************
  16.       IMPLICIT INTEGER(I-N)
  17.       IMPLICIT REAL*8(A-H,O-Z)
  18.  
  19.  
  20. -INC PPARAM
  21. -INC CCOPTIO
  22. -INC CCREEL
  23.  
  24.       IF (IRIG .GT. 0) THEN
  25.          CALL XTMX(ICHP,IRIG,VAL)
  26.       ELSE
  27.          CALL XTX1(ICHP,VAL)
  28.       ENDIF
  29.  
  30.       IF(VAL .LE. 0.D0) THEN
  31.         REAERR(1)=VAL
  32.         REAERR(2)=0.D0
  33.         CALL ERREUR(1063)
  34.         RETURN
  35.       ENDIF
  36.       VNOR=SQRT(VAL)
  37.  
  38. C     Division du CHPOINT par le FLOTTANT VNOR
  39.       IOPERA=5
  40.       IARGU =2
  41.       I1    =0
  42.       CALL OPCHP1(ICHP,IOPERA,IARGU,I1,VNOR,ICHP1,IRET)
  43.       IF (IRET.EQ.0) CALL ERREUR(5)
  44.       ICHP=ICHP1
  45.  
  46.       RETURN
  47.       END
  48.  
  49.  
  50.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales