test/fileread/Makefile
 test/fileread/cf_sample.f90
 test/fileread/df_sample.f90
 test/fileread/psb_cf_sample.f90
 test/fileread/psb_df_sample.f90
 test/fileread/psb_sf_sample.f90
 test/fileread/psb_zf_sample.f90
 test/fileread/sf_sample.f90
 test/fileread/zf_sample.f90
 test/pargen/Makefile
 test/pargen/ppde2d.f90
 test/pargen/ppde3d.f90
 test/pargen/psb_d_pde2d.f90
 test/pargen/psb_d_pde3d.f90
 test/pargen/psb_s_pde2d.f90
 test/pargen/psb_s_pde3d.f90
 test/pargen/spde2d.f90
 test/pargen/spde3d.f90

Rename test programs.
trunk
Salvatore Filippone 8 years ago
parent 531bf22751
commit bd1edf2a9c

@ -10,36 +10,36 @@ LDLIBS=$(PSBLDLIBS)
FINCLUDES=$(FMFLAG)$(INCDIR) $(FMFLAG).
SFOBJS=getp.o sf_sample.o
DFOBJS=getp.o df_sample.o
CFOBJS=getp.o cf_sample.o
ZFOBJS=getp.o zf_sample.o
SFOBJS=getp.o psb_sf_sample.o
DFOBJS=getp.o psb_df_sample.o
CFOBJS=getp.o psb_cf_sample.o
ZFOBJS=getp.o psb_zf_sample.o
EXEDIR=./runs
all: sf_sample df_sample cf_sample zf_sample
all: psb_sf_sample psb_df_sample psb_cf_sample psb_zf_sample
sf_sample.o df_sample.o cf_sample.o zf_sample.o: getp.o
psb_sf_sample.o psb_df_sample.o psb_cf_sample.o psb_zf_sample.o: getp.o
sf_sample: $(SFOBJS)
$(F90LINK) $(LOPT) $(SFOBJS) -o sf_sample $(PSBLAS_LIB) $(LDLIBS)
/bin/mv sf_sample $(EXEDIR)
df_sample: $(DFOBJS)
$(F90LINK) $(LOPT) $(DFOBJS) -o df_sample $(PSBLAS_LIB) $(LDLIBS)
/bin/mv df_sample $(EXEDIR)
cf_sample: $(CFOBJS)
$(F90LINK) $(LOPT) $(CFOBJS) -o cf_sample $(PSBLAS_LIB) $(LDLIBS)
/bin/mv cf_sample $(EXEDIR)
zf_sample: $(ZFOBJS)
$(F90LINK) $(LOPT) $(ZFOBJS) -o zf_sample $(PSBLAS_LIB) $(LDLIBS)
/bin/mv zf_sample $(EXEDIR)
psb_sf_sample: $(SFOBJS)
$(F90LINK) $(LOPT) $(SFOBJS) -o psb_sf_sample $(PSBLAS_LIB) $(LDLIBS)
/bin/mv psb_sf_sample $(EXEDIR)
psb_df_sample: $(DFOBJS)
$(F90LINK) $(LOPT) $(DFOBJS) -o psb_df_sample $(PSBLAS_LIB) $(LDLIBS)
/bin/mv psb_df_sample $(EXEDIR)
psb_cf_sample: $(CFOBJS)
$(F90LINK) $(LOPT) $(CFOBJS) -o psb_cf_sample $(PSBLAS_LIB) $(LDLIBS)
/bin/mv psb_cf_sample $(EXEDIR)
psb_zf_sample: $(ZFOBJS)
$(F90LINK) $(LOPT) $(ZFOBJS) -o psb_zf_sample $(PSBLAS_LIB) $(LDLIBS)
/bin/mv psb_zf_sample $(EXEDIR)
.f90.o:
$(MPF90) $(F90COPT) $(FINCLUDES) $(FDEFINES) -c $<
clean:
/bin/rm -f $(DFOBJS) $(ZFOBJS) $(SFOBJS) $(CFOBJS)\
*$(.mod) $(EXEDIR)/df_sample $(EXEDIR)/zf_sample
*$(.mod) $(EXEDIR)/psb_*f_sample
lib:
(cd ../../; make library)

