2 c=======================================================================
3 c precision pour une machine donnee
4 c-----------------------------------------------------------------------
5 c epsima : la precision de la machine
6 c dmxent : plus grand entier
7 c-----------------------------------------------------------------------
8 double precision epsima, dmxent
9 common /precis/ epsima, dmxent