Searched defs:at1 (Results 1 – 1 of 1) sorted by relevance
95 subroutine foo4(at1, vector, i, j, k, l, step) argument 102 type(t1) :: at1(:) local