fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Change constant name to psb_c_Xpk_

Browse Source
merge-paraggr
Salvatore Filippone 5 years ago
parent 3cc63f7e84
commit 10b802743e
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File

20
base/modules/psb_cbind_const_mod.F90
Unescape Escape 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

Write Preview
Loading…
Cancel
Save