phtmpadmtlm(l) = workd(ipntr(1)+l-1)
workd(ipntr(2)+l-1) = phtmpadmtlm(l)
common /admtlm_r/ phtmpadmtlm
double precision phtmpadmtlm(maxn)
phtmpadmtlm(nveccount) = cbuff(cbuffindex)
& phtmpadmtlm(nveccount)
fld2dNodim(i,j,bi,bj)=phtmpadmtlm(nveccount)
fld3dNodim(i,j,k,bi,bj)=phtmpadmtlm(nveccount)