!$Author: fredfox $
!$Date: 2011-04-27 10:01:11 -0500 (Wed, 27 Apr 2011) $
!$Revision: 11825 $
!$HeadURL: https://svn.weru.ksu.edu/weru/weps1/trunk/weps.src/src/inc/precision.inc $

! defined variables for portable checking of precision related numbers
! variables are initialized in main to make available to all subprograms

      real max_arg_exp, max_real

      common / precision / max_arg_exp, max_real

      save :: /precision/

!     max_arg_exp - maximum value allowed for argument to exponential
!                   function without overflowing

!     max_real    - maximum real number allowed