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

Action_Thermostats Add_AtomRandomPerturbation Add_SelectAtomByNameAction Adding_Graph_to_ChangeBondActions Adding_MD_integration_tests Adding_StructOpt_integration_tests AutomationFragmentation_failures Candidate_v1.6.1 Candidate_v1.7.0 ChangeBugEmailaddress ChemicalSpaceEvaluator EmpiricalPotential_contain_HomologyGraph_documentation Enhance_userguide Enhanced_StructuralOptimization Enhanced_StructuralOptimization_continued Example_ManyWaysToTranslateAtom Exclude_Hydrogens_annealWithBondGraph Fix_Verbose_Codepatterns ForceAnnealing_oldresults ForceAnnealing_with_BondGraph ForceAnnealing_with_BondGraph_continued ForceAnnealing_with_BondGraph_continued_betteresults ForceAnnealing_with_BondGraph_contraction-expansion GeometryObjects Gui_displays_atomic_force_velocity IndependentFragmentGrids_IntegrationTest JobMarket_RobustOnKillsSegFaults JobMarket_StableWorkerPool PythonUI_with_named_parameters QtGui_reactivate_TimeChanged_changes Recreated_GuiChecks StoppableMakroAction TremoloParser_IncreasedPrecision TremoloParser_MultipleTimesteps stable
Last change on this file since 987145 was 860145, checked in by Frederik Heber <heber@…>, 9 years ago

Merge commit '0b990dfaa8c6007a996d030163a25f7f5fc8a7e7' as 'ThirdParty/mpqc_open'

  • Property mode set to 100644
File size: 455 bytes
Line 
1/*!
2 \file open_check.cc
3 \ingroup (PSIO)
4*/
5
6#include <util/psi3/libpsio/psio.h>
7
8namespace psi3 {
9namespace libpsio {
10
11/*!
12** PSIO_OPEN_CHECK(): Check to see if a given PSI direct access file
13** is already open.
14**
15** \param unit = the PSI unit number.
16**
17** \ingroup (PSIO)
18*/
19
20int psio_open_check(unsigned int unit)
21{
22 psio_ud *this_unit;
23
24 this_unit = &(psio_unit[unit]);
25
26 if(this_unit->vol[0].stream != -1) return 1;
27 else return 0;
28}
29
30}
31}
Note: See TracBrowser for help on using the repository browser.