comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 14:15:30 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

changes to keep compilers quiet

Browse source
This commit is contained in:
edoapra 2022-11-14 16:07:07 -08:00
parent 7296707b35
commit d0af2bed0b
No known key found for this signature in database
GPG key ID: 48E12DA1EDE9E1B0
3 changed files with 5 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/rtdb/context.c
View file

@ -132,10 +132,6 @@ int context_rtdb_match(int rtdb, const char *name, int reslen,
}
static void context_print()
{
printf("context = -%s-\n", context);
}
int context_prefix(const char *name, char *result, int result_len)
{
@ -150,6 +146,10 @@ int context_prefix(const char *name, char *result, int result_len)
}
/*
static void context_print()
{
printf("context = -%s-\n", context);
}
int main()
{
int rtdb;

1
src/rtdb/rtdb.c
View file

@ -88,7 +88,6 @@ static void rtdb_broadcast(const int msg_type, const int ma_type,
{
Integer len = MA_sizeof(ma_type, nelem, MT_CHAR);
Integer from = 0;
Integer type = msg_type;
GA_Brdcst(data, len, from);
}

2
src/rtdb/rtdb_seq.c
View file

@ -134,7 +134,7 @@ void ma_print(FILE *file, const int ma_type, const int nelem, void *p)
case MT_F_INT: /* Fortran integer ... not equivalent on KSR */
for (nprint=i=0; i<nelem; i++) {
nprint += fprintf(file, "%d ", ((Integer *) p)[i]);
nprint += fprintf(file, "%ld ", ((Integer *) p)[i]);
if (nprint >= 72) {
(void) fprintf(file, "\n");
nprint = 0;