c======================================================================== c Display and Test the Validity of The Project Dictionary File c======================================================================== implicit none include 'spell_include' integer*4 i,j,k,l c read dictionary index open (unit=8,file='PROJECT.DICT',err=100,READONLY, x form='UNFORMATTED',recordtype='SEGMENTED',status='OLD') read (unit=8,err=110) project_ptr_limit,project_buf_limit, x project_ptr,project_buf close (8) type * type *,' Pointers array size ',project_ptr_array_size type *,' Buffer array size ',project_buf_array_size type *,' Pointer used ',project_ptr_limit type *,' Buffer used ',project_buf_limit c display dictionary index data type * type *,'Project Dictionary Data' type * do i = 1,project_ptr_limit j = project_ptr(i) l = project_buf(j) if ((l.le.0).or.(l.ge.word_size)) goto 120 write (*,2000) i,l,(project_buf(k),k=j+1,J+l) end do goto 999 c error messages 100 type *,'Error opening project dictionary file PROJECT.DICT' close (8) goto 999 110 type *,'Error reading project dictionary file PROJECT.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