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

                SUBROUTINE FILEEND

  FILEEND MOVES A FILE POINTER TO THE END OF A FILE.

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

fileend_(

 int *filenumber       /*  FILE IDENTIFICATION NUMBER */

         )


{
 
 int s;
 if ( (s=fseeko( fp[*filenumber], 0, SEEK_END )) != 0)
  printf("end of file not reachable: %d\n",*filenumber) ;

}