Lines Matching refs:k_r1
21 integer l_r1,k_r1
58 if (.not.ma_push_get(mt_dbl,size,'r1',l_r1,k_r1))
60 call get_hash_block(d_r1,dbl_mb(k_r1),size,
87 dbl_mb(k_r1+i-1)=dbl_mb(k_r1+i-1)+
102 call put_hash_block(d_r1,dbl_mb(k_r1),size,
146 integer l_r1,k_r1
171 if (.not.ma_push_get(mt_dbl,size,'r1',l_r1,k_r1))
173 call get_hash_block(d_r1,dbl_mb(k_r1),size,
179 dbl_mb(k_r1+i-1) = 1.0d0
182 call put_hash_block(d_r1,dbl_mb(k_r1),size,
222 integer l_r1,k_r1
247 if (.not.ma_push_get(mt_dbl,size,'r1',l_r1,k_r1))
249 call get_hash_block(d_r1,dbl_mb(k_r1),size,
255 dbl_mb(k_r1+i-1) = 1.0d0/dbl_mb(k_r1+i-1)
258 call put_hash_block(d_r1,dbl_mb(k_r1),size,
301 integer l_r1,k_r1
331 if (.not.ma_push_get(mt_dbl,size,'r1',l_r1,k_r1))
335 call get_hash_block(d_r1,dbl_mb(k_r1),size,
343 dbl_mb(k_r1+i-1) = dbl_mb(k_r1+i-1)*dbl_mb(k_j1+i-1)
346 call put_hash_block(d_r1,dbl_mb(k_r1),size,