/dports/science/qbox/qbox-public-rel1_73_3/src/ |
H A D | testContext.cpp | 43 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 D | qb.cpp | 152 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 D | MPIdata.cpp | 55 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 D | testMPIdata.cpp | 38 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 D | testEnergyFunctional.cpp | 61 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 D | testWavefunction.cpp | 58 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 D | testSample.cpp | 38 int nspb = 1; in main() local 39 MPIdata::set(ngb,nstb,nkpb,nspb); in main()
|
H A D | testSampleReader.cpp | 42 int nspb = 1; in main() local 43 MPIdata::set(ngb,nstb,nkpb,nspb); in main()
|
H A D | testChargeDensity.cpp | 60 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 D | MPIdata.h | 75 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 D | Wavefunction.cpp | 91 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 D | rrsw_wvn.f90 | 43 INTEGER :: nspb(jpb1:jpb2) variable 54 READ(UNIT=kgen_unit) nspb
|
H A D | rrtmg_sw_taumol.f90 | 27 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 D | rrsw_wvn.f90 | 44 INTEGER :: nspb(jpb1:jpb2) variable 57 READ(UNIT=kgen_unit) nspb
|
H A D | rrtmg_sw_taumol.f90 | 27 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 D | rrsw_wvn.f90 | 46 INTEGER :: nspb(jpb1:jpb2) variable 61 READ(UNIT=kgen_unit) nspb
|
H A D | rrtmg_sw_taumol.f90 | 27 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 D | rrlw_wvn.f90 | 58 INTEGER :: nspb(nbndlw) variable 75 READ(UNIT=kgen_unit) nspb
|
H A D | rrtmg_lw_taumol.f90 | 26 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 D | mo_lrtm_setup.f90 | 79 …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 D | mo_lrtm_gas_optics.f90 | 26 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 D | mo_lrtm_setup.f90 | 79 …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 D | mo_lrtm_gas_optics.f90 | 26 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 D | mo_lrtm_setup.f90 | 79 …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 D | mo_lrtm_gas_optics.f90 | 26 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 …]
|