#
#  ElmerParam - A simple system for parametrized computing
# 
#  Copyright (C) 2006  CSC - IT Center for Science Ltd.
#
#  Authors: Erik Edelmann <Erik.Edelmann@csc.fi>
#           Peter Råback <Peter.Raback@csc.fi>
#  Address: CSC - IT Center for Science Ltd.
#           Keilaranta 14
#           02101 Espoo, Finland
#            
#  This program is free software; you can redistribute it and/or
#  modify it under the terms of the GNU General Public License
#  as published by the Free Software Foundation; either version 2
#  of the License, or (at your option) any later version.
#  
#  This program is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
# 
#  You should have received a copy of the GNU General Public License
#  along with this program (in file elmerparam/COPYING); if not, write to
#  the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, 
#  Boston, MA 02110-1301, USA.
#

.First.lib <- function(lib, pkg)
{
  library.dynam("elmerparam", pkg, lib)
}

elmer_param <- function(xr = NULL, xi = NULL, tag = "", nfun = 1)
{
  .Call("elmerparam_rwrapper", c(nfun), xr, xi, tag)
}

