MINICERN/packlib/kernlib/kerngen/ccgencf/cfperm.c

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.2  1997/02/04 17:35:11  mclareni
   6  * Merge Winnt and 97a versions
   7  *
   8  * Revision 1.1.1.1.2.1  1997/01/21 11:30:10  mclareni
   9  * All mods for Winnt 96a on winnt branch
  10  *
  11  * Revision 1.1.1.1  1996/02/15 17:49:36  mclareni
  12  * Kernlib
  13  *
  14  */
  15 #include "kerngen/pilot.h"
  16 #include "kerngen/fortranc.h"
  17
  18 /*>    ROUTINE CFPERM
  19   CERN PROGLIB# Z311    CFPERM          .VERSION KERNFOR  4.34  930114
  20   ORIG. 03/06/92, JZ
  21       CALL CFPERM (NPERM)
  22       set permission mask NPERM to be used in next call to CFOPEN
  23 */
  24 #if defined(CERNLIB_QX_SC)
  25 void type_of_call cfperm_(nperm)
  26 #endif
  27 #if defined(CERNLIB_QXNO_SC)
  28 void type_of_call cfperm(nperm)
  29 #endif
  30 #if defined(CERNLIB_QXCAPT)
  31 void type_of_call CFPERM(nperm)
  32 #endif
  33       int  *nperm;
  34 {
  35       extern int cfopen_perm;
  36
  37       cfopen_perm = *nperm & 0777;
  38       return;
  39 }
  40 /*> END <----------------------------------------------------------*/
  41 #ifdef CERNLIB_TCGEN_CFPERM
  42 #undef CERNLIB_TCGEN_CFPERM
  43 #endif