integer function skpnam(line)
C ****************************************************************** wjr
C function to skip the type, code and name on records in management files
C
C     Edit History
C     20-Feb-99     wjr     wrote
C
      character line*80
C
      integer idx
      integer cnt
C
C     called functions
C      integer lentrm
C      
      cnt = 0
      do 10 idx=2,len(line)
        if (line(idx:idx).eq.' '.and.line(idx-1:idx-1).ne.' ') then
          cnt = cnt + 1
          if (cnt.eq.3) then
              skpnam=idx
              return
          endif
        endif
   10 continue
      skpnam = len(line)
      return
      end