MINICERN/packlib/kernlib/kerngen/ccgencf/cfopen.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:36  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       SUBROUTINE CFOPEN (LUNDES, MEDIUM, NWREC, MODE, NBUF, NAME, ISTAT)
  11 C
  12 C CERN PROGLIB# Z310    CFOPEN          .VERSION KERNFOR  4.27  910426
  13 C ORIG. 12/01/91, JZ
  14 C
  15       DIMENSION    LUNDES(9), ISTAT(9)
  16       CHARACTER    MODE*(*), NAME*(*)
  17       DIMENSION    NVMODE(4)
  18       CHARACTER    CHUSE*4
  19
  20
  21       LGN = LNBLNK (NAME)
  22
  23       CHUSE = MODE
  24       CALL CUTOL (CHUSE)
  25       CALL VZERO (NVMODE,4)
  26
  27       IF (INDEX(CHUSE,'a').NE.0)  NVMODE(1) = 2
  28       IF (INDEX(CHUSE,'w').NE.0)  THEN
  29           IF (NVMODE(1).NE.0)      GO TO 91
  30           NVMODE(1) = 1
  31         ENDIF
  32       IF (INDEX(CHUSE,'r').NE.0)  THEN
  33           IF (NVMODE(1).NE.0)      GO TO 91
  34         ENDIF
  35
  36       IF (INDEX(CHUSE,'+').NE.0)  NVMODE(2) = 1
  37       IF (INDEX(CHUSE,'l').NE.0)  NVMODE(3) = 1
  38
  39 #if !defined(CERNLIB_QMVAX)
  40       CALL CFOPEI (LUNDES,MEDIUM,NWREC,NVMODE,NBUF,NAME,ISTAT,LGN)
  41 #endif
  42 #if defined(CERNLIB_QMVAX)
  43       CALL CFOPEI (LUNDES,MEDIUM,NWREC,NVMODE,NBUF,%REF(NAME),ISTAT,LGN)
  44 #endif
  45       RETURN
  46
  47    91 LUNDES(1) = 0
  48       ISTAT(1)  = -1
  49       RETURN
  50       END
  51 #ifdef CERNLIB_TCGEN_CFOPEN
  52 #undef CERNLIB_TCGEN_CFOPEN
  53 #endif