[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / ccgen / statf.F

*
* $Id$
*
* $Log$
* Revision 1.3  1997/09/02 14:26:39  mclareni
* WINNT correction
*
* Revision 1.2  1997/02/04 17:34:44  mclareni
* Merge Winnt and 97a versions
*
* Revision 1.1.1.1.2.1  1997/01/21 11:29:44  mclareni
* All mods for Winnt 96a on winnt branch
*
* Revision 1.1.1.1  1996/02/15 17:49:27  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
      INTEGER FUNCTION STATF (NAME, INFO)
C
C CERN PROGLIB# Z265    STATF           .VERSION KERNFOR  4.37  930715
C ORIG. 14/03/91, RDM
C Fortran interface routine to stat
C
C        NAME   the name of the file of which information is required
C     INFO(12)  buffer returning the information about "file"
C
C        A succesfull call returns 0. A failed call returns -1.
C
      CHARACTER*(*)  NAME
      INTEGER        INFO(12), STATI

      LGN   = LNBLNK (NAME)

#if defined(CERNLIB_QMVAX)
      STATF = STATI (%REF(NAME), INFO, LGN)
#endif
#if !defined(CERNLIB_QMVAX)
      STATF = STATI (NAME, INFO, LGN)
#endif

      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.3 1997/09/02 14:26:39 mclareni
	6	* WINNT correction
	7	*
	8	* Revision 1.2 1997/02/04 17:34:44 mclareni
	9	* Merge Winnt and 97a versions
	10	*
	11	* Revision 1.1.1.1.2.1 1997/01/21 11:29:44 mclareni
	12	* All mods for Winnt 96a on winnt branch
	13	*
	14	* Revision 1.1.1.1 1996/02/15 17:49:27 mclareni
	15	* Kernlib
	16	*
	17	*
	18	#include "kerngen/pilot.h"
	19	INTEGER FUNCTION STATF (NAME, INFO)
	20	C
	21	C CERN PROGLIB# Z265 STATF .VERSION KERNFOR 4.37 930715
	22	C ORIG. 14/03/91, RDM
	23	C Fortran interface routine to stat
	24	C
	25	C NAME the name of the file of which information is required
	26	C INFO(12) buffer returning the information about "file"
	27	C
	28	C A succesfull call returns 0. A failed call returns -1.
	29	C
	30	CHARACTER() NAME
	31	INTEGER INFO(12), STATI
	32
	33	LGN = LNBLNK (NAME)
	34
	35	#if defined(CERNLIB_QMVAX)
	36	STATF = STATI (%REF(NAME), INFO, LGN)
	37	#endif
	38	#if !defined(CERNLIB_QMVAX)
	39	STATF = STATI (NAME, INFO, LGN)
	40	#endif
	41
	42	RETURN
	43	END