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

psblas3-integer8:

Browse Source 
base/serial/aux/camsort_dw.f90
 base/serial/aux/camsort_up.f90
 base/serial/aux/dmsort_dw.f90
 base/serial/aux/dmsort_up.f90
 base/serial/aux/msort_dw.f90
 base/serial/aux/msort_up.f90
 base/serial/aux/smsort_dw.f90
 base/serial/aux/smsort_up.f90
 base/serial/aux/zamsort_dw.f90
 base/serial/aux/zamsort_up.f90

Going forward.
This commit is contained in:
Salvatore Filippone
2012-01-30 17:53:31 +00:00
parent 3886ae08fa
commit ff1fb0cc8d
10 changed files with 40 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/aux/camsort_dw.f90
+4 -5
View File
@@ -76,7 +76,6 @@ subroutine camsort_dw(n,k,l,iret)
integer(psb_ipk_) :: l(0:n+1)
!
integer(psb_ipk_) :: p,q,s,t
intrinsic iabs,isign
! ..
iret = 0
! first step: we are preparing ordered sublists, exploiting
@@ -99,7 +98,7 @@ subroutine camsort_dw(n,k,l,iret)
iret = 1
return
else
l(n+1) = iabs(l(n+1))
l(n+1) = abs(l(n+1))
end if
mergepass: do
@@ -118,7 +117,7 @@ subroutine camsort_dw(n,k,l,iret)
if (k(p) < k(q)) then
l(s) = isign(q,l(s))
l(s) = sign(q,l(s))
s = q
q = l(q)
if (q > 0) then
@@ -139,7 +138,7 @@ subroutine camsort_dw(n,k,l,iret)
else
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
s = p
p = l(p)
if (p>0) then
@@ -164,7 +163,7 @@ subroutine camsort_dw(n,k,l,iret)
p = -p
q = -q
if (q == 0) then
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
l(t) = 0
exit outer
end if
base/serial/aux/camsort_up.f90
+4 -5
View File
@@ -76,7 +76,6 @@ subroutine camsort_up(n,k,l,iret)
integer(psb_ipk_) :: l(0:n+1)
!
integer(psb_ipk_) :: p,q,s,t
intrinsic iabs,isign
! ..
iret = 0
! first step: we are preparing ordered sublists, exploiting
@@ -99,7 +98,7 @@ subroutine camsort_up(n,k,l,iret)
iret = 1
return
else
l(n+1) = iabs(l(n+1))
l(n+1) = abs(l(n+1))
end if
mergepass: do
@@ -118,7 +117,7 @@ subroutine camsort_up(n,k,l,iret)
if (k(p) > k(q)) then
l(s) = isign(q,l(s))
l(s) = sign(q,l(s))
s = q
q = l(q)
if (q > 0) then
@@ -139,7 +138,7 @@ subroutine camsort_up(n,k,l,iret)
else
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
s = p
p = l(p)
if (p>0) then
@@ -164,7 +163,7 @@ subroutine camsort_up(n,k,l,iret)
p = -p
q = -q
if (q == 0) then
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
l(t) = 0
exit outer
end if
base/serial/aux/dmsort_dw.f90
+4 -5
View File
@@ -76,7 +76,6 @@ subroutine dmsort_dw(n,k,l,iret)
integer(psb_ipk_) :: l(0:n+1)
!
integer(psb_ipk_) :: p,q,s,t
intrinsic iabs,isign
! ..
iret = 0
! first step: we are preparing ordered sublists, exploiting
@@ -99,7 +98,7 @@ subroutine dmsort_dw(n,k,l,iret)
iret = 1
return
else
l(n+1) = iabs(l(n+1))
l(n+1) = abs(l(n+1))
end if
mergepass: do
@@ -118,7 +117,7 @@ subroutine dmsort_dw(n,k,l,iret)
if (k(p) < k(q)) then
l(s) = isign(q,l(s))
l(s) = sign(q,l(s))
s = q
q = l(q)
if (q > 0) then
@@ -139,7 +138,7 @@ subroutine dmsort_dw(n,k,l,iret)
else
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
s = p
p = l(p)
if (p>0) then
@@ -164,7 +163,7 @@ subroutine dmsort_dw(n,k,l,iret)
p = -p
q = -q
if (q == 0) then
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
l(t) = 0
exit outer
end if
base/serial/aux/dmsort_up.f90
+4 -5
View File
@@ -76,7 +76,6 @@ subroutine dmsort_up(n,k,l,iret)
integer(psb_ipk_) :: l(0:n+1)
!
integer(psb_ipk_) :: p,q,s,t
intrinsic iabs,isign
! ..
iret = 0
! first step: we are preparing ordered sublists, exploiting
@@ -99,7 +98,7 @@ subroutine dmsort_up(n,k,l,iret)
iret = 1
return
else
l(n+1) = iabs(l(n+1))
l(n+1) = abs(l(n+1))
end if
mergepass: do
@@ -118,7 +117,7 @@ subroutine dmsort_up(n,k,l,iret)
if (k(p) > k(q)) then
l(s) = isign(q,l(s))
l(s) = sign(q,l(s))
s = q
q = l(q)
if (q > 0) then
@@ -139,7 +138,7 @@ subroutine dmsort_up(n,k,l,iret)
else
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
s = p
p = l(p)
if (p>0) then
@@ -164,7 +163,7 @@ subroutine dmsort_up(n,k,l,iret)
p = -p
q = -q
if (q == 0) then
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
l(t) = 0
exit outer
end if
base/serial/aux/msort_dw.f90
+4 -5
View File
@@ -75,7 +75,6 @@ subroutine msort_dw(n,k,l,iret)
integer(psb_ipk_) :: k(n),l(0:n+1)
!
integer(psb_ipk_) :: p,q,s,t
intrinsic iabs,isign
! ..
iret = 0
! first step: we are preparing ordered sublists, exploiting
@@ -98,7 +97,7 @@ subroutine msort_dw(n,k,l,iret)
iret = 1
return
else
l(n+1) = iabs(l(n+1))
l(n+1) = abs(l(n+1))
end if
mergepass: do
@@ -117,7 +116,7 @@ subroutine msort_dw(n,k,l,iret)
if (k(p) < k(q)) then
l(s) = isign(q,l(s))
l(s) = sign(q,l(s))
s = q
q = l(q)
if (q > 0) then
@@ -138,7 +137,7 @@ subroutine msort_dw(n,k,l,iret)
else
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
s = p
p = l(p)
if (p>0) then
@@ -163,7 +162,7 @@ subroutine msort_dw(n,k,l,iret)
p = -p
q = -q
if (q == 0) then
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
l(t) = 0
exit outer
end if
base/serial/aux/msort_up.f90
+4 -5
View File
@@ -75,7 +75,6 @@ subroutine msort_up(n,k,l,iret)
integer(psb_ipk_) :: k(n),l(0:n+1)
!
integer(psb_ipk_) :: p,q,s,t
intrinsic iabs,isign
! ..
iret = 0
! first step: we are preparing ordered sublists, exploiting
@@ -98,7 +97,7 @@ subroutine msort_up(n,k,l,iret)
iret = 1
return
else
l(n+1) = iabs(l(n+1))
l(n+1) = abs(l(n+1))
end if
mergepass: do
@@ -117,7 +116,7 @@ subroutine msort_up(n,k,l,iret)
if (k(p) > k(q)) then
l(s) = isign(q,l(s))
l(s) = sign(q,l(s))
s = q
q = l(q)
if (q > 0) then
@@ -138,7 +137,7 @@ subroutine msort_up(n,k,l,iret)
else
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
s = p
p = l(p)
if (p>0) then
@@ -163,7 +162,7 @@ subroutine msort_up(n,k,l,iret)
p = -p
q = -q
if (q == 0) then
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
l(t) = 0
exit outer
end if
base/serial/aux/smsort_dw.f90
+4 -5
View File
@@ -76,7 +76,6 @@ subroutine smsort_dw(n,k,l,iret)
integer(psb_ipk_) :: l(0:n+1)
!
integer(psb_ipk_) :: p,q,s,t
intrinsic iabs,isign
! ..
iret = 0
! first step: we are preparing ordered sublists, exploiting
@@ -99,7 +98,7 @@ subroutine smsort_dw(n,k,l,iret)
iret = 1
return
else
l(n+1) = iabs(l(n+1))
l(n+1) = abs(l(n+1))
end if
mergepass: do
@@ -118,7 +117,7 @@ subroutine smsort_dw(n,k,l,iret)
if (k(p) < k(q)) then
l(s) = isign(q,l(s))
l(s) = sign(q,l(s))
s = q
q = l(q)
if (q > 0) then
@@ -139,7 +138,7 @@ subroutine smsort_dw(n,k,l,iret)
else
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
s = p
p = l(p)
if (p>0) then
@@ -164,7 +163,7 @@ subroutine smsort_dw(n,k,l,iret)
p = -p
q = -q
if (q == 0) then
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
l(t) = 0
exit outer
end if
base/serial/aux/smsort_up.f90
+4 -5
View File
@@ -76,7 +76,6 @@ subroutine smsort_up(n,k,l,iret)
integer(psb_ipk_) :: l(0:n+1)
!
integer(psb_ipk_) :: p,q,s,t
intrinsic iabs,isign
! ..
iret = 0
! first step: we are preparing ordered sublists, exploiting
@@ -99,7 +98,7 @@ subroutine smsort_up(n,k,l,iret)
iret = 1
return
else
l(n+1) = iabs(l(n+1))
l(n+1) = abs(l(n+1))
end if
mergepass: do
@@ -118,7 +117,7 @@ subroutine smsort_up(n,k,l,iret)
if (k(p) > k(q)) then
l(s) = isign(q,l(s))
l(s) = sign(q,l(s))
s = q
q = l(q)
if (q > 0) then
@@ -139,7 +138,7 @@ subroutine smsort_up(n,k,l,iret)
else
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
s = p
p = l(p)
if (p>0) then
@@ -164,7 +163,7 @@ subroutine smsort_up(n,k,l,iret)
p = -p
q = -q
if (q == 0) then
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
l(t) = 0
exit outer
end if
base/serial/aux/zamsort_dw.f90
+4 -5
View File
@@ -76,7 +76,6 @@ subroutine zamsort_dw(n,k,l,iret)
integer(psb_ipk_) :: l(0:n+1)
!
integer(psb_ipk_) :: p,q,s,t
intrinsic iabs,isign
! ..
iret = 0
! first step: we are preparing ordered sublists, exploiting
@@ -99,7 +98,7 @@ subroutine zamsort_dw(n,k,l,iret)
iret = 1
return
else
l(n+1) = iabs(l(n+1))
l(n+1) = abs(l(n+1))
end if
mergepass: do
@@ -118,7 +117,7 @@ subroutine zamsort_dw(n,k,l,iret)
if (k(p) < k(q)) then
l(s) = isign(q,l(s))
l(s) = sign(q,l(s))
s = q
q = l(q)
if (q > 0) then
@@ -139,7 +138,7 @@ subroutine zamsort_dw(n,k,l,iret)
else
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
s = p
p = l(p)
if (p>0) then
@@ -164,7 +163,7 @@ subroutine zamsort_dw(n,k,l,iret)
p = -p
q = -q
if (q == 0) then
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
l(t) = 0
exit outer
end if
base/serial/aux/zamsort_up.f90
+4 -5
View File
@@ -76,7 +76,6 @@ subroutine zamsort_up(n,k,l,iret)
integer(psb_ipk_) :: l(0:n+1)
!
integer(psb_ipk_) :: p,q,s,t
intrinsic iabs,isign
! ..
iret = 0
! first step: we are preparing ordered sublists, exploiting
@@ -99,7 +98,7 @@ subroutine zamsort_up(n,k,l,iret)
iret = 1
return
else
l(n+1) = iabs(l(n+1))
l(n+1) = abs(l(n+1))
end if
mergepass: do
@@ -118,7 +117,7 @@ subroutine zamsort_up(n,k,l,iret)
if (k(p) > k(q)) then
l(s) = isign(q,l(s))
l(s) = sign(q,l(s))
s = q
q = l(q)
if (q > 0) then
@@ -139,7 +138,7 @@ subroutine zamsort_up(n,k,l,iret)
else
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
s = p
p = l(p)
if (p>0) then
@@ -164,7 +163,7 @@ subroutine zamsort_up(n,k,l,iret)
p = -p
q = -q
if (q == 0) then
l(s) = isign(p,l(s))
l(s) = sign(p,l(s))
l(t) = 0
exit outer
end if