Télécharger iniree.eso

Retour à la liste

Numérotation des lignes :

iniree
  1. C INIREE SOURCE PV090527 23/08/01 21:15:02 11714
  2. SUBROUTINE INIREE
  3. c*************************************************************
  4. c evalue xpetit et xgrand pour la machine
  5. c on veut pouvoir prendre l 'inverse de xpetit et xgrand
  6. c*************************************************************
  7. IMPLICIT INTEGER(I-N)
  8. real*8 D1
  9. real*4 E1
  10.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13. -INC CCREEL
  14. -INC CCTRACE
  15. D1=1.D0
  16. E1=1.E0
  17. c calcul ipetit,igrand
  18. ipetit=-huge(0)/8
  19. igrand=-ipetit
  20. c write(6,*) ' ipetit,igrand ',ipetit,igrand
  21. c calcul xpetit
  22. xpetit = tiny(D1)*2.d0
  23. c write(6,*) 'xpetit', xpetit
  24.  
  25. c calcul xgrand
  26. xgrand = huge(D1)/2.d0
  27. c write(6,*) 'xgrand', xgrand
  28. c
  29. c calcul xspeti
  30. xspeti = tiny(E1)*2.e0
  31. c write(6,*) 'xspeti', xspeti
  32.  
  33. c calcul xsgran
  34. xsgran = huge(E1)/2.e0
  35. c write(6,*) 'xsgran', xsgran
  36.  
  37. c calcul xzprec ,
  38. xzprec=epsilon(D1)*2.D0
  39. c write(6,*) 'xzprec', xzprec
  40.  
  41. c calcul xszpre ,
  42. xszpre=epsilon(E1)*2.E0
  43. c write(6,*) 'xszpre', xszpre
  44. return
  45.  
  46. END
  47.  
  48.  

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