#include <limits.h>
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <math.h>
#include <sys/times.h>
#include <unistd.h>
#include "pkvaria.h"
#include "pknum.h"
#include "pkgeom.h"
#include "multibs.h"
#include "bsmesh.h"
#include "egholed.h"
#include "g2blendingd.h"
#include "g2mblendingd.h"
#include "g2blprivated.h"
#include "g2mblprivated.h"
#include "g2mblmlprivated.h"
#include "msgpool.h"
Defines | |
#define | _DEBUG |
#define | USE_PCG |
#define | MLFUNC(nu) |
#define | RECORD_MIN(g, fnu) |
Functions | |
boolean | g2mbl_MLOptBlockCd (void *data, int bl) |
boolean | g2mbl_MLCOptIterd (void *data, boolean *finished) |
#define _DEBUG |
#define MLFUNC | ( | nu | ) |
_g2mbl_MLCAuxNuFuncd ( d, bl, nkn, qcoeff, Nitabs, Jac, nv, mvcp, nvcp, vncpi, \ ndomel, domelind, domelem, domelcpind, ftab2, \ nHbl, iHbl, cHbl, tHbl, Hbl, grad, dcoeff, auxmvcp, nu )
#define RECORD_MIN | ( | g, | ||
fnu | ||||
) |
{ if ( fnu < 0.0 ) \ goto failure; \ if ( fnu < fge ) { \ memcpy ( coeff, dcoeff, nvars*sizeof(double) ); \ ldco = sqrt ( pkn_ScalarProductd ( nvars, dcoeff, dcoeff ) ); \ fge = fnu; \ d->nu[1] = ge = g; \ } \ }
#define USE_PCG |
boolean g2mbl_MLOptBlockCd | ( | void * | data, | |
int | bl | |||
) |