real function EXP1(x)
      COMMON/PAWPAR/PAR(2)
      EXP1=PAR(1)*exp(-x/PAR(2))
      
      END