#
#     Copyright (C) 1999-2004  Liz Potterton, Peter Briggs
#
#     This code is distributed under the terms and conditions of the
#     CCP4 Program Suite Licence Agreement as a CCP4 Library.
#     A copy of the CCP4 licence can be obtained by writing to the
#     CCP4 Secretary, Daresbury Laboratory, Warrington WA4 4AD, UK.
#
#CCP4i_cvs_Id $Id$
if { [catch { open [file join $env(CCP4) lib ccp4 MAJOR_MINOR] } chanel] ||
     [catch { read -nonewline $chanel } mm] || [catch { close $chanel }] } { set mm 6.5.0 }

global system
set system(ET)			0
set system(DOMAIN)		unix
set system(CCP4_VERSION)        "CCP4 Program Suite $mm"
set system(VERSION)             "CCP4Interface $mm"
set system(APPNAME)             ""
set system(SCRIPT)              ""
set system(USERNAME)            ""
set system(LOGIN_NAME)          $env(USER)