https://github.com/cran/RandomFields
Tip revision: 683e381531c37e8e7224edd899422f119d926418 authored by Martin Schlather on 21 January 2014, 00:00:00 UTC
version 3.0.10
version 3.0.10
Tip revision: 683e381
markov.cc
/*
Authors
Martin Schlather, schlather@math.uni-mannheim.de
wrapper for Havard Rue's GMRF library
Copyright (C) 2001 -- 2014 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.
*/
// was passiert wenn geo-coef nicht verfuegbar?
// wie wird *problem geloescht ??
#include <math.h>
#include <stdio.h>
#include "RF.h"
typedef struct markov_storage {
// typedef cannot be moved to RF.h since
// it requires GMRFLib/GMRFLib.h and the inclusion
// in RF.h leads to conflicts with blas.h definitions
// used in circulant.cc
int rowcol[2];
} markov_storage;
void Markov_destruct(void **S)
{
if (*S!=NULL) {
free(*S);
*S = NULL;
}
}
int init_markov(cov_model VARIABLE_IS_NOT_USED *cov,
storage VARIABLE_IS_NOT_USED *S){
// SET_DESTRUCT(Markov_destruct);
SERR("not programmed anymore");
}
void do_markov(cov_model VARIABLE_IS_NOT_USED *cov,
storage VARIABLE_IS_NOT_USED *s) {
BUG;
}