Changeset 14911
- Timestamp:
- 05/05/13 18:25:29 (12 years ago)
- Location:
- issm/trunk-jpl/src/c
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk-jpl/src/c/Container/Observations.cpp
r14896 r14911 403 403 /*Solve the three linear systems*/ 404 404 #if _HAVE_GSL_ 405 SolverxSeq(&GinvG0,Gamma,gamma0,n_obs); // Gamma^-1 gamma0406 SolverxSeq(&Ginv1, Gamma,ones,n_obs); // Gamma^-1 ones407 SolverxSeq(&GinvZ, Gamma,obs,n_obs); // Gamma^-1 Z405 DenseGslSolve(&GinvG0,Gamma,gamma0,n_obs); // Gamma^-1 gamma0 406 DenseGslSolve(&Ginv1, Gamma,ones,n_obs); // Gamma^-1 ones 407 DenseGslSolve(&GinvZ, Gamma,obs,n_obs); // Gamma^-1 Z 408 408 #else 409 409 _error_("GSL is required"); … … 511 511 /*Compute weights*/ 512 512 #if _HAVE_GSL_ 513 SolverxSeq(&weights,Green,obs,n_obs); // Green^-1 obs513 DenseGslSolve(&weights,Green,obs,n_obs); // Green^-1 obs 514 514 #else 515 515 _error_("GSL is required"); -
issm/trunk-jpl/src/c/modules/Shp2Expx/Shp2Expx.cpp
r14895 r14911 4 4 5 5 #include "./Shp2Expx.h" 6 #include "../Ll2xyx/Ll2xyx.h" 7 #include "../Xy2llx/Xy2llx.h" 6 8 #include "../../shared/shared.h" 7 9 #include "../../include/include.h" -
issm/trunk-jpl/src/c/modules/Shp2Kmlx/Shp2Kmlx.cpp
r14895 r14911 4 4 5 5 #include "./Shp2Kmlx.h" 6 #include "../Xy2llx/Xy2llx.h" 6 7 #include "../../shared/shared.h" 7 8 #include "../../include/include.h" -
issm/trunk-jpl/src/c/toolkits/gsl/DenseGslSolve.cpp
r14887 r14911 23 23 class Parameters; 24 24 25 void DenseGslSolve(IssmPDouble** pX,IssmPDouble* A,IssmPDouble* B, int n){ /*{{{*/ 26 27 /*Intermediary: */ 28 IssmPDouble *X = xNew<IssmPDouble>(n); 29 SolverxSeq(X,A,B,n); 30 31 /*allocate output pointers: */ 32 *pX=X; 33 } 34 /*}}}*/ 25 35 void DenseGslSolve(/*output*/ IssmPDouble** px,/*stiffness matrix:*/ IssmPDouble* Kff, int Kff_M, int Kff_N, /*right hand side load vector: */ IssmPDouble* pf, int pf_M, Parameters* parameters){ /*{{{*/ 26 36 -
issm/trunk-jpl/src/c/toolkits/gsl/gslincludes.h
r14887 r14911 20 20 class Parameters; 21 21 22 void DenseGslSolve(IssmPDouble** pX,IssmPDouble* A,IssmPDouble* B, int n); 22 23 void DenseGslSolve(IssmDouble** px, IssmDouble* Kff,int Kff_M, int Kff_N, IssmDouble* pf, int pf_M, Parameters* parameters); 23 24
Note:
See TracChangeset
for help on using the changeset viewer.