Lines Matching defs:test
9 subroutine test(n1,a1,a2) subroutine
18 logical, parameter :: test_lba1 = all(lba1 == [0]) argument
20 logical, parameter :: test_lba2 = all(lba2 == [0]) argument
22 logical, parameter :: test_lbtadim = lbtadim == 0 argument
24 logical, parameter :: test_ubtadim = ubtadim == 2 argument
26 logical, parameter :: test_lbta1 = all(lbta1 == [0]) argument
28 logical, parameter :: test_ubta1 = all(ubta1 == [2]) argument
30 logical, parameter :: test_lbta2 = all(lbta2 == [1]) argument
32 logical, parameter :: test_ubta2 = all(ubta2 == [3]) argument
34 logical, parameter :: test_lbta3 = all(lbta3 == [1]) argument
36 logical, parameter :: test_ubta3 = all(ubta3 == [3]) argument
38 logical, parameter :: test_lbca1 = all(lbca1 == [-1]) argument
40 logical, parameter :: test_ubca1 = all(ubca1 == [1]) argument
42 logical, parameter :: test_lbca2 = all(lbca2 == [1]) argument
44 logical, parameter :: test_ubca2 = all(ubca2 == [3]) argument
46 logical, parameter :: test_lbfoo = all(lbfoo == [1,1]) argument
48 logical, parameter :: test_ubfoo = all(ubfoo == [2,3]) argument