5 * Revision 1.1.1.1 1995/10/24 10:21:17 cernlib
9 #include "geant321/pilot.h"
10 *CMZ : 3.21/02 29/03/94 15.41.21 by S.Giani
12 SUBROUTINE GRMDIR(CHDIR,CHOPT)
14 C. ******************************************************************
16 C. * Routine to create a "standard" GEANT subdirectory *
18 C. * CHDIR Subdirectory name *
20 C. * CHOPT is a character string which may be *
21 C. * ' ' To create a subdirectory *
22 C. * 'S' To create a subdirectory and set the new *
23 C. * Current Directory to this directory. *
25 C. * ==>Called by : <USER> *
26 C. * Author R.Brun ********* *
28 C. ******************************************************************
30 CHARACTER*(*) CHDIR,CHOPT
32 DATA CHTAGS/'Object','Version'/
34 C. ------------------------------------------------------------------
36 CALL UOPTC(CHOPT,'S',IOPTS)
38 CALL RZMDIR(CHDIR,2,'HI',CHTAGS)
40 CALL RZCDIR(CHDIR,' ')