SALSA Analysis Modules
anamodsalsa.c
Go to the documentation of this file.
00001 #include <stdlib.h>
00002 #include "anamod.h"
00003 #include "anamodsalsamodules.h"
00004 
00005 #undef __FUNCT__
00006 #define __FUNCT__ "AnaModRegisterSalsaModules"
00007 PetscErrorCode AnaModRegisterSalsaModules()
00008 {
00009   PetscErrorCode ierr;
00010   PetscFunctionBegin;
00011 
00012   ierr = RegisterSimpleModules(); CHKERRQ(ierr);
00013   ierr = RegisterVarianceModules(); CHKERRQ(ierr);
00014   ierr = RegisterNormalityModules(); CHKERRQ(ierr);
00015   ierr = CommutatorNormFAllowSqrtTimes(10);
00016   ierr = RegisterStructureModules(); CHKERRQ(ierr);
00017   ierr = RegisterSpectrumModules(); CHKERRQ(ierr);
00018   ierr = SpectrumComputeUnpreconditionedSpectrum(); CHKERRQ(ierr);
00019   ierr = RegisterJPLModules(); CHKERRQ(ierr);
00020   ierr = RegisterIprsModules(); CHKERRQ(ierr);
00021 #if defined(HAVE_LAPACK)
00022   ierr = RegisterLapackModules(); CHKERRQ(ierr);
00023 #endif
00024 
00025   PetscFunctionReturn(0);
00026 }
00027 
00028 #undef __FUNCT__
00029 #define __FUNCT__ "AnaModDeregisterSalsaModules"
00030 PetscErrorCode AnaModDeregisterSalsaModules()
00031 {
00032   PetscErrorCode ierr;
00033   PetscFunctionBegin;
00034 
00035   ierr = DeRegisterSimpleModules(); CHKERRQ(ierr);
00036   ierr = DeRegisterVarianceModules(); CHKERRQ(ierr);
00037   ierr = DeRegisterStructureModules(); CHKERRQ(ierr);
00038   ierr = DeregisterSpectrumModules(); CHKERRQ(ierr);
00039 
00040   PetscFunctionReturn(0);
00041 }
00042 
00043 #undef __FUNCT__
00044 #define __FUNCT__ "AnaModRegisterStandardModules"
00045 /*! Register all standard and nonstandard analysis modules.
00046 */
00047 PetscErrorCode AnaModRegisterStandardModules()
00048 {
00049   PetscErrorCode ierr;
00050   PetscFunctionBegin;
00051 
00052   /* standard set */
00053   ierr = RegisterSimpleModules(); CHKERRQ(ierr);
00054   ierr = RegisterVarianceModules(); CHKERRQ(ierr);
00055   ierr = RegisterStructureModules(); CHKERRQ(ierr);
00056   ierr = RegisterSpectrumModules(); CHKERRQ(ierr);
00057   ierr = RegisterNormalityModules(); CHKERRQ(ierr);
00058   CHKMEMQ;
00059 
00060   /* UKY iprs set */
00061   ierr = RegisterIprsModules(); CHKERRQ(ierr);
00062 
00063   /* Eijkhout's ICMK */
00064   /*ierr = RegisterICMKModules(); CHKERRQ(ierr);*/
00065 
00066 #if defined(HAVE_LAPACK)
00067   /* Lapack eigenvalue calculations */
00068   ierr = RegisterLapackModules(); CHKERRQ(ierr);
00069 #endif
00070 
00071   /* Jones/Plassmann multi-colouring */
00072   ierr = RegisterJPLModules(); CHKERRQ(ierr);
00073   CHKMEMQ;
00074 
00075   PetscFunctionReturn(0);
00076 }
00077