#
#     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$
#======================================================================
#
# professs script
#
#======================================================================

if { $INPUT_FORMAT ==  "HA" } {

  set tmppdb [GetTmpFileName -ext pdb ]

  CreateComScript coordconv coordconv_script

  set status [Execute "[BinPath coordconv] XYZIN \"$XYZIN\" XYZOUT \"$tmppdb\"" \
                 $coordconv_script program_status report ]

} else {

  set tmppdb $XYZIN

}

CreateComScript professs professs_script
set cmd "[BinPath professs] XYZIN \"$tmppdb\""
if { $USE_XYZOUT } {
  append cmd " XYZOUT \"$XYZOUT\""
}
set status [Execute $cmd $professs_script program_status report]