function ampdb(db)
      ampdb=10.**(db/20.)
      return
      end