Télécharger intpdo.eso

Retour à la liste

Numérotation des lignes :

  1. C INTPDO SOURCE CHAT 05/01/13 00:41:34 5004
  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. itab(1)=-1
  10. itab(2)=-1
  11. itab(3)=-1
  12. itab(4)=-1
  13. x=0.d0
  14. larep=0
  15. if (itab(1).eq.0) larep=1
  16. if (itab(2).eq.0) larep=2
  17. if (itab(3).eq.0) larep=3
  18. if (itab(4).eq.0) larep=4
  19. if (larep.eq.0) then
  20. write (6,*) ' erreur dans intpdo !'
  21. write (6,*) ' compilateur defectueux'
  22. stop
  23. endif
  24. END
  25.  
  26.  

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