c     September 8th 2003
c
c     Version using ONLY Direct-Access file and NO recs buffer
c
c     This function replaces the direct array reference ie recs(i)(m:n)
c     -  extracts the appropriate string from the record-no'th record
c         of the direct-access file for ALL record numbers
c
c     Used in association with recs (for example) to get the specific
c     1-character returned string
c
c     Inputs - record number - irec
c            - start character position in record - ichar1
c            - end   character position in record - ichar2
c
c     Outputs - the function = the output 7-character string

      
      character*7 function recs7(irec,ichar1,ichar2)
      
      character*96 recs
      
      recs7=recs(irec,ichar1,ichar2)
      
      return
      
      end