function expo(x)
c     ================
c     
      INCLUDE 'IMPLIC.FOR'
      crit=80.  
      if(x.lt.-crit) x=-crit
      if(x.gt.crit) x=crit
      expo=exp(x)    
      return
      end