c Sets up table = dexptablebig, values of NEGATIVE exponentials,
c Arguments 0.00 to 1000.00 in .01 steps.

         SUBROUTINE dexptablebig_setup (dexptablebig)
        
         real*8 dexptablebig(0:10000), z
         integer i

         do i = 0, 10000
           z = dble(i)
           z = - 0.1 * z
           dexptablebig(i) = dexp (z)
         end do
         END