2 c=======================================================================
3 c valeurs extremes pour une machine donnee
4 c-----------------------------------------------------------------------
5 c vinfne : la plus grande valeur negative
6 c vinfpo : la plus grande valeur positive
7 c zeroma : le zero de la machine
8 c-----------------------------------------------------------------------
9 double precision vinfne, vinfpo, zeroma
10 common /infini/ vinfne, vinfpo, zeroma