Lines Matching refs:aj
1 subroutine hnd_ddtxyz(xt,yt,zt,xs,ys,zs,ni,nj,aj) argument
5 double precision xt, yt, zt, xs, ys, zs, aj local
12 xt(i,1)=(xs(i,1 ) -xs(i,3 )*(aj+aj))*aj
13 yt(i,1)=(ys(i,1 ) -ys(i,3 )*(aj+aj))*aj
14 zt(i,1)=(zs(i,1 ) -zs(i,3 )*(aj+aj))*aj
20 xt(i,2)=(xs(i,2 )*dble(2+2-1)-xs(i,4 )*(aj+aj))*aj
21 yt(i,2)=(ys(i,2 )*dble(2+2-1)-ys(i,4 )*(aj+aj))*aj
22 zt(i,2)=(zs(i,2 )*dble(2+2-1)-zs(i,4 )*(aj+aj))*aj
29 xt(i,j)=(xs(i,j )*dble(j+j-1)-xs(i,j+2)*(aj+aj))*aj
31 yt(i,j)=(ys(i,j )*dble(j+j-1)-ys(i,j+2)*(aj+aj))*aj
33 zt(i,j)=(zs(i,j )*dble(j+j-1)-zs(i,j+2)*(aj+aj))*aj