SALSA Analysis Modules
|
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