| /dports/science/openmx/openmx3.8/source/ |
| H A D | mpi_multi_world.c | 69 int numprocs2,myid2,myworld2; in main() local
88 Make_Comm_Worlds(MPI_CommWD1[myworld1], myid1, numprocs1, Num_Comm_World2, &myworld2, in main()
93 MPI_Comm_size(MPI_CommWD2[myworld2],&numprocs2); in main()
94 MPI_Comm_rank(MPI_CommWD2[myworld2],&myid2); in main()
97 numprocs0,myid0,myworld1,numprocs1,myid1,myworld2,numprocs2,myid2); in main()
|
| H A D | Band_DFT_Col_ScaLAPACK.c | 67 int myworld2, in Band_DFT_Col_ScaLAPACK()
120 int myworld2, in Band_DFT_Col_ScaLAPACK()
516 MPI_Comm_size(MPI_CommWD2[myworld2],&numprocs2); in Band_DFT_Col_ScaLAPACK()
517 MPI_Comm_rank(MPI_CommWD2[myworld2],&myid2); in Band_DFT_Col_ScaLAPACK()
527 MPI_Comm_size(MPI_CommWD2[myworld2],&numprocs2); in Band_DFT_Col_ScaLAPACK()
528 MPI_Comm_rank(MPI_CommWD2[myworld2],&myid2); in Band_DFT_Col_ScaLAPACK()
530 S_knum = myworld2; in Band_DFT_Col_ScaLAPACK()
1190 MPI_Send(&my_prow, 1, MPI_INT, 0, 10, MPI_CommWD2[myworld2]); in Band_DFT_Col_ScaLAPACK()
1191 MPI_Send(&my_pcol, 1, MPI_INT, 0, 20, MPI_CommWD2[myworld2]); in Band_DFT_Col_ScaLAPACK()
1202 MPI_Bcast(H[i],(n+1)*2,MPI_DOUBLE,0,MPI_CommWD2[myworld2]); in Band_DFT_Col_ScaLAPACK()
[all …]
|
| H A D | DFT.c | 109 int myworld2; in DFT() local
387 &myworld2, MPI_CommWD2, in DFT()
1212 myworld2, in DFT()
1240 myworld2, in DFT()
1272 myworld2, in DFT()
1300 myworld2, in DFT()
1443 myworld2, in DFT()
1472 myworld2, in DFT()
1508 myworld2, in DFT()
1537 myworld2, in DFT()
[all …]
|
| H A D | neb.c | 92 int myworld2,myworld3; in neb() local
225 MPI_Comm_rank(MPI_CommWD2[myworld2],&myid2); in neb()
229 myworld2 = 0; in neb()
265 if (myworld2==0) in neb()
485 MPI_Comm_free(&MPI_CommWD2[myworld2]); in neb()
566 MPI_Comm_rank(MPI_CommWD2[myworld2],&myid2); in neb()
602 if (myworld2==0) in neb()
837 MPI_Comm_free(&MPI_CommWD2[myworld2]); in neb()
938 myworld2 = 0; in neb()
995 if (myworld2==0) in neb()
[all …]
|
| H A D | Band_DFT_Col.c | 66 int myworld2, in Band_DFT_Col()
451 MPI_Comm_size(MPI_CommWD2[myworld2],&numprocs2); in Band_DFT_Col()
452 MPI_Comm_rank(MPI_CommWD2[myworld2],&myid2); in Band_DFT_Col()
454 S_knum = myworld2; in Band_DFT_Col()
769 Eigen_PHH(MPI_CommWD2[myworld2],S,ko,n,n,1); in Band_DFT_Col()
991 BroadCast_ComplexMatrix(MPI_CommWD2[myworld2],H,n,is1,ie1,myid2,numprocs2, in Band_DFT_Col()
1149 Eigen_PHH(MPI_CommWD2[myworld2],C,ko,n,MaxN,0); in Band_DFT_Col()
1272 BroadCast_ComplexMatrix(MPI_CommWD2[myworld2],C,n,is2,ie2,myid2,numprocs2, in Band_DFT_Col()
1977 Eigen_PHH(MPI_CommWD2[myworld2],S,ko,n,n,1); in Band_DFT_Col()
2186 Eigen_PHH(MPI_CommWD2[myworld2],C,ko,n,MaxN,1); in Band_DFT_Col()
|
| H A D | TRAN_DFT.c | 67 int myworld2,
271 int myworld2; in TRAN_DFT() local
439 …Make_Comm_Worlds(MPI_CommWD1[myworld1], myid1, numprocs1, Num_Comm_World2, &myworld2, MPI_CommWD2, in TRAN_DFT()
472 myworld2, in TRAN_DFT()
559 MPI_Comm_free(&MPI_CommWD2[myworld2]); in TRAN_DFT()
|
| H A D | openmx_common.h | 3002 int myworld2,
3047 int myworld2,
|
| H A D | TRAN_Main_Analysis.c | 431 int myworld1, myworld2, parallel_mode, num_kloop0; in TRAN_Main_Analysis() local
1153 Make_Comm_Worlds(comm1, myid0, numprocs0, Num_Comm_World2, &myworld2, MPI_CommWD2, in TRAN_Main_Analysis()
1156 MPI_Comm_size(MPI_CommWD2[myworld2], &numprocs2); in TRAN_Main_Analysis()
1157 MPI_Comm_rank(MPI_CommWD2[myworld2], &myid2); in TRAN_Main_Analysis()
1159 S_knum = myworld2; in TRAN_Main_Analysis()
1178 comm_tmp = MPI_CommWD2[myworld2]; in TRAN_Main_Analysis()
|
| H A D | TRAN_Main_Analysis_NC.c | 430 int myworld1, myworld2, parallel_mode, num_kloop0; in TRAN_Main_Analysis_NC() local
1096 Make_Comm_Worlds(comm1, myid0, numprocs0, Num_Comm_World2, &myworld2, MPI_CommWD2, in TRAN_Main_Analysis_NC()
1099 MPI_Comm_size(MPI_CommWD2[myworld2], &numprocs2); in TRAN_Main_Analysis_NC()
1100 MPI_Comm_rank(MPI_CommWD2[myworld2], &myid2); in TRAN_Main_Analysis_NC()
1102 S_knum = myworld2; in TRAN_Main_Analysis_NC()
1121 comm_tmp = MPI_CommWD2[myworld2]; in TRAN_Main_Analysis_NC()
|