Lines Matching refs:yold
64 real*8 yold(maxatm)
67 save xold,yold,zold
98 call vbuild (i,xred,yred,zred,xold,yold,zold)
101 call vfull (xred,yred,zred,xold,yold,zold)
116 yr = yi - yold(i)
121 call vbuild (i,xred,yred,zred,xold,yold,zold)
135 call vbuild (i,xred,yred,zred,xold,yold,zold)
159 subroutine vbuild (i,xred,yred,zred,xold,yold,zold)
173 real*8 yold(maxatm)
202 yold(i) = yi
228 subroutine vfull (xred,yred,zred,xold,yold,zold)
247 real*8 yold(maxatm)
260 yold(i) = yred(i)
365 real*8 yold(maxatm)
368 save xold,yold,zold
388 call cbuild (i,xold,yold,zold)
391 call cfull (xold,yold,zold)
407 yr = yi - yold(i)
412 call cbuild (i,xold,yold,zold)
426 call cbuild (i,xold,yold,zold)
450 subroutine cbuild (i,xold,yold,zold)
462 real*8 yold(maxatm)
493 yold(i) = yi
519 subroutine cfull (xold,yold,zold)
535 real*8 yold(maxatm)
549 yold(i) = y(ii)
654 real*8 yold(maxatm)
657 save xold,yold,zold
677 call mbuild (i,xold,yold,zold)
680 call mfull (xold,yold,zold)
696 yr = yi - yold(i)
701 call mbuild (i,xold,yold,zold)
715 call mbuild (i,xold,yold,zold)
739 subroutine mbuild (i,xold,yold,zold)
751 real*8 yold(maxatm)
782 yold(i) = yi
808 subroutine mfull (xold,yold,zold)
824 real*8 yold(maxatm)
838 yold(i) = y(ii)