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

Change constant name to psb_c_Xpk_

Browse Source
This commit is contained in:
Salvatore Filippone
2019-09-14 16:41:36 +01:00
parent 3cc63f7e84
commit 10b802743e
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_cbind_const_mod.F90
+10 -10
View File
@@ -33,20 +33,20 @@
module psb_cbind_const_mod
use iso_c_binding
integer, parameter :: psb_c_mpk = c_int32_t
integer, parameter :: psb_c_mpk_ = c_int32_t
#if defined(IPK4) && defined(LPK4)
integer, parameter :: psb_c_ipk = c_int32_t
integer, parameter :: psb_c_lpk = c_int32_t
integer, parameter :: psb_c_ipk_ = c_int32_t
integer, parameter :: psb_c_lpk_ = c_int32_t
#elif defined(IPK4) && defined(LPK8)
integer, parameter :: psb_c_ipk = c_int32_t
integer, parameter :: psb_c_lpk = c_int64_t
integer, parameter :: psb_c_ipk_ = c_int32_t
integer, parameter :: psb_c_lpk_ = c_int64_t
#elif defined(IPK8) && defined(LPK8)
integer, parameter :: psb_c_ipk = c_int64_t
integer, parameter :: psb_c_lpk = c_int64_t
integer, parameter :: psb_c_ipk_ = c_int64_t
integer, parameter :: psb_c_lpk_ = c_int64_t
#else
integer, parameter :: psb_c_ipk = -1
integer, parameter :: psb_c_lpk = -1
integer, parameter :: psb_c_ipk_ = -1
integer, parameter :: psb_c_lpk_ = -1
#endif
integer, parameter :: psb_c_epk = c_int64_t
integer, parameter :: psb_c_epk_ = c_int64_t
end module psb_cbind_const_mod