Fixed stupid typo.

stopcriterion
Salvatore Filippone 14 years ago
parent 4bb7841ce7
commit 53d6992dea

@ -372,7 +372,7 @@ contains
class default class default
call level%sm%free(info) call level%sm%free(info)
if (info == 0) deallocate(level%sm) if (info == 0) deallocate(level%sm)
n if (info == 0) allocate(mld_d_jac_smoother_type :: & if (info == 0) allocate(mld_d_jac_smoother_type :: &
& level%sm, stat=info) & level%sm, stat=info)
if (info == 0) allocate(mld_d_diag_solver_type :: & if (info == 0) allocate(mld_d_diag_solver_type :: &
& level%sm%sv, stat=info) & level%sm%sv, stat=info)

Loading…
Cancel
Save