Lines Matching refs:gamma0

22       double precision k,r,K0,gcut0,gamma0,c0,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)
180      >                                    K0,gcut0,gamma0,c0))
183      >                              gcut0,gamma0,c0,rtdb)
327       logical function cons_harm_bondings_input(n,indx,coef,K0,gamma0)
337       double precision coef(*),K0,gamma0
348       gamma0 = ftest
378      >                                             gcut0,gamma0,c0)
388       double precision coef(*),K0,gcut0,gamma0,c0
401       gamma0 = ftest