Télécharger plac.eso

Retour à la liste

Numérotation des lignes :

  1. C PLAC SOURCE CHAT 05/01/13 02:14:45 5004
  2. SUBROUTINE PLAC
  3. IMPLICIT INTEGER(I-N)
  4. INTEGER OOOVAL
  5. IPLAME=OOOVAL(1,1)
  6. IPLAOC=OOOVAL(3,1)
  7. NBPIS= OOOVAL(1,3)
  8. ITPIS= OOOVAL(1,4)
  9. * WRITE (6,*) ' PLACE TOTALE EN MEMOIRE ',IPLAME
  10. IPLADI = NBPIS * ITPIS
  11. * LE TAUX D'EFFICACIT{ DE LA PLACE DISQUE EST D'ENVIRON 50%
  12. IPLADI=IPLADI/2
  13. * WRITE (6,*) ' PLACE TOTALE SUR DISQUE ',IPLADI
  14. * WRITE (6,*) ' PLACE OCCUPEE ',IPLAOC
  15. IPLRES=IPLAME+IPLADI-IPLAOC
  16. * WRITE (6,*) 'PLACE RESTANTE ',IPLRES
  17. CALL ECRENT(IPLRES)
  18. END
  19.  
  20.  

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