Lines Matching refs:j1
10 integer id(4),jd(4),ia,ib,j1,j2,j3,j4
109 integer j1,j2,j3,j4
130 do j1 = 1,xdim1,4
131 sorted(0+j1+dim1*(j2-1+dim2*(j3-1+dim3*(0+j4-1)))) = factor*
132 & unsorted(0+j4+dim4*(j3-1+dim3*(j2-1+dim2*(0+j1-1))))
133 sorted(1+j1+dim1*(j2-1+dim2*(j3-1+dim3*(0+j4-1)))) = factor*
134 & unsorted(0+j4+dim4*(j3-1+dim3*(j2-1+dim2*(1+j1-1))))
135 sorted(2+j1+dim1*(j2-1+dim2*(j3-1+dim3*(0+j4-1)))) = factor*
136 & unsorted(0+j4+dim4*(j3-1+dim3*(j2-1+dim2*(2+j1-1))))
137 sorted(3+j1+dim1*(j2-1+dim2*(j3-1+dim3*(0+j4-1)))) = factor*
138 & unsorted(0+j4+dim4*(j3-1+dim3*(j2-1+dim2*(3+j1-1))))
140 sorted(0+j1+dim1*(j2-1+dim2*(j3-1+dim3*(1+j4-1)))) = factor*
141 & unsorted(1+j4+dim4*(j3-1+dim3*(j2-1+dim2*(0+j1-1))))
142 sorted(1+j1+dim1*(j2-1+dim2*(j3-1+dim3*(1+j4-1)))) = factor*
143 & unsorted(1+j4+dim4*(j3-1+dim3*(j2-1+dim2*(1+j1-1))))
144 sorted(2+j1+dim1*(j2-1+dim2*(j3-1+dim3*(1+j4-1)))) = factor*
145 & unsorted(1+j4+dim4*(j3-1+dim3*(j2-1+dim2*(2+j1-1))))
146 sorted(3+j1+dim1*(j2-1+dim2*(j3-1+dim3*(1+j4-1)))) = factor*
147 & unsorted(1+j4+dim4*(j3-1+dim3*(j2-1+dim2*(3+j1-1))))
149 sorted(0+j1+dim1*(j2-1+dim2*(j3-1+dim3*(2+j4-1)))) = factor*
150 & unsorted(2+j4+dim4*(j3-1+dim3*(j2-1+dim2*(0+j1-1))))
151 sorted(1+j1+dim1*(j2-1+dim2*(j3-1+dim3*(2+j4-1)))) = factor*
152 & unsorted(2+j4+dim4*(j3-1+dim3*(j2-1+dim2*(1+j1-1))))
153 sorted(2+j1+dim1*(j2-1+dim2*(j3-1+dim3*(2+j4-1)))) = factor*
154 & unsorted(2+j4+dim4*(j3-1+dim3*(j2-1+dim2*(2+j1-1))))
155 sorted(3+j1+dim1*(j2-1+dim2*(j3-1+dim3*(2+j4-1)))) = factor*
156 & unsorted(2+j4+dim4*(j3-1+dim3*(j2-1+dim2*(3+j1-1))))
158 sorted(0+j1+dim1*(j2-1+dim2*(j3-1+dim3*(3+j4-1)))) = factor*
159 & unsorted(3+j4+dim4*(j3-1+dim3*(j2-1+dim2*(0+j1-1))))
160 sorted(1+j1+dim1*(j2-1+dim2*(j3-1+dim3*(3+j4-1)))) = factor*
161 & unsorted(3+j4+dim4*(j3-1+dim3*(j2-1+dim2*(1+j1-1))))
162 sorted(2+j1+dim1*(j2-1+dim2*(j3-1+dim3*(3+j4-1)))) = factor*
163 & unsorted(3+j4+dim4*(j3-1+dim3*(j2-1+dim2*(2+j1-1))))
164 sorted(3+j1+dim1*(j2-1+dim2*(j3-1+dim3*(3+j4-1)))) = factor*
165 & unsorted(3+j4+dim4*(j3-1+dim3*(j2-1+dim2*(3+j1-1))))
169 do j1 = xdim1+1,dim1,1
170 sorted(0+j1+dim1*(j2-1+dim2*(j3-1+dim3*(0+j4-1)))) = factor*
171 & unsorted(0+j4+dim4*(j3-1+dim3*(j2-1+dim2*(0+j1-1))))
172 sorted(0+j1+dim1*(j2-1+dim2*(j3-1+dim3*(1+j4-1)))) = factor*
173 & unsorted(1+j4+dim4*(j3-1+dim3*(j2-1+dim2*(0+j1-1))))
174 sorted(0+j1+dim1*(j2-1+dim2*(j3-1+dim3*(2+j4-1)))) = factor*
175 & unsorted(2+j4+dim4*(j3-1+dim3*(j2-1+dim2*(0+j1-1))))
176 sorted(0+j1+dim1*(j2-1+dim2*(j3-1+dim3*(3+j4-1)))) = factor*
177 & unsorted(3+j4+dim4*(j3-1+dim3*(j2-1+dim2*(0+j1-1))))
185 do j1 = 1,xdim1,4
186 sorted(0+j1+dim1*(j2-1+dim2*(j3-1+dim3*(0+j4-1)))) = factor*
187 & unsorted(0+j4+dim4*(j3-1+dim3*(j2-1+dim2*(0+j1-1))))
188 sorted(1+j1+dim1*(j2-1+dim2*(j3-1+dim3*(0+j4-1)))) = factor*
189 & unsorted(0+j4+dim4*(j3-1+dim3*(j2-1+dim2*(1+j1-1))))
190 sorted(2+j1+dim1*(j2-1+dim2*(j3-1+dim3*(0+j4-1)))) = factor*
191 & unsorted(0+j4+dim4*(j3-1+dim3*(j2-1+dim2*(2+j1-1))))
192 sorted(3+j1+dim1*(j2-1+dim2*(j3-1+dim3*(0+j4-1)))) = factor*
193 & unsorted(0+j4+dim4*(j3-1+dim3*(j2-1+dim2*(3+j1-1))))
201 do j1 = xdim1+1,dim1,1
202 sorted(0+j1+dim1*(j2-1+dim2*(j3-1+dim3*(0+j4-1)))) = factor*
203 & unsorted(0+j4+dim4*(j3-1+dim3*(j2-1+dim2*(0+j1-1))))
220 integer j1,j2,j3,j4
230 do j1 = 1,dim1
238 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
239 new_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
252 integer j1,j2,j3,j4
260 do j1 = 1,dim1
270 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
271 new_offset = j3+dim3*(j4-1+dim4*(j2-1+dim2*(j1-1)))
284 integer j1,j2,j3,j4
292 do j1 = 1,dim1
302 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
303 new_offset = j4+dim4*(j2-1+dim2*(j3-1+dim3*(j1-1)))
316 integer j1,j2,j3,j4
324 do j1 = 1,dim1
334 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
335 new_offset = j2+dim2*(j4-1+dim4*(j3-1+dim3*(j1-1)))
348 integer j1,j2,j3,j4
356 do j1 = 1,dim1
366 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
367 new_offset = j3+dim3*(j2-1+dim2*(j4-1+dim4*(j1-1)))
380 integer j1,j2,j3,j4
388 do j1 = 1,dim1
398 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
399 new_offset = j2+dim2*(j3-1+dim3*(j4-1+dim4*(j1-1)))
412 integer j1,j2,j3,j4
422 do j1 = 1,dim1
430 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
431 new_offset = j4+dim4*(j3-1+dim3*(j1-1+dim1*(j2-1)))
444 integer j1,j2,j3,j4
454 do j1 = 1,dim1
462 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
463 new_offset = j3+dim3*(j4-1+dim4*(j1-1+dim1*(j2-1)))
476 integer j1,j2,j3,j4
486 do j1 = 1,dim1
494 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
495 new_offset = j4+dim4*(j1-1+dim1*(j3-1+dim3*(j2-1)))
508 integer j1,j2,j3,j4
525 do j1 = 1,dim1
526 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
527 new_offset = j1+dim1*(j4-1+dim4*(j3-1+dim3*(j2-1)))
540 integer j1,j2,j3,j4
553 do j1 = 1,dim1
558 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
559 new_offset = j3+dim3*(j1-1+dim1*(j4-1+dim4*(j2-1)))
572 integer j1,j2,j3,j4
589 do j1 = 1,dim1
590 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
591 new_offset = j1+dim1*(j3-1+dim3*(j4-1+dim4*(j2-1)))
604 integer j1,j2,j3,j4
612 do j1 = 1,dim1
622 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
623 new_offset = j4+dim4*(j2-1+dim2*(j1-1+dim1*(j3-1)))
636 integer j1,j2,j3,j4
644 do j1 = 1,dim1
654 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
655 new_offset = j2+dim2*(j4-1+dim4*(j1-1+dim1*(j3-1)))
668 integer j1,j2,j3,j4
678 do j1 = 1,dim1
686 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
687 new_offset = j4+dim4*(j1-1+dim1*(j2-1+dim2*(j3-1)))
700 integer j1,j2,j3,j4
717 do j1 = 1,dim1
718 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
719 new_offset = j1+dim1*(j4-1+dim4*(j2-1+dim2*(j3-1)))
732 integer j1,j2,j3,j4
740 do j1 = 1,dim1
750 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
751 new_offset = j2+dim2*(j1-1+dim1*(j4-1+dim4*(j3-1)))
764 integer j1,j2,j3,j4
781 do j1 = 1,dim1
782 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
783 new_offset = j1+dim1*(j2-1+dim2*(j4-1+dim4*(j3-1)))
796 integer j1,j2,j3,j4
804 do j1 = 1,dim1
814 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
815 new_offset = j3+dim3*(j2-1+dim2*(j1-1+dim1*(j4-1)))
828 integer j1,j2,j3,j4
836 do j1 = 1,dim1
846 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
847 new_offset = j2+dim2*(j3-1+dim3*(j1-1+dim1*(j4-1)))
860 integer j1,j2,j3,j4
873 do j1 = 1,dim1
878 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
879 new_offset = j3+dim3*(j1-1+dim1*(j2-1+dim2*(j4-1)))
892 integer j1,j2,j3,j4
909 do j1 = 1,dim1
910 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
911 new_offset = j1+dim1*(j3-1+dim3*(j2-1+dim2*(j4-1)))
924 integer j1,j2,j3,j4
932 do j1 = 1,dim1
942 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
943 new_offset = j2+dim2*(j1-1+dim1*(j3-1+dim3*(j4-1)))
956 integer j1,j2,j3,j4
973 do j1 = 1,dim1
974 old_offset = j4+dim4*(j3-1+dim3*(j2-1+dim2*(j1-1)))
975 new_offset = j1+dim1*(j2-1+dim2*(j3-1+dim3*(j4-1)))