serialtest Program

  1. serialtest.f90
  2. serialtest

Uses

  • program~~serialtest~~UsesGraph program~serialtest serialtest psb_base_mod psb_base_mod program~serialtest->psb_base_mod module~psfun_d_serial_mod psfun_d_serial_mod program~serialtest->module~psfun_d_serial_mod psb_util_mod psb_util_mod program~serialtest->psb_util_mod module~psfun_d_serial_mod->psb_base_mod

Test program for the serial part of the library.

This test program loads a matrix from file together with some options to test the serial computation of the matrix functions. Substantially, it test the interfacing with the library doing the serial part.


Calls

program~~serialtest~~CallsGraph program~serialtest serialtest psb_exit psb_exit program~serialtest->psb_exit psb_wtime psb_wtime program~serialtest->psb_wtime mm_array_write mm_array_write program~serialtest->mm_array_write psb_info psb_info program~serialtest->psb_info mm_mat_read mm_mat_read program~serialtest->mm_mat_read psb_init psb_init program~serialtest->psb_init psb_get_errstatus psb_get_errstatus program~serialtest->psb_get_errstatus proc~get_parms~3 get_parms program~serialtest->proc~get_parms~3 proc~pr_usage~3 pr_usage proc~get_parms~3->proc~pr_usage~3 psb_toupper psb_toupper proc~get_parms~3->psb_toupper psb_abort psb_abort proc~get_parms~3->psb_abort

Contents

Variables

Subroutines


Variables

Type AttributesNameInitial
type(psb_dspmat_type) :: a
type(psb_ctxt_type) :: ctxt
logical :: dump
character(len=20) :: fname
type(psfun_d_serial) :: fun
integer(kind=psb_ipk_) :: iam
integer(kind=psb_ipk_) :: info
integer(kind=psb_ipk_), parameter:: iunit =12
character(len=20) :: mname
integer(kind=psb_ipk_) :: n
integer(kind=psb_ipk_) :: nnz
integer(kind=psb_ipk_) :: np
real(kind=psb_dpk_) :: scaling
real(kind=psb_dpk_) :: t1
real(kind=psb_dpk_) :: t2
character(len=20) :: variant
real(kind=psb_dpk_), allocatable:: x(:)
real(kind=psb_dpk_), allocatable:: y(:)

Subroutines

subroutine get_parms(ctxt, mname, fname, variant, scaling, dump)

This subroutine reads the parameters needed to run the serialtest program from standard input

Arguments

Type IntentOptional AttributesName
type(psb_ctxt_type), intent(in) :: ctxt
character(len=*), intent(out) :: mname
character(len=*), intent(out) :: fname
character(len=*), intent(out) :: variant
real(kind=psb_dpk_), intent(out) :: scaling
logical, intent(out) :: dump

subroutine pr_usage(iout)

Prints out information on incorrected program usage

Arguments

Type IntentOptional AttributesName
integer(kind=psb_ipk_) :: iout