mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-07 07:04:57 +00:00
Merged changes from AIX xlf version.
This commit is contained in:
@@ -35,7 +35,8 @@
|
||||
|
||||
module psb_prec_type
|
||||
|
||||
use psb_base_mod
|
||||
! Reduces size of .mod file.
|
||||
use psb_base_mod, only : psb_dspmat_type, psb_zspmat_type, psb_desc_type
|
||||
|
||||
integer, parameter :: min_prec_=0, noprec_=0, diagsc_=1, bja_=2,&
|
||||
& max_prec_=2
|
||||
|
||||
@@ -631,7 +631,8 @@ contains
|
||||
call psb_amx(ictxt,tasb)
|
||||
|
||||
if(iam == psb_root_) then
|
||||
write(*,'("The matrix has been generated and assembeld in ",a3," format.")')a%fida(1:3)
|
||||
write(*,'("The matrix has been generated and assembeld in ",a3," format.")')&
|
||||
& a%fida(1:3)
|
||||
write(*,'("-pspins time : ",es10.4)')tins
|
||||
write(*,'("-insert time : ",es10.4)')t2
|
||||
write(*,'("-assembly time : ",es10.4)')tasb
|
||||
|
||||
Reference in New Issue
Block a user