MINICERN/packlib/kernlib/kerngen/ccgenci/ciopen.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:38  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       SUBROUTINE CIOPEN (LUNDES, MODE, NAME, ISTAT)
  11 C
  12 C CERN PROGLIB# Z311    CIOPEN          .VERSION KERNFOR  4.31  911111
  13 C ORIG. 12/10/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
  38 #if !defined(CERNLIB_QMVAX)
  39       CALL CIOPEI (LUNDES,NVMODE,NAME,ISTAT,LGN)
  40 #endif
  41 #if defined(CERNLIB_QMVAX)
  42       CALL CIOPEI (LUNDES,NVMODE,%REF(NAME),ISTAT,LGN)
  43 #endif
  44       RETURN
  45
  46    91 LUNDES(1) = 0
  47       ISTAT(1)  = -1
  48       RETURN
  49       END