| /dports/science/openmx/openmx3.8/source/ |
| H A D | mpi_multi_world2.c | 32 int Num_Comm_World1; in main() local
45 Num_Comm_World1 = 2; in main()
51 NPROCS1_WD = (int*)malloc(sizeof(int)*Num_Comm_World1); in main()
52 Comm_World_StartID = (int*)malloc(sizeof(int)*Num_Comm_World1); in main()
53 MPI_CommWD = (MPI_Comm*)malloc(sizeof(MPI_Comm)*Num_Comm_World1); in main()
57 Make_Comm_Worlds(MPI_COMM_WORLD, myid0, numprocs0, Num_Comm_World1, &myworld1, MPI_CommWD, in main()
|
| H A D | mpi_multi_world.c | 32 int Num_Comm_World1; in main() local
44 Num_Comm_World1 = 1; in main()
50 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in main()
51 Comm_World_StartID1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in main()
52 MPI_CommWD1 = (MPI_Comm*)malloc(sizeof(MPI_Comm)*Num_Comm_World1); in main()
56 Make_Comm_Worlds(MPI_COMM_WORLD, myid0, numprocs0, Num_Comm_World1, &myworld1, MPI_CommWD1, in main()
|
| H A D | TRAN_DFT.c | 267 int Num_Comm_World1; in TRAN_DFT() local
409 Num_Comm_World1 = SpinP_switch + 1; in TRAN_DFT()
413 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in TRAN_DFT()
414 Comm_World_StartID1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in TRAN_DFT()
415 MPI_CommWD1 = (MPI_Comm*)malloc(sizeof(MPI_Comm)*Num_Comm_World1); in TRAN_DFT()
571 if (Num_Comm_World1<=numprocs0){ in TRAN_DFT()
641 int Num_Comm_World1; in TRAN_DFT_Original() local
821 Num_Comm_World1 = T_knum; in TRAN_DFT_Original()
825 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in TRAN_DFT_Original()
826 Comm_World_StartID1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in TRAN_DFT_Original()
[all …]
|
| H A D | neb.c | 86 int Num_Comm_World1; in neb() local
181 Num_Comm_World1 = NEB_Num_Images; in neb()
183 if ( Num_Comm_World1<=numprocs ){ in neb()
189 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in neb()
190 Comm_World_StartID1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in neb()
191 MPI_CommWD1 = (MPI_Comm*)malloc(sizeof(MPI_Comm)*Num_Comm_World1); in neb()
471 if ( Num_Comm_World1<=numprocs ){ in neb()
530 Num_Comm_World1=numprocs; in neb()
536 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in neb()
890 Num_Comm_World1 = PN; in neb()
[all …]
|
| H A D | TRAN_DFT_Dosout.c | 540 int Num_Comm_World1; in TRAN_DFT_Dosout_NC() local
661 Num_Comm_World1 = T_knum; in TRAN_DFT_Dosout_NC()
665 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in TRAN_DFT_Dosout_NC()
666 Comm_World_StartID1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in TRAN_DFT_Dosout_NC()
667 MPI_CommWD1 = (MPI_Comm*)malloc(sizeof(MPI_Comm)*Num_Comm_World1); in TRAN_DFT_Dosout_NC()
914 if (Num_Comm_World1<=numprocs0){ in TRAN_DFT_Dosout_NC()
1455 int Num_Comm_World1; in TRAN_DFT_Dosout_Col() local
1593 Num_Comm_World1 = T_knum; in TRAN_DFT_Dosout_Col()
1597 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in TRAN_DFT_Dosout_Col()
1598 Comm_World_StartID1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in TRAN_DFT_Dosout_Col()
[all …]
|
| H A D | TRAN_DFT_NC.c | 284 int Num_Comm_World1; in TRAN_DFT_Original() local
451 Num_Comm_World1 = T_knum; in TRAN_DFT_Original()
455 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in TRAN_DFT_Original()
456 Comm_World_StartID1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in TRAN_DFT_Original()
457 MPI_CommWD1 = (MPI_Comm*)malloc(sizeof(MPI_Comm)*Num_Comm_World1); in TRAN_DFT_Original()
459 Make_Comm_Worlds(comm1, myid0, numprocs0, Num_Comm_World1, &myworld1, MPI_CommWD1, in TRAN_DFT_Original()
800 if (Num_Comm_World1<=numprocs0){ in TRAN_DFT_Original()
|
| H A D | DFT.c | 105 int Num_Comm_World1; in DFT() local
278 Num_Comm_World1 = SpinP_switch + 1; in DFT()
282 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in DFT()
283 Comm_World_StartID1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in DFT()
284 MPI_CommWD1 = (MPI_Comm*)malloc(sizeof(MPI_Comm)*Num_Comm_World1); in DFT()
544 Num_Comm_World1 = SpinP_switch + 1; in DFT()
548 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in DFT()
549 Comm_World_StartID1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in DFT()
550 MPI_CommWD1 = (MPI_Comm*)malloc(sizeof(MPI_Comm)*Num_Comm_World1); in DFT()
2801 if (Num_Comm_World1<=numprocs0){ in DFT()
[all …]
|
| H A D | Cluster_DFT_ON2.c | 3159 int Num_Comm_World1; in Cluster_collinear_ON2_Force() local
3186 Num_Comm_World1 = SpinP_switch + 1; in Cluster_collinear_ON2_Force()
3190 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in Cluster_collinear_ON2_Force()
3191 Comm_World_StartID1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in Cluster_collinear_ON2_Force()
3192 MPI_CommWD1 = (MPI_Comm*)malloc(sizeof(MPI_Comm)*Num_Comm_World1); in Cluster_collinear_ON2_Force()
3636 if (Num_Comm_World1<=numprocs){ in Cluster_collinear_ON2_Force()
3721 int Num_Comm_World1; in Cluster_collinear_ON2_Iter() local
3748 Num_Comm_World1 = SpinP_switch + 1; in Cluster_collinear_ON2_Iter()
3752 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in Cluster_collinear_ON2_Iter()
3753 Comm_World_StartID1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in Cluster_collinear_ON2_Iter()
[all …]
|
| H A D | Cluster_DFT.c | 161 int Num_Comm_World1; in Cluster_collinear() local
195 Num_Comm_World1 = SpinP_switch + 1; in Cluster_collinear()
207 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in Cluster_collinear()
208 Comm_World_StartID1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in Cluster_collinear()
209 MPI_CommWD1 = (MPI_Comm*)malloc(sizeof(MPI_Comm)*Num_Comm_World1); in Cluster_collinear()
215 Make_Comm_Worlds(mpi_comm_level1, myid0, numprocs0, Num_Comm_World1, &myworld1, MPI_CommWD1, in Cluster_collinear()
1454 if (Num_Comm_World1<=numprocs0){ in Cluster_collinear()
|
| H A D | Band_DFT_NonCol.c | 142 int Num_Comm_World1; in Band_DFT_NonCol() local
520 Num_Comm_World1 = T_knum; in Band_DFT_NonCol()
524 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in Band_DFT_NonCol()
525 Comm_World_StartID1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in Band_DFT_NonCol()
526 MPI_CommWD1 = (MPI_Comm*)malloc(sizeof(MPI_Comm)*Num_Comm_World1); in Band_DFT_NonCol()
528 Make_Comm_Worlds(mpi_comm_level1, myid0, numprocs0, Num_Comm_World1, &myworld1, MPI_CommWD1, in Band_DFT_NonCol()
2815 if (Num_Comm_World1<=numprocs0){ in Band_DFT_NonCol()
|
| H A D | TRAN_Main_Analysis.c | 439 int Num_Comm_World1, Num_Comm_World2; in TRAN_Main_Analysis() local
645 Num_Comm_World1 = T_knum; in TRAN_Main_Analysis()
649 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in TRAN_Main_Analysis()
650 Comm_World_StartID1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in TRAN_Main_Analysis()
651 MPI_CommWD1 = (MPI_Comm*)malloc(sizeof(MPI_Comm)*Num_Comm_World1); in TRAN_Main_Analysis()
653 Make_Comm_Worlds(comm1, myid0, numprocs0, Num_Comm_World1, &myworld1, MPI_CommWD1, in TRAN_Main_Analysis()
1368 if (Num_Comm_World1<=numprocs0){ in TRAN_Main_Analysis()
|
| H A D | TRAN_Main_Analysis_NC.c | 438 int Num_Comm_World1, Num_Comm_World2; in TRAN_Main_Analysis_NC() local
623 Num_Comm_World1 = T_knum; in TRAN_Main_Analysis_NC()
627 NPROCS_WD1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in TRAN_Main_Analysis_NC()
628 Comm_World_StartID1 = (int*)malloc(sizeof(int)*Num_Comm_World1); in TRAN_Main_Analysis_NC()
629 MPI_CommWD1 = (MPI_Comm*)malloc(sizeof(MPI_Comm)*Num_Comm_World1); in TRAN_Main_Analysis_NC()
631 Make_Comm_Worlds(comm1, myid0, numprocs0, Num_Comm_World1, &myworld1, MPI_CommWD1, in TRAN_Main_Analysis_NC()
1305 if (Num_Comm_World1<=numprocs0){ in TRAN_Main_Analysis_NC()
|
| H A D | Band_DFT_Col.c | 133 int Num_Comm_World1; in Band_DFT_Col() local
202 Num_Comm_World1 = SpinP_switch + 1; in Band_DFT_Col()
|
| H A D | Band_DFT_Col_ScaLAPACK.c | 187 int Num_Comm_World1; in Band_DFT_Col_ScaLAPACK() local
268 Num_Comm_World1 = SpinP_switch + 1; in Band_DFT_Col_ScaLAPACK()
|