Searched refs:rd (Results 1 – 4 of 4) sorted by relevance
261 real*8 rd,fd,dwallsqqfact,ep local370 rd = SclrNN*saKappaP2Inv/dwallsqqfact371 fd = one-tanh((8.0000000000000000d0*rd)**3)
308 rd=sclrm(i)*saKappaP2Inv/(dist2w(i)**2*gVnrm(i)+1.0d-12)309 fd=one-tanh((8.0000000000000000d0*rd)**3)
337 rd=SclrNN*saKappaP2Inv/(dwall(e)**2*qfac)338 tanharg=tanh(8.0000000000000000d0*rd)**3347 fdp = -512*rd**2*rdp*tanhp
334 rd=SclrNN*saKappaP2Inv/(dwall(e)**2*qfact)335 fd=one-tanh((8.0000000000000000d0*rd)**3)