Function:     fextend

Purpose:      Extends files to a certain number of bytes.

Category:     FILES

File:         fextend.c

Author:       K.G. Begeman

Use:          INTEGER FEXTEND( NAME ,    Input     CHARACTER*(*)
                               SIZE )    Input     INTEGER

              FEXTEND     Returns:
                          0  file extended to SIZE bytes
                          1  error in opening file
                          2  error in reporting current file size
                          3  error in extending file
              NAME        Name of file to extend. If the file
                          does not exist, it will be created.
              SIZE        Extend the file NAME to SIZE bytes. If
                          SIZE is less than the actual size of the
                          file, nothing happens, otherwise zeroes are
                          written to extend the file to SIZE bytes.

Updates:      Jul  4, 1990: KGB, Document created.