Lines Matching refs:gamma0
22 double precision k,r,K0,gcut0,gamma0,coef(20)
162 if(cons_harm_bondings_input(n,indx,coef,K0,gamma0)) then
163 call cons_add_bondings(namespace,n,indx,coef,K0,gamma0,rtdb)
179 if(cons_penalty_bondings_input(n,indx,coef,K0,gcut0,gamma0))
182 > gcut0,gamma0,rtdb)
326 logical function cons_harm_bondings_input(n,indx,coef,K0,gamma0)
336 double precision coef(*),K0,gamma0
347 gamma0 = ftest
377 > gcut0,gamma0)
387 double precision coef(*),K0,gcut0,gamma0
400 gamma0 = ftest