Subversion Repositories slepc-dev

/*

   Modification of the *temp* implementation of the BLOPEX multivector in order

   to wrap created PETSc vectors as multivectors.

   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

   SLEPc - Scalable Library for Eigenvalue Problem Computations

   Copyright (c) 2002-2010, Universidad Politecnica de Valencia, Spain

   This file is part of SLEPc.

   SLEPc is free software: you can redistribute it and/or modify it under  the

   terms of version 3 of the GNU Lesser General Public License as published by

   the Free Software Foundation.

   SLEPc  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 Lesser General Public  License  for

   more details.

   You  should have received a copy of the GNU Lesser General  Public  License

   along with SLEPc. If not, see <http://www.gnu.org/licenses/>.

   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

*/

#include <petscsys.h>

#include <petscvec.h>

#include <assert.h>

#include <stdlib.h>

#include <blopex_interpreter.h>

#include <blopex_temp_multivector.h>

#include "slepc-interface.h"

static void* mv_TempMultiVectorCreateFromPETScVector(void* ii_,int n,void* sample)

{

  int i;

  Vec *vecs = (Vec*)sample;

  mv_TempMultiVector* x;

  mv_InterfaceInterpreter* ii = (mv_InterfaceInterpreter*)ii_;

  x = (mv_TempMultiVector*)malloc(sizeof(mv_TempMultiVector));

  assert(x!=NULL);

  x->interpreter = ii;

  x->numVectors = n;

  x->vector = (void**)calloc(n,sizeof(void*));

  assert(x->vector!=NULL);

  x->ownsVectors = 1;

  x->mask = NULL;

  x->ownsMask = 0;

  for (i=0;i<n;i++) {

    x->vector[i] = (void*)vecs[i];

  }

  return x;

}

static void mv_TempMultiPETSCVectorDestroy(void* x_)

{

  mv_TempMultiVector* x = (mv_TempMultiVector*)x_;

  if (x==NULL)

    return;

  if (x->ownsVectors && x->vector!=NULL) free(x->vector);

  if (x->mask && x->ownsMask) free(x->mask);

  free(x);

}

/*

    Create an InterfaceInterpreter using the PETSc implementation

    but overloading CreateMultiVector that doesn't create any

    new vector.

*/

int SLEPCSetupInterpreter(mv_InterfaceInterpreter *i)

{

  PETSCSetupInterpreter(i);

  i->CreateMultiVector = mv_TempMultiVectorCreateFromPETScVector;

  return 0;

}

/*

    Change the multivector destructor in order to destroy the multivector

    structure without destroy the PETSc vectors.

*/

void SLEPCSetupInterpreterForDignifiedDeath(mv_InterfaceInterpreter *i)

{

  i->DestroyMultiVector = mv_TempMultiPETSCVectorDestroy;

}