// $Id$
//
// Earth System Modeling Framework
// Copyright (c) 2002-2023, University Corporation for Atmospheric Research, 
// Massachusetts Institute of Technology, Geophysical Fluid Dynamics 
// Laboratory, University of Michigan, National Centers for Environmental 
// Prediction, Los Alamos National Laboratory, Argonne National Laboratory, 
// NASA Goddard Space Flight Center.
// Licensed under the University of Illinois-NCSA License.
//
//==============================================================================
#include "openacc.h"

namespace ESMCI{

int VMAccFwGetNumDevices(void )
{
  int ndevs = 0;
  ndevs = acc_get_num_devices(acc_device_not_host);
  return ndevs;
}

}
