inclev=inclev+1
      print *,inclev