Skip to content

Commit ad97094

Browse files
k-yoshimik-yoshimi
committed
delete warnings
1 parent 19d0fc9 commit ad97094

File tree

5 files changed

+105
-1
lines changed

5 files changed

+105
-1
lines changed

‎src/lapack_diag.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -117,7 +117,7 @@ struct BindStruct *X//!<[inout]
117117
return -1;
118118
}
119119
for (i = 0; i < i_max; i++) {
120-
fprintf(fp, " %d %.10lf \n", i, creal(v0[i]));
120+
fprintf(fp, " %ld %.10lf \n", i, creal(v0[i]));
121121
}
122122
fclose(fp);
123123

‎src/mltplyMPIHubbard.c

Lines changed: 12 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -117,6 +117,8 @@ firstprivate(idim_max_buf, trans, X) shared(v1buf, tmp_v1, tmp_v0)
117117
}
118118
}/*End of parallel region*/
119119
return (dam_pr);
120+
#else
121+
return 0.0;
120122
#endif
121123
}/*void GC_child_general_hopp_MPIdouble*/
122124
/**
@@ -197,6 +199,8 @@ double complex X_child_CisAjt_MPIdouble(
197199
else return 0.0;
198200

199201
return 1.0;
202+
#else
203+
return 0.0;
200204
#endif
201205
}/*void child_CisAjt_MPIdouble*/
202206
/**
@@ -318,6 +322,8 @@ double complex X_GC_child_general_hopp_MPIsingle(
318322
}/*if (! (X->Large.mode == M_MLTPLY|| X->Large.mode == M_CALCSPEC))*/
319323
}/*End of parallel region*/
320324
return (dam_pr);
325+
#else
326+
return 0.0;
321327
#endif
322328
}/*void GC_child_general_hopp_MPIsingle*/
323329
/**
@@ -421,6 +427,8 @@ double complex X_child_general_hopp_MPIdouble(
421427
}/*for (j = 1; j <= idim_max_buf; j++)*/
422428
}/*End of parallel region*/
423429
return (dam_pr);
430+
#else
431+
return 0.0;
424432
#endif
425433
}/*void child_general_hopp_MPIdouble*/
426434
/**
@@ -551,6 +559,8 @@ double complex X_child_general_hopp_MPIsingle(
551559
}/*if (! (X->Large.mode == M_MLTPLY|| X->Large.mode == M_CALCSPEC))*/
552560
}/*End of parallel region*/
553561
return (dam_pr);
562+
#else
563+
return 0.0;
554564
#endif
555565
}/*double complex child_general_hopp_MPIsingle*/
556566
/**
@@ -638,5 +648,7 @@ double complex X_child_CisAjt_MPIsingle(
638648
else return 0;
639649

640650
return 1;
651+
#else
652+
return 0.0;
641653
#endif
642654
}/*double complex child_general_hopp_MPIsingle*/

‎src/mltplyMPIHubbardCore.c

Lines changed: 30 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -331,6 +331,8 @@ double complex X_GC_child_CisAisCjtAjt_Hubbard_MPI(
331331
}
332332
}/*End of parallel region*/
333333
return dam_pr;
334+
#else
335+
return 0.0;
334336
#endif
335337
}/*double complex X_GC_child_CisAisCjtAjt_Hubbard_MPI*/
336338
/**
@@ -500,6 +502,8 @@ firstprivate(idim_max_buf, tmp_V, X, tmp_isite1, tmp_isite2, tmp_isite3, tmp_isi
500502
}/*End of parallel region*/
501503
}/*myrank != origin*/
502504
return dam_pr;
505+
#else
506+
return 0.0;
503507
#endif
504508
}/*double complex X_GC_child_CisAjtCkuAku_Hubbard_MPI*/
505509
/**
@@ -525,6 +529,8 @@ double complex X_GC_child_CisAisCjtAku_Hubbard_MPI(
525529
org_isite4, org_ispin4, org_isite3, org_ispin3,
526530
org_isite1, org_ispin1, conj(tmp_V), X, tmp_v0, tmp_v1);
527531
return conj(dam_pr);
532+
#else
533+
return 0.0;
528534
#endif
529535
}/*double complex X_GC_child_CisAisCjtAku_Hubbard_MPI*/
530536
/**
@@ -703,6 +709,8 @@ firstprivate(i_max, tmp_V, X, isite1, isite4, Adiff) shared(tmp_v1, tmp_v0)
703709
}
704710
}/*myrank != origin*/
705711
return dam_pr;
712+
#else
713+
return 0.0;
706714
#endif
707715
}/*double complex X_GC_child_CisAjtCkuAlv_Hubbard_MPI*/
708716
/**
@@ -775,6 +783,8 @@ double complex X_GC_child_CisAis_Hubbard_MPI(
775783
}/*End of parallel region*/
776784
}/*if (org_isite1 + 1 <= X->Def.Nsite)*/
777785
return dam_pr;
786+
#else
787+
return 0.0;
778788
#endif
779789
}/*double complex X_GC_child_CisAis_Hubbard_MPI*/
780790
/**
@@ -807,6 +817,8 @@ double complex X_GC_child_CisAjt_Hubbard_MPI(
807817
exitMPI(-1);
808818
}
809819
return dam_pr;
820+
#else
821+
return 0.0;
810822
#endif
811823
}/*double complex X_GC_child_CisAjt_Hubbard_MPI*/
812824
/**
@@ -883,6 +895,8 @@ shared(tmp_v0, tmp_v1, list_1, org_isite1, org_ispin1, org_isite3, org_ispin3) \
883895
}/*if (org_isite1 + 1 > X->Def.Nsite || org_isite3 + 1 > X->Def.Nsite)*/
884896
}/*End of parallel region*/
885897
return dam_pr;
898+
#else
899+
return 0.0;
886900
#endif
887901
}/*double complex X_child_CisAisCjtAjt_Hubbard_MPI*/
888902
/**
@@ -1095,6 +1109,8 @@ shared(v1buf, tmp_v1, tmp_v0, list_1buf, list_2_1, list_2_2)
10951109
}
10961110
}/*if (myrank != origin)*/
10971111
return dam_pr;
1112+
#else
1113+
return 0.0;
10981114
#endif
10991115
}/*double complex X_child_CisAjtCkuAlv_Hubbard_MPI*/
11001116
/**
@@ -1282,6 +1298,8 @@ shared(v1buf, tmp_v1, tmp_v0, list_1buf, list_2_1, list_2_2, origin, org_isite3,
12821298
}/*End of parallel region*/
12831299
}/*if (myrank != origin)*/
12841300
return dam_pr;
1301+
#else
1302+
return 0.0;
12851303
#endif
12861304
}/*double complex X_child_CisAjtCkuAku_Hubbard_MPI*/
12871305
/**
@@ -1309,6 +1327,8 @@ double complex X_child_CisAisCjtAku_Hubbard_MPI(
13091327
org_isite1, org_ispin1, conj(tmp_V), X, tmp_v0, tmp_v1);
13101328

13111329
return conj(dam_pr);
1330+
#else
1331+
return 0.0;
13121332
#endif
13131333
}/*double complex X_child_CisAisCjtAku_Hubbard_MPI*/
13141334

