Home
last modified time | relevance | path

Searched refs:min_Jk (Results 1 – 1 of 1) sorted by relevance

/dports/science/getdp/getdp-3.4.0-source/Functions/
H A DF_Hysteresis.cpp1855 double min_Jk[3] ; in Vector_Update_Jk_VAR() local
1856 for (int n=0 ; n<3 ; n++) min_Jk[n] = J0[n]; in Vector_Update_Jk_VAR()
1878 min_Jk[n] = Jk[n] - sdfactor * d_omega[n] ; // gradient descent algorithm in Vector_Update_Jk_VAR()
1880 limiter(Js, min_Jk); in Vector_Update_Jk_VAR()
1881 min_omega = fct_omega_VAR(h,min_Jk, params); //updating omega in Vector_Update_Jk_VAR()
1883 if( min_omega < omega-TOL/10 && norm(min_Jk) < Js ){ in Vector_Update_Jk_VAR()
1884 fct_d_omega_VAR(min_Jk, d_omega,hcopy, params) ; //update the derivative d_omega in Vector_Update_Jk_VAR()
1892 for (int n=0; n<3; n++) Jk[n] = min_Jk[n]; in Vector_Update_Jk_VAR()
1903 Jk[n] = min_Jk[n]; in Vector_Update_Jk_VAR()