5 * Revision 1.3 1997/09/02 14:26:40 mclareni
8 * Revision 1.2 1997/02/04 17:34:45 mclareni
9 * Merge Winnt and 97a versions
11 * Revision 1.1.1.1.2.1 1997/01/21 11:29:44 mclareni
12 * All mods for Winnt 96a on winnt branch
14 * Revision 1.1.1.1 1996/02/15 17:49:27 mclareni
18 #include "kerngen/pilot.h"
19 #include "kerngen/fortranc.h"
22 CERN PROGLIB# Z265 SYSTEI .VERSION KERNFOR 4.31 911111
24 Fortran interface routine to system
26 ISTAT = SYSTEMF (TEXT)
28 TEXT the command to be executed .
29 ISTAT returns zero if successful
32 #include "kerngen/fortchar.h"
34 #if defined(CERNLIB_QX_SC)
35 int type_of_call systei_(ftext,nsize)
38 #if defined(CERNLIB_QXNO_SC)
39 int type_of_call systei(ftext,nsize)
42 #if defined(CERNLIB_QXCAPT)
43 # ifndef CERNLIB_MSSTDCALL
44 int type_of_call SYSTEI(ftext,nsize)
46 int type_of_call SYSTEI(ftext,len_ftext,nsize)
50 #if defined(CERNLIB_QMCRY)
53 #if !defined(CERNLIB_QMCRY)
57 #ifdef CERNLIB_MSSTDCALL
61 char *ptname, *fchtak();
65 /* get memory and copy TEXT terminated */
67 ptname = fchtak(ftext,*nsize);
68 if (ptname == NULL) goto bad;
70 istat = system (ptname);
76 /*> END <----------------------------------------------------------*/