Lines Matching refs:idxmap
93 procedure, pass(idxmap) :: gen_block_map_init => block_init
101 subroutine block_init(idxmap,ictxt,nl,info) argument
104 class(psb_gen_block_map), intent(inout) :: idxmap local
136 idxmap%global_rows = ntot
137 idxmap%global_cols = ntot
138 idxmap%local_rows = nl
139 idxmap%local_cols = nl
140 idxmap%ictxt = ictxt
141 idxmap%state = 1
143 idxmap%min_glob_row = vnl(iam)+1
144 idxmap%max_glob_row = vnl(iam+1)
145 call move_alloc(vnl,idxmap%vnl)
146 allocate(idxmap%loc_to_glob(nl),stat=info)