source: ThirdParty/mpqc_open/src/lib/util/psi3/libpsio/open_check.cc

/*!
   \file open_check.cc
   \ingroup (PSIO)
*/

#include <util/psi3/libpsio/psio.h>

namespace psi3 {
namespace libpsio {

/*!
** PSIO_OPEN_CHECK(): Check to see if a given PSI direct access file
** is already open.
**
** \param unit = the PSI unit number.
**
** \ingroup (PSIO)
*/

int psio_open_check(unsigned int unit)
{
  psio_ud *this_unit;

  this_unit = &(psio_unit[unit]);

  if(this_unit->vol[0].stream != -1) return 1;
  else return 0;
}

}
}