$ write sys$output "Defining YOHKOH analysis environment"
$!
$! drive	= "CASSX1::DUA2"			! Site specific definitions
$ drive	= "DKB500"			! Site specific definitions
$ topd  = "YOHKOH"
$ if f$trnlnm(drive) .nes. ""
$ then
$	YS = f$trnlnm(drive)-".]"+".phick."
$ else
$	YS = drive+":["+topd+"."
$ endif
!
$ define = "define/nolog"
!
$ define disk_ys  		'drive		! local disk
$ define disk_scratch		'drive		! scratch disk for SW maintenance
$ define site_dir		'ys'site.bcs]	! location site specific routines
$ show logical site_dir
$!
$!	Define "root" directories ("concealed devices")
$!	YS	is the root of all the software directories
$!	YLIB	is the root of the YOHLIB directory-libraries
$!	YDBn	are the directories where Yohkoh Database files are stored
$!	YDn	are the directories where the (BDA?) data is stored
$!	YDX	is used for temporary reformatted data at ISAS
$!
$ define YS 		'ys']
$ define YLIB		'ys'libs.]
$ define YDB0		'ys'dbase.]
$ define YD0		'ys'data.]
$!
$ define ydb		YDB0			! location database files
$ define ydnn		YD0:[*]			! search string for data files
!
! define IDL_PATH		site_dir:
$!
$ say "Set up directory logicals"
!
$ define  $DIR_SXT_ENGIN          ys:[ucon.soft.morrison]
$ define  $DIR_SXT_SENSITIVE      ys:[sxt.response]
$ define  $DIR_SXT_CALIBRATE      ys:[sxt.response]
$ define  $DIR_SXT_CAL            ys:[sxt.response]
!
$ define  $DIR_SXT_DOC            ys:[sxt.doc]
!
$ define  $DIR_SXT_TABLES         ydb:[sxt_tables]
$ define  $DIR_SXT_ATABLES        ydb:[sxt_atables]
$ define  $DIR_SXT_SDC		ydb:[sdc]
$ define  $DIR_SXT_SDL		ydb:[sdl]
$ define  $DIR_SXT_SDW		ydb:[sdw]
$ define  $DIR_SXT_SFD		ydb:[sfd]
$ define  $DIR_SXT_SFS		ydb:[sfs]
$ define  $DIR_SXT_SXL		ydb:[sxl]
$ define  $DIR_SXT_SXA		ydb:[sxa]
$ define  $DIR_SXT_SSX		ydb:[ssx]
$ define  $DIR_SXT_SOT		ydb:[sot]
$ define  $DIR_SXT_SSL		ydb:[ssl]
$ define  $DIR_SXT_SLS		ydb:[sls]
$ define  $DIR_SXT_SLD		ydb:[sld]
$ define  $DIR_SXT_SFC		ydb:[sfc]
$ define  $DIR_SXT_SFM		ydb:[sfm]
$ define  $DIR_SXT_SXC		ydb:[sxc]
!
$ define  $DIR_GEN_ORBIT	ydb:[orbit]
$ define  $DIR_GEN_ORBIT_RAW	ydb:[orbit_raw]
$ define  $DIR_GEN_ORBIT_SOL	ydb:[orbit_sol]
$ define  $DIR_GEN_OBS		ydb:[obs]
$ define  $DIR_GEN_OBD		ydb:[obd]
$ define  $DIR_GEN_OSF		ydb:[osf]
$ define  $DIR_GEN_OSP		ydb:[osp]
$ define  $DIR_GEN_OWH		ydb:[owh]
!
$ define  $DIR_GEN_FEM		ydb:[fem]
$ define  $DIR_GEN_XBD		ydb:[xbd]
$ define  $DIR_GEN_XAD		ydb:[xad]
$ define  $DIR_GEN_TAPECOPY	ydb:[tapecopy]
$ define  $DIR_GEN_EVN		ydb:[evn]
$ define  $DIR_GEN_GEV		ydb:[gev]
$ define  $DIR_GEN_GXT		ydb:[gxt]
$ define  $DIR_GEN_G7D		ydb:[g7d]
$ define  $DIR_GEN_NAR		ydb:[nar]
$ define  $DIR_GEN_PNT		ydb:[pnt]
$ define  $DIR_GEN_SYNOPTIC 	ydb:[synoptic]
$ define  $DIR_GEN_MO		ydb:[mo_disk]
$ define  $DIR_GEN_ATR		ydb:[atr]
$ define  $DIR_GEN_ATT		ydb:[att]
!
$ define  $DIR_GEN_ORBIT_SW       ys:[gen.soft.rel.orbit]
!
$ define  $DIR_GEN_SETUP          ys:[gen.setup]
$ define  $DIR_GEN_SETUPD         ys:[gen.setup.data]
$ define  $DIR_GEN_SETUPDBACK     ys:[gen.setup.data_back]
!
$ define  $DIR_GEN_SCRIPT	ys:[gen.script]
$ define  $DIR_GEN_DOC		ud1:[phick.soft.yoh.gen.doc] !ys:[gen.doc]
$ define  $DIR_GEN_STATUS	ys:[gen.status]
$ define  $DIR_GEN_DATA		ys:[gen.data]
$ define  $DIR_GEN_SPECTRA	ys:[gen.data.spectra]
$ define  $DIR_GEN_UCONDATA	ys:[gen.data.ucon]
$ yt = f$trnlnm("ys")-"]"+"gen.tbb.]
$ define  $DIR_GEN_TBB            'yt'
!
$ define  $DIR_IDL_OLD            ys:[idlfix.soft]
!
$ define  $DIR_SITE_SETUP         ys:[site.setup]
$ define  $DIR_SITE_SETUPD        ys:[site.setup.data]
$ define  $DIR_SITE_LOGS          ys:[site.logs]
!
$ define  $DIR_ATEST_NEWSW        ys:[atest.soft]
$ define  $DIR_ATEST_BACK         ys:[atest_back.soft]
!
$ define  $DIR_BCS_DOC            ys:[bcs.doc]
$ define  $DIR_BCS_LOGS           ys:[bcs.status]
$ define  $DIR_BCS_EXE            ys:[bcs_f77.soft.rel.exe]
$ define  $DIR_BCS_CALDAT         ys:[bcs.response]
$ define  $DIR_BCS_CAL            ys:[bcs.response]
$ define  $DIR_BCS_ATODAT         ys:[bcs_f77.soft_data.atomic]
$ define  $DIR_BCS_BALDAT         ys:[bcs_f77.soft_data.bal]
$ define  $DIR_BCS_SYNSPEC        ys:[bcs.soft_data.syn_spec]
$ define  $DIR_BCS_MICRO          ys:[bcs.status.micro]
$ define  $DIR_BCS_CAT            ys:[bcs.catalog]
!
$ define  $DIR_HXT_CAL            ys:[hxt.response]
$ define  $DIR_HXT_EXE            ys:[hxt_f77.soft.rel.exe]
!
$ define  $DIR_WBS_CAL            ys:[wbs.response]
!
$ define  $DIR_ASCA_ORBIT_SOL     adb:[orbit_sol]
$ define  $DIR_ASCA_FEM           adb:[fem]
$ define  $DIR_ASCA_ORBIT         adb:[orbit]
!
$ define  $DIR_GEN_GUF            ydb:[guf]
$ define  $DIR_GEN_GBE            ydb:[batse]
$ define  $DIR_GEN_GBL            ydb:[batse]
!
$ define  $DIR_GEN_NEL            ydb:[nobeyama]
$ define  $DIR_GEN_NTS            ydb:[nobeyama]
!
$ define  $DIR_GEN_GOL            ydb:[gol]
!
$ delete/symbol define