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
16 : CALL ECRENT(IPLRES)
17 : END
18 :
© Cast3M 2003 - All rights reserved.
Disclaimer