MINICERN/packlib/zebra/rz/rzndir.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:25  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE RZNDIR(CHPATH,CHOPT)
  11 *
  12 ************************************************************************
  13 *
  14 *      To set,read or print the naming directory
  15 * Input:
  16 *   *CHPATH* Character variable  specifying the complete pathname  of the
  17 *            naming directory ('S' option)
  18 *   CHOPT    Character variable specifying the option
  19 *            'R'   Read the naming directory pathname into CHPATH
  20 *            'P'   Print the naming directory
  21 *            ' '   Set  the naming  directory to  the  path specified  in
  22 *                  CHPATH
  23 * Output:
  24 *   *CHPATH* Character variable  containing the complete pathname  of the
  25 *            naming directory (default option).
  26 *
  27 * Called by <USER>
  28 *
  29 *  Author  : R.Brun DD/US/PD
  30 *  Written : 01.04.86
  31 *  Last mod: 01.04.86
  32 *
  33 ************************************************************************
  34 #include "zebra/zunit.inc"
  35 #include "zebra/rzcl.inc"
  36 #include "zebra/rzdir.inc"
  37 #include "zebra/rzch.inc"
  38       DIMENSION    IOPTV(2)
  39       EQUIVALENCE (IOPTR,IOPTV(1)), (IOPTP,IOPTV(2))
  40       CHARACTER*(*) CHPATH,CHOPT
  41 *
  42 *-----------------------------------------------------------------------
  43 *
  44       IQUEST(1)=0
  45       IF(LQRS.EQ.0)GO TO 99
  46       CALL UOPTC (CHOPT,'RP',IOPTV)
  47 *
  48 *            Read Naming directory
  49 *
  50       IF(IOPTR.NE.0)THEN
  51          CALL RZPAFF(CHNDIR,NLNDIR,CHPATH)
  52          GO TO 99
  53       ENDIF
  54 *
  55 *            Print Naming directory
  56 *
  57       IF(IOPTP.NE.0)THEN
  58          CALL RZPAFF(CHNDIR,NLNDIR,CHL)
  59          WRITE(IQPRNT,1000)CHL(1:90)
  60  1000 FORMAT(' Naming Directory = ',A)
  61          GO TO 99
  62       ENDIF
  63 *
  64 *            Set Naming directory
  65 *
  66       CALL RZPATH(CHPATH)
  67       NLNDIR= NLPAT
  68       DO 10 I=1,NLPAT
  69          CHNDIR(I)=CHPAT(I)
  70   10  CONTINUE
  71 *
  72   99  RETURN
  73       END