PROGRAM nnof
c     counts number of *.ov files
      character*10 s10
      logical lex
      i=0
1     i=i+1
      write(s10,10)i
10    format(i10)
      do 2 j=1,len(s10)
2     if(s10(j:j).ne.' ')goto 3
3     inquire(file=s10(j:len(s10))//'.ov',exist=lex)
      if(lex)goto 1
      write(6,*)i-1
      end