Searched refs:sumarray (Results 1 – 2 of 2) sorted by relevance
8 integer, dimension(n) :: sumarray variable9 call foo(n,m,sumarray)11 if (sumarray(i).ne.m*i) call abort19 integer, dimension(n), intent(out) :: sumarray local21 sumarray(:)=026 sumarray(i)=sumarray(i)+i
16 integer, dimension(n) :: sumarray local17 sumarray(:)=022 sumarray(i)=sumarray(i)+i28 if (sumarray(i).ne.m*i) call abort