/**************************************************************

            SUBROUTINE FILEREWIND

 FILEREWIND SETS A FILE POINTER TO THE BEGINNING OF A FILE.

***************************************************************/

filerewind_(

 int *filenumber          /* FILE INDETIFICATION NUMBER */

           )

{

 fseeko( fp[*filenumber], 0, SEEK_SET );

}