[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / ccgen / dosgs / sleepf.c

/*
 * $Id$
 *
 * $Log$
 * Revision 1.1.1.1  1996/02/15 17:49:31  mclareni
 * Kernlib
 *
 */
/*>    ROUTINE SLEEPF (NSECS)
  CERN PROGLIB# Z265    SLEEPF          .VERSION KERNFOR  4.26  910313
  ORIG. 22/02/91, JZ
  Fortran interface routine to sleep
*/
#ifdef WIN32
#include <windows.h>
#endif
#if defined(CERNLIB_QX_SC)
void sleepf_(seconds)
#endif
#if defined(CERNLIB_QXNO_SC)
void sleepf(seconds)
#endif
#if defined(CERNLIB_QXCAPT)
void SLEEPF(seconds)
#endif
      int  *seconds;
{
      void sleep();
      int  secu;

      secu = *seconds;
#ifdef WIN32
      Sleep(secu*1000));
#else
      sleep(secu);
#endif
      return;
}
/*> END <----------------------------------------------------------*/
Commit	Line	Data
fe4da5cc	1	/*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:49:31 mclareni
	6	* Kernlib
	7	*
	8	*/
	9	/*> ROUTINE SLEEPF (NSECS)
	10	CERN PROGLIB# Z265 SLEEPF .VERSION KERNFOR 4.26 910313
	11	ORIG. 22/02/91, JZ
	12	Fortran interface routine to sleep
	13	*/
	14	#ifdef WIN32
	15	#include <windows.h>
	16	#endif
	17	#if defined(CERNLIB_QX_SC)
	18	void sleepf_(seconds)
	19	#endif
	20	#if defined(CERNLIB_QXNO_SC)
	21	void sleepf(seconds)
	22	#endif
	23	#if defined(CERNLIB_QXCAPT)
	24	void SLEEPF(seconds)
	25	#endif
	26	int *seconds;
	27	{
	28	void sleep();
	29	int secu;
	30
	31	secu = *seconds;
	32	#ifdef WIN32
	33	Sleep(secu*1000));
	34	#else
	35	sleep(secu);
	36	#endif
	37	return;
	38	}
	39	/> END <----------------------------------------------------------/