y=erfc(2.2)
      print *,y
      end