fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

mld2p4-2:

Browse Source 
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
13 changed files with 12 additions and 16 deletions
Show Stats Download Patch File Download Diff File

4
configure.ac
Unescape Escape View File

@ -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

2
examples/fileread/mld_cexample_1lev.f90
Unescape Escape View File

@ -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

2
examples/fileread/mld_cexample_ml.f90
Unescape Escape View File

@ -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

2
examples/fileread/mld_dexample_1lev.f90
Unescape Escape View File

@ -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

2
examples/fileread/mld_dexample_ml.f90
Unescape Escape View File

@ -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

2
examples/fileread/mld_sexample_1lev.f90
Unescape Escape View File

@ -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

2
examples/fileread/mld_sexample_ml.f90
Unescape Escape View File

@ -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

2
examples/fileread/mld_zexample_1lev.f90
Unescape Escape View File

@ -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

2
examples/fileread/mld_zexample_ml.f90
Unescape Escape View File

@ -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

2
tests/fileread/cf_sample.f90
Unescape Escape View File

@ -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

2
tests/fileread/df_sample.f90
Unescape Escape View File

@ -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

2
tests/fileread/sf_sample.f90
Unescape Escape View File

@ -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

2
tests/fileread/zf_sample.f90
Unescape Escape View File

@ -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

Write Preview
Loading…
Cancel
Save