Télécharger intpdo.eso

Retour à la liste

Numérotation des lignes :

  1. C INTPDO SOURCE PV 18/11/19 21:15:09 9997
  2. C reponds a l'angoissante question : combien d'entiers par real*8
  3. C
  4. SUBROUTINE INTPDO(LAREP)
  5. IMPLICIT INTEGER(I-N)
  6. dimension itab(4)
  7. real*8 x
  8. equivalence (itab(1),x)
  9. data lareps /0/
  10. save lareps
  11. if (lareps.eq.0) then
  12. itab(1)=-1
  13. itab(2)=-1
  14. itab(3)=-1
  15. itab(4)=-1
  16. x=0.d0
  17. larep=0
  18. if (itab(1).eq.0) lareps=1
  19. if (itab(2).eq.0) lareps=2
  20. if (itab(3).eq.0) lareps=3
  21. if (itab(4).eq.0) lareps=4
  22. if (lareps.eq.0) then
  23. write (6,*) ' erreur dans intpdo !'
  24. write (6,*) ' compilateur defectueux'
  25. stop
  26. endif
  27. endif
  28. larep=lareps
  29. END
  30.  
  31.  
  32.  

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