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