Searched refs:bdiagtmp (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | shuffle.f | 33 subroutine mshuffle(bdiagtmp) argument
42 dimension bdiagtmp (nshg,nflow,nflow), tmp(nshg,nflow)
44 tmp(:,:) = bdiagtmp(:,:,1) ! reshuffling 1st column with
45 bdiagtmp(:,:,1:3) = bdiagtmp(:,:,2:4) ! fourth column for all the nodes
46 bdiagtmp(:,:,4) = tmp(:,:)
49 tmp(:,:) = bdiagtmp(:,1,:) ! reshuffling 1st row with
50 bdiagtmp(:,1:3,:)= bdiagtmp(:,2:4,:) ! fourth row for all the nodes
51 bdiagtmp(:,4,:) = tmp (:,:)
|