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