Searched refs:fd (Results 1 – 4 of 4) sorted by relevance
261 real*8 rd,fd,dwallsqqfact,ep local371 fd = one-tanh((8.0000000000000000d0*rd)**3)372 dwall(e) = dwall(e)-fd*max(zero,dwall(e)-dmax)
309 fd=one-tanh((8.0000000000000000d0*rd)**3)310 dist2w(i)=dist2w(i)-fd*max(zero,dist2w(i)-dmax)
335 fd=one-tanh((8.0000000000000000d0*rd)**3)336 dwall(e)=dwall(e)-fd*max(zero,dwall(e)-dmax)
339 fd=one-tanharg349 dwall(e)=dwall(e)-fd*dmaxf