mld2p4-2:

configure.ac
 examples/fileread/mld_cexample_1lev.f90
 examples/fileread/mld_cexample_ml.f90
 examples/fileread/mld_dexample_1lev.f90
 examples/fileread/mld_dexample_ml.f90
 examples/fileread/mld_sexample_1lev.f90
 examples/fileread/mld_sexample_ml.f90
 examples/fileread/mld_zexample_1lev.f90
 examples/fileread/mld_zexample_ml.f90
 tests/fileread/cf_sample.f90
 tests/fileread/df_sample.f90
 tests/fileread/sf_sample.f90
 tests/fileread/zf_sample.f90

New mm_array_read interface: fix fileread samples.
stopcriterion
Salvatore Filippone 11 years ago
parent e3855c9ca5
commit c6c609d6ac

@ -1,9 +1,5 @@
dnl $Id$
dnl
dnl Michele Martone's proposal for a transition towards the GNU build system for the PSBLAS library
dnl
dnl Process this file with autoconf to produce a configure script.
dnl
dnl usage : aclocal -I config/ && autoconf && ./configure && make

@ -131,7 +131,7 @@ program mld_cexample_ml
call mm_mat_read(aux_a,info,iunit=iunit,filename=mtrx_file)
if (info == psb_success_) then
if (rhs_file /= 'NONE') then
call mm_vet_read(aux_b,info,iunit=iunit,filename=rhs_file)
call mm_array_read(aux_b,info,iunit=iunit,filename=rhs_file)
end if
end if

@ -135,7 +135,7 @@ program mld_cexample_ml
call mm_mat_read(aux_a,info,iunit=iunit,filename=mtrx_file)
if (info == psb_success_) then
if (rhs_file /= 'NONE') then
call mm_vet_read(aux_b,info,iunit=iunit,filename=rhs_file)
call mm_array_read(aux_b,info,iunit=iunit,filename=rhs_file)
end if
end if

@ -130,7 +130,7 @@ program mld_dexample_ml
call mm_mat_read(aux_a,info,iunit=iunit,filename=mtrx_file)
if (info == psb_success_) then
if (rhs_file /= 'NONE') then
call mm_vet_read(aux_b,info,iunit=iunit,filename=rhs_file)
call mm_array_read(aux_b,info,iunit=iunit,filename=rhs_file)
end if
end if

@ -134,7 +134,7 @@ program mld_dexample_ml
call mm_mat_read(aux_a,info,iunit=iunit,filename=mtrx_file)
if (info == psb_success_) then
if (rhs_file /= 'NONE') then
call mm_vet_read(aux_b,info,iunit=iunit,filename=rhs_file)
call mm_array_read(aux_b,info,iunit=iunit,filename=rhs_file)
end if
end if

@ -131,7 +131,7 @@ program mld_sexample_ml
call mm_mat_read(aux_a,info,iunit=iunit,filename=mtrx_file)
if (info == psb_success_) then
if (rhs_file /= 'NONE') then
call mm_vet_read(aux_b,info,iunit=iunit,filename=rhs_file)
call mm_array_read(aux_b,info,iunit=iunit,filename=rhs_file)
end if
end if

@ -135,7 +135,7 @@ program mld_sexample_ml
call mm_mat_read(aux_a,info,iunit=iunit,filename=mtrx_file)
if (info == psb_success_) then
if (rhs_file /= 'NONE') then
call mm_vet_read(aux_b,info,iunit=iunit,filename=rhs_file)
call mm_array_read(aux_b,info,iunit=iunit,filename=rhs_file)
end if
end if

@ -130,7 +130,7 @@ program mld_zexample_ml
call mm_mat_read(aux_a,info,iunit=iunit,filename=mtrx_file)
if (info == psb_success_) then
if (rhs_file /= 'NONE') then
call mm_vet_read(aux_b,info,iunit=iunit,filename=rhs_file)
call mm_array_read(aux_b,info,iunit=iunit,filename=rhs_file)
end if
end if

@ -134,7 +134,7 @@ program mld_zexample_ml
call mm_mat_read(aux_a,info,iunit=iunit,filename=mtrx_file)
if (info == psb_success_) then
if (rhs_file /= 'NONE') then
call mm_vet_read(aux_b,info,iunit=iunit,filename=rhs_file)
call mm_array_read(aux_b,info,iunit=iunit,filename=rhs_file)
end if
end if

@ -150,7 +150,7 @@ program cf_sample
call mm_mat_read(aux_a,info,iunit=iunit,filename=mtrx_file)
if (info == psb_success_) then
if (rhs_file /= 'NONE') then
call mm_vet_read(aux_b,info,iunit=iunit,filename=rhs_file)
call mm_array_read(aux_b,info,iunit=iunit,filename=rhs_file)
end if
end if

@ -150,7 +150,7 @@ program df_sample
call mm_mat_read(aux_a,info,iunit=iunit,filename=mtrx_file)
if (info == psb_success_) then
if (rhs_file /= 'NONE') then
call mm_vet_read(aux_b,info,iunit=iunit,filename=rhs_file)
call mm_array_read(aux_b,info,iunit=iunit,filename=rhs_file)
end if
end if

@ -150,7 +150,7 @@ program sf_sample
call mm_mat_read(aux_a,info,iunit=iunit,filename=mtrx_file)
if (info == psb_success_) then
if (rhs_file /= 'NONE') then
call mm_vet_read(aux_b,info,iunit=iunit,filename=rhs_file)
call mm_array_read(aux_b,info,iunit=iunit,filename=rhs_file)
end if
end if

@ -150,7 +150,7 @@ program zf_sample
call mm_mat_read(aux_a,info,iunit=iunit,filename=mtrx_file)
if (info == psb_success_) then
if (rhs_file /= 'NONE') then
call mm_vet_read(aux_b,info,iunit=iunit,filename=rhs_file)
call mm_array_read(aux_b,info,iunit=iunit,filename=rhs_file)
end if
end if

Loading…
Cancel
Save