Lines Matching refs:a1

346   real :: a1(10,10)  variable
356         a1(i,j) = cos(real(k))
361   a2 = a1(4, 2:10:3)
363   if (a1(4,2) .ne. a2(1)) print *, "mismatch 1", a2(1), a1(4,2)
364   if (a1(4,5) .ne. a2(2)) print *, "mismatch 2", a2(2), a1(4,5)
365   if (a1(4,8) .ne. a2(3)) print *, "mismatch 3", a2(3), a1(4,8)
369   if (a1(4,2) .ne. a3(1)) print *, "mismatch 4", a1(4,2), a3(1)
370   if (a1(4,5) .ne. a3(5)) print *, "mismatch 5", a1(4,5), a3(5)
371   if (a1(4,8) .ne. a3(9)) print *, "mismatch 6", a1(4,8), a3(9)
377   if (a1(4,2) .ne. a2(2)) print *, "mismatch 7", a1(4,2), a2(2)
378   if (a1(4,5) .ne. a2(3)) print *, "mismatch 8", a1(4,5), a2(3)
379   if (a1(4,8) .ne. a2(1)) print *, "mismatch 9", a1(4,8), a2(1)