$ if (p1 .eqs. "?") .OR. (p1 .eqs. "")
$ then
$   type/page sys$input
       SGVASS : com-file to assign input and output
                files to SGV. Note that You probably want
                to personalize this com-file. Make a copy
                Your private area, and edit !
         Arguments:
            1  : identifier to be appended to the names of the
                 standard output files
            2  : directory to put these files on (Default is
                 the current directory)
            3  : Name of geometry file (name is (arg 3).inp)
            4  : name of steering file (name is (arg 3).tit)


$   exit
$ endif
$ generic_name = f$parse(p1,,,"NAME")
$ if p2 .nes ""
$ then
$    ass 'p2' sgv_scratch
$ else
$    ass 'f$environment("DEFAULT") sgv_scratch
$ endif
$  !
$  ! The following assignments are for output files,
$  ! that You probably only want to check breifly.
$  ! Therfore, standard names are normally OK.
$  ! Edit this portion if You want to use more
$  ! specific names.
$  ! Note that the rundom-number seed files will
$  ! be duplicated if there are errors during the run,
$  ! one file for the starting seed of each event that
$  ! caused an error. The names will have an _1, _2, etc.
$  ! appended to the file type (this to avoid that You
$  ! loose files if Your system has a purge-deamon
$  ! killing multiple versions on the system scratch
$  ! area, and Your sgv_scratch is indeed such an
$  ! area.)
$  !
$ ass sgv_scratch:'generic_name'_hlis.dat   for003 ! Histo statistics and
$                                                  ! errors, if any.
$ ASS sgv_scratch:'generic_name'_EVENTS.LIS FOR004 ! event-listings (including
$                                                  ! error reports)
$ ass sgv_scratch:'generic_name'_lund.dat   for030 ! JETSET random seed backup
$ ass sgv_scratch:'generic_name'_ranmar.dat for031 ! RANMAR random seed backup
$ ass sgv_scratch:'generic_name'_evnb.dat   for032 ! Event number at last seed
$                                                  ! backup
$  !
$  ! The following files is the main input to SGV. NTUP is also the main
$  ! output. This portion You will probably want to edit, to put Your
$  ! specific filenames
$  !
$ ASS        sgv_scratch:'generic_name'_SUSY.dat for001 ! SUSY parameters
$ ASS        sgv_scratch:'generic_name'.hbook NTUP          ! Histogram input and output RZ-file
$ ass        'p4'.tit  for017        ! SGV steering file
$ ass        'p3'.inp  for051        ! Detector description
$  ! add more geometries here (unit 52 and 53)
$  ! add any other assignments You might need here .....