@ -29,7 +29,7 @@
!!$ POSSIBILITY OF SUCH DAMAGE.
!!$
!!$
program cf_sample
program psb_cf_sample
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
@ -90,7 +90,7 @@ program cf_sample
endif
name='cf_sample'
name='psb_cf_sample'
if(psb_get_errstatus() /= 0) goto 9999
info=psb_success_
call psb_set_errverbosity(itwo)
@ -320,7 +320,7 @@ program cf_sample
9999 call psb_error(ictxt)
stop
end program cf_sample
end program psb_cf_sample

@ -29,7 +29,7 @@
!!$ POSSIBILITY OF SUCH DAMAGE.
!!$
!!$
program df_sample
program psb_df_sample
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
@ -91,7 +91,7 @@ program df_sample
endif
name='df_sample'
name='psb_df_sample'
if(psb_get_errstatus() /= 0) goto 9999
info=psb_success_
call psb_set_errverbosity(itwo)
@ -332,7 +332,7 @@ program df_sample
9999 call psb_error(ictxt)
stop
end program df_sample
end program psb_df_sample

@ -29,7 +29,7 @@
!!$ POSSIBILITY OF SUCH DAMAGE.
!!$
!!$
program sf_sample
program psb_sf_sample
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
@ -91,7 +91,7 @@ program sf_sample
endif
name='sf_sample'
name='psb_sf_sample'
if(psb_get_errstatus() /= 0) goto 9999
info=psb_success_
call psb_set_errverbosity(itwo)
@ -325,7 +325,7 @@ program sf_sample
9999 call psb_error(ictxt)
stop
end program sf_sample
end program psb_sf_sample

@ -29,7 +29,7 @@
!!$ POSSIBILITY OF SUCH DAMAGE.
!!$
!!$
program zf_sample
program psb_zf_sample
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
@ -90,7 +90,7 @@ program zf_sample
endif
name='zf_sample'
name='psb_zf_sample'
if(psb_get_errstatus() /= 0) goto 9999
info=psb_success_
call psb_set_errverbosity(itwo)
@ -321,7 +321,7 @@ program zf_sample
stop
end program zf_sample
end program psb_zf_sample

@ -15,31 +15,31 @@ FINCLUDES=$(FMFLAG)$(INCDIR) $(FMFLAG).
EXEDIR=./runs
all: ppde3d spde3d ppde2d spde2d
all: psb_d_pde3d psb_s_pde3d psb_d_pde2d psb_s_pde2d
ppde3d: ppde3d.o
$(F90LINK) ppde3d.o -o ppde3d $(PSBLAS_LIB) $(LDLIBS)
/bin/mv ppde3d $(EXEDIR)
psb_d_pde3d: psb_d_pde3d.o
$(F90LINK) psb_d_pde3d.o -o psb_d_pde3d $(PSBLAS_LIB) $(LDLIBS)
/bin/mv psb_d_pde3d $(EXEDIR)
spde3d: spde3d.o
$(F90LINK) spde3d.o -o spde3d $(PSBLAS_LIB) $(LDLIBS)
/bin/mv spde3d $(EXEDIR)
psb_s_pde3d: psb_s_pde3d.o
$(F90LINK) psb_s_pde3d.o -o psb_s_pde3d $(PSBLAS_LIB) $(LDLIBS)
/bin/mv psb_s_pde3d $(EXEDIR)
ppde2d: ppde2d.o
$(F90LINK) ppde2d.o -o ppde2d $(PSBLAS_LIB) $(LDLIBS)
/bin/mv ppde2d $(EXEDIR)
psb_d_pde2d: psb_d_pde2d.o
$(F90LINK) psb_d_pde2d.o -o psb_d_pde2d $(PSBLAS_LIB) $(LDLIBS)
/bin/mv psb_d_pde2d $(EXEDIR)
spde2d: spde2d.o
$(F90LINK) spde2d.o -o spde2d $(PSBLAS_LIB) $(LDLIBS)
/bin/mv spde2d $(EXEDIR)
psb_s_pde2d: psb_s_pde2d.o
$(F90LINK) psb_s_pde2d.o -o psb_s_pde2d $(PSBLAS_LIB) $(LDLIBS)
/bin/mv psb_s_pde2d $(EXEDIR)
clean:
/bin/rm -f ppde3d.o spde3d.o ppde2d.o spde2d.o *$(.mod) \
$(EXEDIR)/ppde3d $(EXEDIR)/spde3d $(EXEDIR)/ppde2d $(EXEDIR)/spde2d
/bin/rm -f psb_d_pde3d.o psb_s_pde3d.o psb_d_pde2d.o psb_s_pde2d.o *$(.mod) \
$(EXEDIR)/psb_d_pde3d $(EXEDIR)/psb_s_pde3d $(EXEDIR)/psb_d_pde2d $(EXEDIR)/psb_s_pde2d
verycleanlib:
(cd ../..; make veryclean)
lib:

