Lines Matching defs:counter

124   integer, save :: counter = 2
126   allocate(rank1(counter))
127   do i=1,counter
130   counter = counter +1
133   integer, save :: counter = 1
135   allocate(rank3(counter, counter+1, counter+2))
136   do k=1,counter+2
137     do j=1,counter+1
138       do i=1,counter
139         rank3(i, j, k)=i+(j-1)*counter+(k-1)*counter*(counter+1)
143   counter = counter+1
147   integer, save :: counter = 0
148   ifoo = counter
149   counter = counter +1