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

                   SUBROUTINE TEMPFILE

 TEMPFILE WILL OPEN A TEMPORARY FILE.  WHEN THE MAIN PROGRAM
 IS DONE RUNNING, THE TEMPORARY FILE DISAPEARS.

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

tempfile_(

 int *filenumber           /* FILE NUMBER TO BE ASSIGNED TO 
                              THE TEMPORARY FILE. */

         )

{

 int s;

       if ( *filenumber < 0 ) {

        if ( ( s = fileassign(filenumber)) == 0 ) {

         printf("No more available file numbers\n");
         return;

        }

       }

       if ( ftrack[*filenumber] <= 0 ) {

        if ((fp[*filenumber] = tmpfile()) == NULL) 
          printf(" unable to open %d\n ", *filenumber);
     
        else {

         printf(" Temporary file %d opened\n",*filenumber);
         ftrack[*filenumber] = 1;
  
        }

       }

       else {

        printf(" TEMPORARY FILE %d WILL NOT BE OPENED, AS",*filenumber);
        printf(" THIS FILE NUMBER IS ALREADY IN USE\n");

       }

}