Home
last modified time | relevance | path

Searched refs:nspb (Results 1 – 25 of 35) sorted by relevance

12

/dports/science/qbox/qbox-public-rel1_73_3/src/
H A DtestContext.cpp43 int nspb = atoi(argv[3]); in main() local
48 assert(nspb>0); in main()
52 assert(ngb*nstb*nspb*nkpb == size); in main()
55 int dims[4] = { ngb, nstb, nspb, nkpb }; in main()
H A Dqb.cpp152 int ngb = ntasks, nstb = 1, nkpb = 1, nspb = 1; in main() local
200 nspb = atoi(optarg); in main()
201 if ( (nspb < 1) || (nspb > 2) ) in main()
246 cout << " nspb = " << nspb << endl; in main()
251 if ( ( ntasks % ( nstb * nkpb * nspb ) ) == 0 ) in main()
254 ngb = ntasks / ( nstb * nkpb * nspb ); in main()
264 MPIdata::set(ngb,nstb,nkpb,nspb); in main()
268 << " nkpb=" << nkpb << " nspb=" << nspb << endl; in main()
324 << nkpb << "x" << nspb << endl; in main()
H A DMPIdata.cpp55 void MPIdata::set(int ngb, int nstb, int nkpb, int nspb) in set() argument
61 assert(ngb*nstb*nkpb*nspb == size_); in set()
67 assert(nspb>0); in set()
72 int dims[4] = { nspb, nkpb, nstb, ngb }; in set()
H A DtestMPIdata.cpp38 int nspb = atoi(argv[4]); in main() local
40 MPIdata::set(ngb,nstb,nkpb,nspb); in main()
49 << MPIdata::ispb() << " / " << MPIdata::nspb() << endl; in main()
H A DtestEnergyFunctional.cpp61 int nspb = atoi(argv[17]); in main() local
63 MPIdata::set(ngb,nstb,nkpb,nspb); in main()
65 << " nkpb=" << nkpb << " nspb=" << nspb << endl; in main()
H A DtestWavefunction.cpp58 int nspb = atoi(argv[17]); in main() local
61 MPIdata::set(ngb,nstb,nspb,nkpb); in main()
63 << " nspb=" << nspb << " nkpb=" << nkpb << endl; in main()
H A DtestSample.cpp38 int nspb = 1; in main() local
39 MPIdata::set(ngb,nstb,nkpb,nspb); in main()
H A DtestSampleReader.cpp42 int nspb = 1; in main() local
43 MPIdata::set(ngb,nstb,nkpb,nspb); in main()
H A DtestChargeDensity.cpp60 int nspb = atoi(argv[17]); in main() local
62 MPIdata::set(ngb,nstb,nkpb,nspb); in main()
64 << " nkpb=" << nkpb << " nspb=" << nspb << endl; in main()
H A DMPIdata.h75 static int nspb(void) { return nspb_; } in nspb() function
89 static void set(int ngb, int nstb = 1, int nkpb = 1, int nspb = 1);
H A DWavefunction.cpp91 nsp_loc_.resize(MPIdata::nspb()); in allocate()
92 for ( int ispb = 0; ispb < MPIdata::nspb(); ++ispb) in allocate()
94 nsp_loc_[ispb] = nspin_ / MPIdata::nspb() + in allocate()
95 (ispb < (nspin_ % MPIdata::nspb()) ? 1 : 0); in allocate()
102 for ( int ispg = MPIdata::ispb(); ispg < nspin_; ispg += MPIdata::nspb() ) in allocate()
189 if ( ( ispg % MPIdata::nspb() ) == MPIdata::ispb() ) in isp_local()
190 return ispg / MPIdata::nspb(); in isp_local()
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_taumols/src/
H A Drrsw_wvn.f9043 INTEGER :: nspb(jpb1:jpb2) variable
54 READ(UNIT=kgen_unit) nspb
H A Drrtmg_sw_taumol.f9027 USE rrsw_wvn, ONLY: nspb
331 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(16) + 1
332 ind1 = ((jp(icol,lay)-12)*5+(jt1(icol,lay)-1))*nspb(16) + 1
454 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(17) + js
575 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(18) + 1
576 ind1 = ((jp(icol,lay)-12)*5+(jt1(icol,lay)-1))*nspb(18) + 1
685 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(19) + 1
764 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(20) + 1
1022 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(22) + 1
1208 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(24) + 1
[all …]
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_spcvmc/src/
H A Drrsw_wvn.f9044 INTEGER :: nspb(jpb1:jpb2) variable
57 READ(UNIT=kgen_unit) nspb
H A Drrtmg_sw_taumol.f9027 USE rrsw_wvn, ONLY: nspb
351 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(16) + 1
352 ind1 = ((jp(icol,lay)-12)*5+(jt1(icol,lay)-1))*nspb(16) + 1
473 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(17) + js
592 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(18) + 1
593 ind1 = ((jp(icol,lay)-12)*5+(jt1(icol,lay)-1))*nspb(18) + 1
700 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(19) + 1
777 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(20) + 1
1031 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(22) + 1
1213 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(24) + 1
[all …]
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_sw_rad/src/
H A Drrsw_wvn.f9046 INTEGER :: nspb(jpb1:jpb2) variable
61 READ(UNIT=kgen_unit) nspb
H A Drrtmg_sw_taumol.f9027 USE rrsw_wvn, ONLY: nspb
352 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(16) + 1
353 ind1 = ((jp(icol,lay)-12)*5+(jt1(icol,lay)-1))*nspb(16) + 1
474 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(17) + js
593 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(18) + 1
594 ind1 = ((jp(icol,lay)-12)*5+(jt1(icol,lay)-1))*nspb(18) + 1
701 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(19) + 1
778 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(20) + 1
1032 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(22) + 1
1214 ind0 = ((jp(icol,lay)-13)*5+(jt(icol,lay)-1))*nspb(24) + 1
[all …]
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PORT_lw_rad/src/
H A Drrlw_wvn.f9058 INTEGER :: nspb(nbndlw) variable
75 READ(UNIT=kgen_unit) nspb
H A Drrtmg_lw_taumol.f9026 USE rrlw_wvn, ONLY: nspb
348 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(1) + 1
349 ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(1) + 1
428 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(2) + 1
429 ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(2) + 1
753 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(3) + js
1022 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(4) + js
1323 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(5) + js
1701 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(7) + 1
1835 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(8) + 1
[all …]
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_codereview/src/
H A Dmo_lrtm_setup.f9079 …INTEGER, parameter :: nspb(nbndlw) = (/ 1,1,5,5,5,0,1,1,1,1,1,0,0,1,0,0/) !< Number of refe… variable
H A Dmo_lrtm_gas_optics.f9026 USE mo_lrtm_setup, ONLY: nspb
370 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(1) + 1
371 ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(1) + 1
437 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(2) + 1
438 ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(2) + 1
734 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(3) + js
971 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(4) + js
1239 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(5) + js
1572 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(7) + 1
1688 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(8) + 1
[all …]
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm_Bangalore/src/
H A Dmo_lrtm_setup.f9079 …INTEGER, parameter :: nspb(nbndlw) = (/ 1,1,5,5,5,0,1,1,1,1,1,0,0,1,0,0/) !< Number of refe… variable
H A Dmo_lrtm_gas_optics.f9026 USE mo_lrtm_setup, ONLY: nspb
362 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(1) + 1
363 ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(1) + 1
429 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(2) + 1
430 ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(2) + 1
726 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(3) + js
963 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(4) + js
1231 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(5) + js
1564 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(7) + 1
1680 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(8) + 1
[all …]
/dports/math/libpgmath/flang-d07daf3/test/ncar_kernels/PSRAD_lrtm/src/
H A Dmo_lrtm_setup.f9079 …INTEGER, parameter :: nspb(nbndlw) = (/ 1,1,5,5,5,0,1,1,1,1,1,0,0,1,0,0/) !< Number of refe… variable
H A Dmo_lrtm_gas_optics.f9026 USE mo_lrtm_setup, ONLY: nspb
362 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(1) + 1
363 ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(1) + 1
429 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(2) + 1
430 ind1 = ((jp(lay)-12)*5+(jt1(lay)-1))*nspb(2) + 1
724 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(3) + js
961 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(4) + js
1229 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(5) + js
1562 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(7) + 1
1678 ind0 = ((jp(lay)-13)*5+(jt(lay)-1))*nspb(8) + 1
[all …]

12