if (max_cache_traj_use.ne.1) &
print *,itime,"processor ",me," over cache ",ntwx_cache
do i=1,ntwx_cache-1
if (max_cache_traj_use.ne.1) &
print *,itime,"processor ",me," over cache ",ntwx_cache
do i=1,ntwx_cache-1
totT_cache(i)=totT_cache(i+1)
EK_cache(i)=EK_cache(i+1)
potE_cache(i)=potE_cache(i+1)
totT_cache(i)=totT_cache(i+1)
EK_cache(i)=EK_cache(i+1)
potE_cache(i)=potE_cache(i+1)
ugamma_cache(i,ntwx_cache)=ugamma(i)
uscdiff_cache(i,ntwx_cache)=uscdiff(i)
enddo
ugamma_cache(i,ntwx_cache)=ugamma(i)
uscdiff_cache(i,ntwx_cache)=uscdiff(i)
enddo
do i=1,nres*2
do j=1,3
c_cache(j,i,ntwx_cache)=c(j,i)
do i=1,nres*2
do j=1,3
c_cache(j,i,ntwx_cache)=c(j,i)