@ -29,9 +29,9 @@
!!$ POSSIBILITY OF SUCH DAMAGE.
!!$
!!$
! File: ppde2d.f90
! File: psb_d_pde2d.f90
!
! Program: ppde2d
! Program: psb_d_pde2d
! This sample program solves a linear system obtained by discretizing a
! PDE with Dirichlet BCs.
!
@ -55,7 +55,7 @@
! then the corresponding vector is distributed according to a BLOCK
! data distribution.
!
module ppde2d_mod
module psb_d_pde2d_mod
contains
!
@ -103,14 +103,14 @@ contains
end if
end function g
end module ppde2d_mod
end module psb_d_pde2d_mod
program ppde2d
program psb_d_pde2d
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
use psb_util_mod
use ppde2d_mod
use psb_d_pde2d_mod
implicit none
! input parameters
@ -360,6 +360,6 @@ contains
write(iout,*)' >= 1 do tracing every itrace'
write(iout,*)' iterations '
end subroutine pr_usage
end program ppde2d
end program psb_d_pde2d

@ -29,9 +29,9 @@
!!$ POSSIBILITY OF SUCH DAMAGE.
!!$
!!$
! File: ppde3d.f90
! File: psb_d_pde3d.f90
!
! Program: ppde3d
! Program: psb_d_pde3d
! This sample program solves a linear system obtained by discretizing a
! PDE with Dirichlet BCs.
!
@ -55,7 +55,7 @@
! then the corresponding vector is distributed according to a BLOCK
! data distribution.
!
module ppde3d_mod
module psb_d_pde3d_mod
contains
!
! functions parametrizing the differential equation
@ -114,14 +114,14 @@ contains
end if
end function g
end module ppde3d_mod
end module psb_d_pde3d_mod
program ppde3d
program psb_d_pde3d
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
use psb_util_mod
use ppde3d_mod
use psb_d_pde3d_mod
implicit none
! input parameters
@ -377,6 +377,6 @@ contains
write(iout,*)' iterations '
end subroutine pr_usage
end program ppde3d
end program psb_d_pde3d

@ -29,9 +29,9 @@
!!$ POSSIBILITY OF SUCH DAMAGE.
!!$
!!$
! File: spde2d.f90
! File: psb_s_pde2d.f90
!
! Program: spde2d
! Program: psb_s_pde2d
! This sample program solves a linear system obtained by discretizing a
! PDE with Dirichlet BCs.
!
@ -55,7 +55,7 @@
! then the corresponding vector is distributed according to a BLOCK
! data distribution.
!
module spde2d_mod
module psb_s_pde2d_mod
contains
!
! functions parametrizing the differential equation
@ -102,14 +102,14 @@ contains
end if
end function g
end module spde2d_mod
end module psb_s_pde2d_mod
program spde2d
program psb_s_pde2d
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
use psb_util_mod
use spde2d_mod
use psb_s_pde2d_mod
implicit none
! input parameters
@ -359,6 +359,6 @@ contains
write(iout,*)' iterations '
end subroutine pr_usage
end program spde2d
end program psb_s_pde2d

@ -29,9 +29,9 @@
!!$ POSSIBILITY OF SUCH DAMAGE.
!!$
!!$
! File: spde3d.f90
! File: psb_s_pde3d.f90
!
! Program: spde3d
! Program: psb_s_pde3d
! This sample program solves a linear system obtained by discretizing a
! PDE with Dirichlet BCs.
!
@ -56,7 +56,7 @@
! data distribution.
!
!
module spde3d_mod
module psb_s_pde3d_mod
contains
!
@ -115,14 +115,14 @@ contains
g = exp(y**2-z**2)
end if
end function g
end module spde3d_mod
end module psb_s_pde3d_mod
program spde3d
program psb_s_pde3d
use psb_base_mod
use psb_prec_mod
use psb_krylov_mod
use psb_util_mod
use spde3d_mod
use psb_s_pde3d_mod
implicit none
! input parameters
@ -374,6 +374,6 @@ contains
write(iout,*)' iterations '
end subroutine pr_usage
end program spde3d
end program psb_s_pde3d
Loading…
Cancel
Save