inclev=inclev+1
      print *,'inc4 - inclev =',inclev
      include 'inc4'
      print *,'back to inc4'