Lines Matching refs:k_r1
22 integer l_r1,k_r1
69 if (.not.ma_push_get(mt_dbl,size,'r1',l_r1,k_r1))
71 call get_hash_block(d_r1,dbl_mb(k_r1),size,
89 1 (abs(dbl_mb(k_r1+i-1)/denom).gt.1.0d0))
92 1 dbl_mb(k_r1+i-1)
104 dbl_mb(k_r1+i-1) = (dbl_mb(k_r1+i-1))
109 dbl_mb(k_r1+i-1) = (dbl_mb(k_r1+i-1))
119 dbl_mb(k_r1+i-1) = (dbl_mb(k_r1+i-1)
126 dbl_mb(k_r1+i-1) = (dbl_mb(k_r1+i-1)
149 if(abs(dbl_mb(k_r1+i-1)).gt. 0.1d0) then
150 if(dbl_mb(k_r1+i-1).lt.0.0d0) then
151 dbl_mb(k_r1+i-1)=-0.01d0
153 dbl_mb(k_r1+i-1)=0.01d0
166 call add_hash_block(d_t1,dbl_mb(k_r1),size,
173 call get_hash_block(d_t1,dbl_mb(k_r1),size,
175 call ma_print_compact(dbl_mb(k_r1),size,1,'t1')