https://github.com/cran/RandomFields
Tip revision: 41d603eb8a5f4bfe82c56acee957c79e7500bfd4 authored by Martin Schlather on 18 January 2022, 18:12:52 UTC
version 3.3.14
version 3.3.14
Tip revision: 41d603e
def.h
/*
Authors
Martin Schlather, schlather@math.uni-mannheim.de
Copyright (C) 2015 -- 2017 Martin Schlather
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 3
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; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*/
/// sysconf (_SC_NPROCESSORS_ONLN) // number of cores available
// int get_nprocs (void) // dito
#ifndef RFdef_H
#define RFdef_H 1
#define DO_PARALLEL_ALREADY_CONSIDERED 1
#ifdef _OPENMP
#ifndef DO_PARALLEL
#define DO_PARALLEL 1
#endif
#else
#ifdef DO_PARALLEL
#undef DO_PARALLEL
#endif
#endif
#ifdef DO_PARALLEL
//#undef DO_PARALLEL
#endif
#define SAVE_ERR(cov, N) \
(cov)->err = N; \
(cov)->base->error_causing_cov = (N) == NOERROR ? NULL \
: cov->base->error_causing_cov == NULL ? (cov) \
: cov->base->error_causing_cov
#define RETURN_ERR(err) { SAVE_ERR(cov, err); return err; }
#define RETURN_ERR_COV(cov, err) { SAVE_ERR(cov, err); return err; }
#define RETURN_NOERROR { cov->err = NOERROR;\
cov->base->error_causing_cov = NULL; \
return NOERROR; }
#define LOCAL_ERROR(N) SAVE_ERR(cov, N)
#define WHICH_ERRORSTRING cov->err_msg // wird benoetigt
#define ERROR_LOC ""
#ifdef DO_PARALLEL
#define LOCAL_ERRLOC_MSG char ERRMSG[LENERRMSG];
#else
#define LOCAL_ERRLOC_MSG
#endif
//cov->base->error_loc
//
#define LOCAL_ERRORSTRING
#define F77dgeev F77call(dgeev)
#define F77dsvdc F77call(dsvdc)
#define F77zheev F77call(zheev)
#define F77dgesdd F77call(dgesdd)
#endif