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

Constants psb_sizeof_X should be 8 bytes

Browse Source
This commit is contained in:
Salvatore Filippone
2025-01-04 09:40:30 +01:00
parent 2af0d56938
commit c83137cf78
2 changed files with 15 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/cutil.c
+2 -1
View File
@@ -1,8 +1,9 @@
#include <sys/time.h>
#include <stdio.h>
#include <string.h>
#include <stdint.h>
void psi_c_diffadd(void *p1, void *p2, int *ret)
void psi_c_diffadd(void *p1, void *p2, int64_t *ret)
{
*ret = (int)((char *)p2-(char *)p1);
return;
base/modules/psb_const_mod.F90
+13 -13
View File
@@ -101,24 +101,24 @@ module psb_const_mod
integer, parameter :: psb_lpk_ = -1
#endif
integer(psb_mpk_), save :: psb_sizeof_sp
integer(psb_mpk_), save :: psb_sizeof_dp
integer(psb_mpk_), save :: psb_sizeof_i2p = 2
integer(psb_mpk_), save :: psb_sizeof_mp = 4
integer(psb_mpk_), save :: psb_sizeof_ep = 8
integer(psb_epk_), save :: psb_sizeof_sp
integer(psb_epk_), save :: psb_sizeof_dp
integer(psb_epk_), save :: psb_sizeof_i2p = 2
integer(psb_epk_), save :: psb_sizeof_mp = 4
integer(psb_epk_), save :: psb_sizeof_ep = 8
#if defined(IPK4) && defined(LPK4)
integer(psb_mpk_), save :: psb_sizeof_ip = 4
integer(psb_mpk_), save :: psb_sizeof_lp = 4
integer(psb_epk_), save :: psb_sizeof_ip = 4
integer(psb_epk_), save :: psb_sizeof_lp = 4
#elif defined(IPK4) && defined(LPK8)
integer(psb_mpk_), save :: psb_sizeof_ip = 4
integer(psb_mpk_), save :: psb_sizeof_lp = 8
integer(psb_epk_), save :: psb_sizeof_ip = 4
integer(psb_epk_), save :: psb_sizeof_lp = 8
#elif defined(IPK8) && defined(LPK8)
integer(psb_mpk_), save :: psb_sizeof_ip = 8
integer(psb_mpk_), save :: psb_sizeof_lp = 8
integer(psb_epk_), save :: psb_sizeof_ip = 8
integer(psb_epk_), save :: psb_sizeof_lp = 8
#else
integer(psb_mpk_), save :: psb_sizeof_ip = -1
integer(psb_mpk_), save :: psb_sizeof_lp = -1
integer(psb_epk_), save :: psb_sizeof_ip = -1
integer(psb_epk_), save :: psb_sizeof_lp = -1
#endif
!