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 00022 PetscFunctionReturn(0); 00023 } 00024 00025 #undef __FUNCT__ 00026 #define __FUNCT__ "AnaModDeregisterSalsaModules" 00027 PetscErrorCode AnaModDeregisterSalsaModules() 00028 { 00029 PetscErrorCode ierr; 00030 PetscFunctionBegin; 00031 00032 ierr = DeRegisterSimpleModules(); CHKERRQ(ierr); 00033 ierr = DeRegisterVarianceModules(); CHKERRQ(ierr); 00034 ierr = DeRegisterStructureModules(); CHKERRQ(ierr); 00035 ierr = DeregisterSpectrumModules(); CHKERRQ(ierr); 00036 00037 PetscFunctionReturn(0); 00038 } 00039 00040 #undef __FUNCT__ 00041 #define __FUNCT__ "AnaModRegisterStandardModules" 00042 /*! Register all standard and nonstandard analysis modules. 00043 */ 00044 PetscErrorCode AnaModRegisterStandardModules() 00045 { 00046 PetscErrorCode ierr; 00047 PetscFunctionBegin; 00048 00049 /* standard set */ 00050 ierr = RegisterSimpleModules(); CHKERRQ(ierr); 00051 ierr = RegisterVarianceModules(); CHKERRQ(ierr); 00052 ierr = RegisterStructureModules(); CHKERRQ(ierr); 00053 ierr = RegisterSpectrumModules(); CHKERRQ(ierr); 00054 ierr = RegisterNormalityModules(); CHKERRQ(ierr); 00055 CHKMEMQ; 00056 00057 /* UKY iprs set */ 00058 ierr = RegisterIprsModules(); CHKERRQ(ierr); 00059 00060 /* Eijkhout's ICMK */ 00061 /*ierr = RegisterICMKModules(); CHKERRQ(ierr);*/ 00062 00063 #if defined(HAVE_LAPACK) 00064 /* Lapack eigenvalue calculations */ 00065 ierr = RegisterLapackModules(); CHKERRQ(ierr); 00066 #endif 00067 00068 /* Jones/Plassmann multi-colouring */ 00069 ierr = RegisterJPLModules(); CHKERRQ(ierr); 00070 CHKMEMQ; 00071 00072 PetscFunctionReturn(0); 00073 } 00074