c======================================================================== c Display and Test the Validity of the Common Dictionary Index File c======================================================================== implicit none include 'spell_include' integer*4 i,j,k,l c read dictionary index open (unit=8,file='INDEX.DICT',err=100,READONLY, x form='UNFORMATTED',recordtype='SEGMENTED',status='OLD') read (unit=8,err=110) common_ptr_limit,common_buf_limit, x file_ptr,common_ptr,common_buf close (8) type * type *,' Pointers array size ',common_ptr_array_size type *,' Buffer array size ',common_buf_array_size type *,' Pointers used ',common_ptr_limit type *,' Buffer used ',common_buf_limit c display dictionary index data type * type *,'Common Dictionary Index Data' type * do i = 1,common_ptr_limit j = common_ptr(i) l = common_buf(j) if ((l.le.0).or.(l.ge.word_size)) goto 120 write (*,2000) i,file_ptr(i),l,(common_buf(k),k=j+1,J+l) end do goto 999 c error messages 100 type *,'Error opening common dictionary index file INDEX.DICT' close (8) goto 999 110 type *,'Error reading common dictionary index file INDEX.DICT' close (8) goto 999 120 type *,'Error in word length in dictionary index' type *,' Word length ',l type *,' Buffer pointer ',i type *,' Buffer location ',j type *,' File pointer ',i 999 continue 2000 format(' ',i8,' (',i8,') [',i2,'] ',a) end