      function QASM_DE( QASM ) 

!-----------------------------------------------------------------      
      implicit real*8 ( a-h,o-z )
!-----------------------------------------------------------------      

      QASM_DE = QASM / ( 1 + QASM )

      return
      end 
