Télécharger normb3.eso

Retour à la liste

Numérotation des lignes :

  1. C NORMB3 SOURCE CB215821 17/07/25 21:15:09 9519
  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. -INC CCOPTIO
  19. -INC CCREEL
  20. *
  21. IF (IRIG.GT.0) THEN
  22. CALL XTMX(ICHP,IRIG,VAL)
  23. ELSE
  24. CALL XTX1(ICHP,VAL)
  25. ENDIF
  26. IF(VAL.LE.XPETIT) THEN
  27. REAERR(1)=VAL
  28. REAERR(2)=XPETIT
  29. CALL ERREUR(1063)
  30. RETURN
  31. ENDIF
  32. VNOR=SQRT(VAL)
  33. *
  34. IF (VNOR.EQ.0.D0) THEN
  35. CALL ERREUR(150)
  36. RETURN
  37. END IF
  38. *
  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. *
  48. END
  49. *
  50. *
  51.  
  52.  
  53.  

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