Lines Matching refs:mem_err
53 integer :: mem_err,mem_err_s local
200 allocate(amg_I_colm%p(amg_nshg(level1)),stat=mem_err)
201 mem_err_s = mem_err_s + mem_err
202 allocate(amg_I_rowp%pp(amg_nshg(level1)),stat=mem_err)
203 mem_err_s = mem_err_s + mem_err
204 allocate(amg_I%pp(amg_nshg(level1)),stat=mem_err)
205 mem_err_s = mem_err_s + mem_err
371 allocate(I_cf_colm(level1)%p(amg_nshg(level1)+1),stat=mem_err)
372 mem_err_s = mem_err_s + mem_err
373 allocate(I_cf_rowp(level1)%p(mnnz),stat=mem_err)
374 mem_err_s = mem_err_s + mem_err
375 allocate(I_cf(level1)%p(mnnz),stat=mem_err)
376 mem_err_s = mem_err_s + mem_err
402 deallocate(amg_I_rowp%pp(i)%p,stat=mem_err)
403 mem_err_s = mem_err_s + mem_err
404 deallocate(amg_I%pp(i)%p,stat=mem_err)
405 mem_err_s = mem_err_s + mem_err
408 deallocate(amg_I_colm%p,stat=mem_err)
409 mem_err_s = mem_err_s + mem_err
410 deallocate(amg_I_rowp%pp,stat=mem_err)
411 mem_err_s = mem_err_s + mem_err
412 deallocate(amg_I%pp,stat=mem_err)
413 mem_err_s = mem_err_s + mem_err
422 allocate(I_fc_colm(level1)%p(amg_nshg(level2)+1),stat=mem_err)
423 mem_err_s = mem_err_s + mem_err
424 allocate(I_fc_rowp(level1)%p(mnnz),stat=mem_err)
425 mem_err_s = mem_err_s + mem_err
426 allocate(I_fc(level1)%p(mnnz),stat=mem_err)
427 mem_err_s = mem_err_s + mem_err