Searched refs:globMas (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | bc3global.f | 1 subroutine bc3global (globMas, iBC) argument
25 & globMas(4*nshg,4*nshg)
34 globMas(i0+1,:) = zero
35 globMas(:,i0+1) = zero
36 globMas(i0+1,i0+1) = one
45 globMas(i0+2,:) = zero
46 globMas(:,i0+2) = zero
47 globMas(i0+2,i0+2) = one
53 globMas(i0+3,:) = zero
54 globMas(:,i0+3) = zero
[all …]
|
| H A D | soldir.f | 35 dimension globMas(4*nshg,4*nshg)
58 globMas = zero
63 call bc3Global(globMas, iBC)
73 if (globMas(i0+1,j0+1) .ne. 0) then
76 write(543,20) (globMas(i0+ii,j0+kk), kk=1,4)
91 call ludcmp(globMas, 4*nshg, 4*nshg, indx, d)
104 call lubksb(globMas, 4*nshg, 4*nshg, indx, dyf)
|