@@ -1378,6 +1398,8 @@ double complex X_child_CisAis_Hubbard_MPI(
13781398
}/*End of parallel region*/
13791399
}/*if (org_isite1 + 1 <= X->Def.Nsite)*/
13801400
return dam_pr;
1401+
#else
1402+
return 0.0;
13811403
#endif
13821404
}/*double complex X_child_CisAis_Hubbard_MPI*/
13831405
/**
@@ -1444,6 +1466,8 @@ double complex X_GC_Cis_MPI(
14441466
dam_pr += conj(tmp_v1[j + 1]) * dmv;
14451467
}
14461468
return (dam_pr);
1469+
#else
1470+
return 0.0;
14471471
#endif
14481472
}/*double complex X_GC_Cis_MPI*/
14491473
/**
@@ -1506,6 +1530,8 @@ firstprivate(idim_max_buf, trans) shared(tmp_v1buf, tmp_v1, tmp_v0)
15061530
dam_pr += conj(tmp_v1[j + 1]) * dmv;
15071531
}
15081532
return (dam_pr);
1533+
#else
1534+
return 0.0;
15091535
#endif
15101536
}/*double complex X_GC_Ajt_MPI*/
15111537
/**
@@ -1583,6 +1609,8 @@ shared(tmp_v1buf, tmp_v1, tmp_v0, list_1buf_org)
15831609
tmp_v0[ioff] += dmv;
15841610
}/*for (j = 1; j <= idim_max_buf; j++)*/
15851611
return (dam_pr);
1612+
#else
1613+
return 0.0;
15861614
#endif
15871615
}/*double complex X_GC_Cis_MPI*/
15881616
/**
@@ -1659,5 +1687,7 @@ shared(tmp_v1buf, tmp_v1, tmp_v0, list_1buf_org)
16591687
tmp_v0[ioff] += dmv;
16601688
}
16611689
return (dam_pr);
1690+
#else
1691+
return 0.0;
16621692
#endif
16631693
}/*double complex X_Ajt_MPI*/

‎src/mltplyMPISpin.c

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -127,6 +127,8 @@ double complex X_child_general_int_spin_MPIdouble(
127127
}/*for (j = 1; j <= idim_max_buf; j++)*/
128128
}/*if (! (X->Large.mode == M_MLTPLY || X->Large.mode == M_CALCSPEC))*/
129129
return dam_pr;
130+
#else
131+
return 0.0;
130132
#endif
131133
}/*double complex X_child_general_int_spin_MPIdouble*/
132134
/**
@@ -181,6 +183,8 @@ double complex X_child_general_int_spin_TotalS_MPIdouble(
181183
dam_pr += conj(tmp_v1[ioff]) * dmv;
182184
}/*for (j = 1; j <= idim_max_buf; j++)*/
183185
return dam_pr;
186+
#else
187+
return 0.0;
184188
#endif
185189
}/*double complex X_child_general_int_spin_MPIdouble*/
186190
/**
@@ -326,6 +330,8 @@ shared(list_2_1, list_2_2, list_1buf, v1buf, tmp_v1, tmp_v0)
326330
}/*for (j = 1; j <= idim_max_buf; j++)*/
327331
}
328332
return dam_pr;
333+
#else
334+
return 0.0;
329335
#endif
330336
}/*double complex X_child_general_int_spin_MPIsingle*/
331337
/**

0 commit comments

Comments
 (0)