Lines Matching refs:globMas
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
55 globMas(i0+3,i0+3) = one
62 globMas(i0+2,:) = zero
63 globMas(:,i0+2) = zero
64 globMas(i0+2,i0+2) = one
65 globMas(i0+3,:) = zero
66 globMas(:,i0+3) = zero
67 globMas(i0+3,i0+3) = one
73 globMas(i0+4,:) = zero
74 globMas(:,i0+4) = zero
75 globMas(i0+4,i0+4) = one
82 globMas(i0+2,:) = zero
83 globMas(:,i0+2) = zero
84 globMas(i0+2,i0+2) = one
85 globMas(i0+4,:) = zero
86 globMas(:,i0+4) = zero
87 globMas(i0+4,i0+4) = one
94 globMas(i0+3,:) = zero
95 globMas(:,i0+3) = zero
96 globMas(i0+3,i0+3) = one
97 globMas(i0+4,:) = zero
98 globMas(:,i0+4) = zero
99 globMas(i0+4,i0+4) = one
106 globMas(i0+2,:) = zero
107 globMas(:,i0+2) = zero
108 globMas(i0+2,i0+2) = one
109 globMas(i0+3,:) = zero
110 globMas(:,i0+3) = zero
111 globMas(i0+3,i0+3) = one
112 globMas(i0+4,:) = zero
113 globMas(:,i0+4) = zero
114 globMas(i0+4,i0+4) = one