Lines Matching refs:dgg
1517 real*8 dgg local
1526 dgg = dble(i-1)/dble(middle-1)
1529 coords(k,j,i) = coords(k,j,1)*(1-dgg) +
1530 & coords(k,j,middle)*dgg
1535 dgg = dble(i-middle)/dble(nbeads-middle)
1538 coords(k,j,i) = coords(k,j,middle)*(1-dgg) +
1539 & coords(k,j,nbeads)*dgg
1546 dgg = dble(middle-1)/dble(nbeads-1)
1549 & (coords(k,j,nbeads)-coords(k,j,1))*dgg**2) /
1550 & (dgg-dgg**2)
1553 dgg = dble(i-1)/dble(nbeads-1)
1554 coords(k,j,i) = a+b*dgg+c*dgg**2
1561 dgg = dble(i-1)/dble(middle-1)
1566 coords(k,j,i) = a + b*(3*dgg**2 + 2*dgg**3)
1571 dgg = dble(i-middle)/dble(nbeads-middle)
1576 coords(k,j,i) = a + b*(3*dgg**2 + 2*dgg**3)
1583 dgg = dble(middle-1)/dble(nbeads-1)
1586 c=((coords(k,j,middle)-coords(k,j,1)) - b*dgg)/sin(pi*dgg)
1588 dgg = dble(i-1)/dble(nbeads-1)
1589 coords(k,j,i) = a+b*dgg+c*sin(pi*dgg)
1612 real*8 dgg local
1636 dgg = dble(i-ix)/dble(iix-ix)
1639 coords(k,j,i) = coords(k,j,ix )*(1-dgg) +
1640 & coords(k,j,iix)*dgg
1666 real*8 dgg local
1709 dgg = dble(i-ix)/dble(iix-ix)
1722 > + dgg*(amat(1,1)*f1+amat(1,2)*f2+amat(1,3)*f3)
1724 > + dgg*(amat(2,1)*f1+amat(2,2)*f2+amat(2,3)*f3)
1726 > + dgg*(amat(3,1)*f1+amat(3,2)*f2+amat(3,3)*f3)