fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 12:52:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Corrected pass argument in div routines

Browse Source
This commit is contained in:
Cirdans-Home
2020-03-30 13:46:34 +02:00
parent effb976305
commit 28c1efe650
9 changed files with 24 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/serial/psb_c_base_vect_mod.f90
+2 -2
View File
@@ -171,8 +171,8 @@ module psb_c_base_vect_mod
!
procedure, pass(x) :: div_v => c_base_div_v
procedure, pass(x) :: div_v_check => c_base_div_v_check
procedure, pass(x) :: div_v2 => c_base_div_v2
procedure, pass(x) :: div_v2_check => c_base_div_v2_check
procedure, pass(z) :: div_v2 => c_base_div_v2
procedure, pass(z) :: div_v2_check => c_base_div_v2_check
procedure, pass(z) :: div_a2 => c_base_div_a2
procedure, pass(z) :: div_a2_check => c_base_div_a2_check
generic, public :: div => div_v, div_v2, div_v_check, &
base/modules/serial/psb_c_vect_mod.F90
+1 -1
View File
@@ -97,7 +97,7 @@ module psb_c_vect_mod
generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,&
& mlt_v_2, mlt_av, mlt_va
procedure, pass(x) :: div_v => c_vect_div_v
procedure, pass(x) :: div_v2 => c_vect_div_v2
procedure, pass(z) :: div_v2 => c_vect_div_v2
procedure, pass(x) :: div_v_check => c_vect_div_v_check
procedure, pass(x) :: div_v2_check => c_vect_div_v2_check
procedure, pass(z) :: div_a2 => c_vect_div_a2
base/modules/serial/psb_d_base_vect_mod.f90
+2 -2
View File
@@ -171,8 +171,8 @@ module psb_d_base_vect_mod
!
procedure, pass(x) :: div_v => d_base_div_v
procedure, pass(x) :: div_v_check => d_base_div_v_check
procedure, pass(x) :: div_v2 => d_base_div_v2
procedure, pass(x) :: div_v2_check => d_base_div_v2_check
procedure, pass(z) :: div_v2 => d_base_div_v2
procedure, pass(z) :: div_v2_check => d_base_div_v2_check
procedure, pass(z) :: div_a2 => d_base_div_a2
procedure, pass(z) :: div_a2_check => d_base_div_a2_check
generic, public :: div => div_v, div_v2, div_v_check, &
base/modules/serial/psb_d_vect_mod.F90
+1 -1
View File
@@ -97,7 +97,7 @@ module psb_d_vect_mod
generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,&
& mlt_v_2, mlt_av, mlt_va
procedure, pass(x) :: div_v => d_vect_div_v
procedure, pass(x) :: div_v2 => d_vect_div_v2
procedure, pass(z) :: div_v2 => d_vect_div_v2
procedure, pass(x) :: div_v_check => d_vect_div_v_check
procedure, pass(x) :: div_v2_check => d_vect_div_v2_check
procedure, pass(z) :: div_a2 => d_vect_div_a2
base/modules/serial/psb_s_base_vect_mod.f90
+2 -2
View File
@@ -171,8 +171,8 @@ module psb_s_base_vect_mod
!
procedure, pass(x) :: div_v => s_base_div_v
procedure, pass(x) :: div_v_check => s_base_div_v_check
procedure, pass(x) :: div_v2 => s_base_div_v2
procedure, pass(x) :: div_v2_check => s_base_div_v2_check
procedure, pass(z) :: div_v2 => s_base_div_v2
procedure, pass(z) :: div_v2_check => s_base_div_v2_check
procedure, pass(z) :: div_a2 => s_base_div_a2
procedure, pass(z) :: div_a2_check => s_base_div_a2_check
generic, public :: div => div_v, div_v2, div_v_check, &
base/modules/serial/psb_s_vect_mod.F90
+1 -1
View File
@@ -97,7 +97,7 @@ module psb_s_vect_mod
generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,&
& mlt_v_2, mlt_av, mlt_va
procedure, pass(x) :: div_v => s_vect_div_v
procedure, pass(x) :: div_v2 => s_vect_div_v2
procedure, pass(z) :: div_v2 => s_vect_div_v2
procedure, pass(x) :: div_v_check => s_vect_div_v_check
procedure, pass(x) :: div_v2_check => s_vect_div_v2_check
procedure, pass(z) :: div_a2 => s_vect_div_a2
base/modules/serial/psb_z_base_vect_mod.f90
+2 -2
View File
@@ -171,8 +171,8 @@ module psb_z_base_vect_mod
!
procedure, pass(x) :: div_v => z_base_div_v
procedure, pass(x) :: div_v_check => z_base_div_v_check
procedure, pass(x) :: div_v2 => z_base_div_v2
procedure, pass(x) :: div_v2_check => z_base_div_v2_check
procedure, pass(z) :: div_v2 => z_base_div_v2
procedure, pass(z) :: div_v2_check => z_base_div_v2_check
procedure, pass(z) :: div_a2 => z_base_div_a2
procedure, pass(z) :: div_a2_check => z_base_div_a2_check
generic, public :: div => div_v, div_v2, div_v_check, &
base/modules/serial/psb_z_vect_mod.F90
+1 -1
View File
@@ -97,7 +97,7 @@ module psb_z_vect_mod
generic, public :: mlt => mlt_v, mlt_a, mlt_a_2,&
& mlt_v_2, mlt_av, mlt_va
procedure, pass(x) :: div_v => z_vect_div_v
procedure, pass(x) :: div_v2 => z_vect_div_v2
procedure, pass(z) :: div_v2 => z_vect_div_v2
procedure, pass(x) :: div_v_check => z_vect_div_v_check
procedure, pass(x) :: div_v2_check => z_vect_div_v2_check
procedure, pass(z) :: div_a2 => z_vect_div_a2