opt/Makefile
 opt/psb_d_ell_impl.f03
 prec/psb_d_bjacprec.f03

First working version of ELL. Tested with a makeshift verison of ppde.
psblas3-type-indexed
Salvatore Filippone 14 years ago
parent e66bc8e07e
commit b6d7966486

@ -15,7 +15,9 @@ FINCLUDES=$(FMFLAG)$(LIBDIR) $(FMFLAG).
EXEDIR=./runs
all: psb_d_ell_impl.o psb_d_ell_mat_mod.o
all: libopt.a
libopt.a: psb_d_ell_impl.o psb_d_ell_mat_mod.o
ar cur libopt.a psb_d_ell_impl.o psb_d_ell_mat_mod.o
psb_d_ell_impl.o: psb_d_ell_mat_mod.o
clean:

File diff suppressed because it is too large Load Diff

@ -291,8 +291,7 @@ contains
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
write(0,*) allocated(lf%irp),allocated(lf%ja),allocated(lf%val)
write(0,*) allocated(uf%irp),allocated(uf%ja),allocated(uf%val)
if (allocated(prec%d)) then
if (size(prec%d) < n_row) then
deallocate(prec%d)

Loading…
Cancel
Save