| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/argos/ |
| H A D | argos_cafe_rdgeom.F | 22 integer numbl,numbi,numbd
111 numbd=ma_sizeof(mt_dbl,1,mt_byte)
162 call ga_brdcst(mcf_03,dbl_mb(i_mas),6*mat*numbd,0)
164 call ga_brdcst(mcf_05,dbl_mb(i_vdw),6*mat*mat*map*numbd,0)
165 call ga_brdcst(mcf_06,dbl_mb(i_chg),6*mqt*mqp*numbd,0)
170 call ga_brdcst(mcf_11,dbl_mb(i_bnd(1)),6*mbp(1)*mbt(1)*numbd,0)
171 call ga_brdcst(mcf_12,dbl_mb(i_bnd(2)),6*mbp(2)*mbt(2)*numbd,0)
174 call ga_brdcst(mcf_15,dbl_mb(i_ang(1)),6*mhp(1)*mht(1)*numbd,0)
175 call ga_brdcst(mcf_16,dbl_mb(i_ang(2)),6*mhp(2)*mht(2)*numbd,0)
178 call ga_brdcst(mcf_19,dbl_mb(i_dih(1)),6*mdp(1)*mdt(1)*numbd,0)
[all …]
|
| H A D | argos_cafe_rdtop.F | 25 integer numbl,numbi,numbd,iqfr,iqto,nsad,maxpro
278 numbd=ma_sizeof(mt_dbl,1,mt_byte)
339 call ga_brdcst(mcf_03,dbl_mb(i_mas),mset*mat*numbd,0)
341 call ga_brdcst(mcf_05,dbl_mb(i_vdw),mset*mat*mat*map*numbd,0)
342 call ga_brdcst(mcf_06,dbl_mb(i_chg),mset*mqt*mqp*numbd,0)
347 call ga_brdcst(mcf_11,dbl_mb(i_bnd(1)),mset*mbp(1)*mbt(1)*numbd,0)
348 call ga_brdcst(mcf_12,dbl_mb(i_bnd(2)),mset*mbp(2)*mbt(2)*numbd,0)
351 call ga_brdcst(mcf_15,dbl_mb(i_ang(1)),mset*mhp(1)*mht(1)*numbd,0)
352 call ga_brdcst(mcf_16,dbl_mb(i_ang(2)),mset*mhp(2)*mht(2)*numbd,0)
355 call ga_brdcst(mcf_19,dbl_mb(i_dih(1)),mset*mdp(1)*mdt(1)*numbd,0)
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/cafe/ |
| H A D | cf_rdgeom.F | 22 integer numbl,numbi,numbd
111 numbd=ma_sizeof(mt_dbl,1,mt_byte)
162 call ga_brdcst(mcf_03,dbl_mb(i_mas),6*mat*numbd,0)
164 call ga_brdcst(mcf_05,dbl_mb(i_vdw),6*mat*mat*map*numbd,0)
165 call ga_brdcst(mcf_06,dbl_mb(i_chg),6*mqt*mqp*numbd,0)
170 call ga_brdcst(mcf_11,dbl_mb(i_bnd(1)),6*mbp(1)*mbt(1)*numbd,0)
171 call ga_brdcst(mcf_12,dbl_mb(i_bnd(2)),6*mbp(2)*mbt(2)*numbd,0)
174 call ga_brdcst(mcf_15,dbl_mb(i_ang(1)),6*mhp(1)*mht(1)*numbd,0)
175 call ga_brdcst(mcf_16,dbl_mb(i_ang(2)),6*mhp(2)*mht(2)*numbd,0)
178 call ga_brdcst(mcf_19,dbl_mb(i_dih(1)),6*mdp(1)*mdt(1)*numbd,0)
[all …]
|
| H A D | cf_rdtop.F | 25 integer numbl,numbi,numbd,iqfr,iqto,nsad,maxpro
297 numbd=ma_sizeof(mt_dbl,1,mt_byte)
356 call ga_brdcst(mcf_03,dbl_mb(i_mas),mset*mat*numbd,0)
358 call ga_brdcst(mcf_05,dbl_mb(i_vdw),mset*mat*mat*map*numbd,0)
359 call ga_brdcst(mcf_06,dbl_mb(i_chg),mset*mqt*mqp*numbd,0)
364 call ga_brdcst(mcf_11,dbl_mb(i_bnd(1)),mset*mbp(1)*mbt(1)*numbd,0)
365 call ga_brdcst(mcf_12,dbl_mb(i_bnd(2)),mset*mbp(2)*mbt(2)*numbd,0)
368 call ga_brdcst(mcf_15,dbl_mb(i_ang(1)),mset*mhp(1)*mht(1)*numbd,0)
369 call ga_brdcst(mcf_16,dbl_mb(i_ang(2)),mset*mhp(2)*mht(2)*numbd,0)
372 call ga_brdcst(mcf_19,dbl_mb(i_dih(1)),mset*mdp(1)*mdt(1)*numbd,0)
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/ |
| H A D | argos_cafe_rdgeom.F | 22 integer numbl,numbi,numbd
111 numbd=ma_sizeof(mt_dbl,1,mt_byte)
162 call ga_brdcst(mcf_03,dbl_mb(i_mas),6*mat*numbd,0)
164 call ga_brdcst(mcf_05,dbl_mb(i_vdw),6*mat*mat*map*numbd,0)
165 call ga_brdcst(mcf_06,dbl_mb(i_chg),6*mqt*mqp*numbd,0)
170 call ga_brdcst(mcf_11,dbl_mb(i_bnd(1)),6*mbp(1)*mbt(1)*numbd,0)
171 call ga_brdcst(mcf_12,dbl_mb(i_bnd(2)),6*mbp(2)*mbt(2)*numbd,0)
174 call ga_brdcst(mcf_15,dbl_mb(i_ang(1)),6*mhp(1)*mht(1)*numbd,0)
175 call ga_brdcst(mcf_16,dbl_mb(i_ang(2)),6*mhp(2)*mht(2)*numbd,0)
178 call ga_brdcst(mcf_19,dbl_mb(i_dih(1)),6*mdp(1)*mdt(1)*numbd,0)
[all …]
|
| H A D | argos_cafe_rdtop.F | 25 integer numbl,numbi,numbd,iqfr,iqto,nsad,maxpro
278 numbd=ma_sizeof(mt_dbl,1,mt_byte)
339 call ga_brdcst(mcf_03,dbl_mb(i_mas),mset*mat*numbd,0)
341 call ga_brdcst(mcf_05,dbl_mb(i_vdw),mset*mat*mat*map*numbd,0)
342 call ga_brdcst(mcf_06,dbl_mb(i_chg),mset*mqt*mqp*numbd,0)
347 call ga_brdcst(mcf_11,dbl_mb(i_bnd(1)),mset*mbp(1)*mbt(1)*numbd,0)
348 call ga_brdcst(mcf_12,dbl_mb(i_bnd(2)),mset*mbp(2)*mbt(2)*numbd,0)
351 call ga_brdcst(mcf_15,dbl_mb(i_ang(1)),mset*mhp(1)*mht(1)*numbd,0)
352 call ga_brdcst(mcf_16,dbl_mb(i_ang(2)),mset*mhp(2)*mht(2)*numbd,0)
355 call ga_brdcst(mcf_19,dbl_mb(i_dih(1)),mset*mdp(1)*mdt(1)*numbd,0)
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/cafe/ |
| H A D | cf_rdgeom.F | 22 integer numbl,numbi,numbd
111 numbd=ma_sizeof(mt_dbl,1,mt_byte)
162 call ga_brdcst(mcf_03,dbl_mb(i_mas),6*mat*numbd,0)
164 call ga_brdcst(mcf_05,dbl_mb(i_vdw),6*mat*mat*map*numbd,0)
165 call ga_brdcst(mcf_06,dbl_mb(i_chg),6*mqt*mqp*numbd,0)
170 call ga_brdcst(mcf_11,dbl_mb(i_bnd(1)),6*mbp(1)*mbt(1)*numbd,0)
171 call ga_brdcst(mcf_12,dbl_mb(i_bnd(2)),6*mbp(2)*mbt(2)*numbd,0)
174 call ga_brdcst(mcf_15,dbl_mb(i_ang(1)),6*mhp(1)*mht(1)*numbd,0)
175 call ga_brdcst(mcf_16,dbl_mb(i_ang(2)),6*mhp(2)*mht(2)*numbd,0)
178 call ga_brdcst(mcf_19,dbl_mb(i_dih(1)),6*mdp(1)*mdt(1)*numbd,0)
[all …]
|
| H A D | cf_rdtop.F | 25 integer numbl,numbi,numbd,iqfr,iqto,nsad,maxpro
297 numbd=ma_sizeof(mt_dbl,1,mt_byte)
356 call ga_brdcst(mcf_03,dbl_mb(i_mas),mset*mat*numbd,0)
358 call ga_brdcst(mcf_05,dbl_mb(i_vdw),mset*mat*mat*map*numbd,0)
359 call ga_brdcst(mcf_06,dbl_mb(i_chg),mset*mqt*mqp*numbd,0)
364 call ga_brdcst(mcf_11,dbl_mb(i_bnd(1)),mset*mbp(1)*mbt(1)*numbd,0)
365 call ga_brdcst(mcf_12,dbl_mb(i_bnd(2)),mset*mbp(2)*mbt(2)*numbd,0)
368 call ga_brdcst(mcf_15,dbl_mb(i_ang(1)),mset*mhp(1)*mht(1)*numbd,0)
369 call ga_brdcst(mcf_16,dbl_mb(i_ang(2)),mset*mhp(2)*mht(2)*numbd,0)
372 call ga_brdcst(mcf_19,dbl_mb(i_dih(1)),mset*mdp(1)*mdt(1)*numbd,0)
[all …]
|
| /dports/cad/feappv/feappv-4.1i/program/ |
| H A D | meshck.f | 147 if(numbd.gt.0) then
150 call mshcksn(mr(np(162)),mr(np(164)),numsd,numsn,numbd,errs)
201 subroutine mshcksn(is,iblend,numsd,numsn,numbd,errs) argument
208 integer numsd,numsn,numbd,n,i,inc local
209 integer is(16,numsd),iblend(21,numbd)
231 do n = 1,numbd
|
| H A D | pmesh.f | 512 if(nblend.gt.numbd) then
522 setvar = palloc (163, 'BTRAN', numbd*12 , 2)
523 setvar = palloc (164, 'BLEND', numbd*ibn , 1)
524 setvar = palloc (166, 'BNILR', numbd*max(1,mxilr), 1)
703 if(numbd.gt.0 .and. iii.ge.0) then
|
| H A D | pnums.f | 56 numbd = 0
485 numbd = numbd + dnumb
510 numbd = numbd + dnumb
|
| H A D | pblendm.f | 45 do n = 1,numbd
|
| H A D | pnewprob.f | 173 numbd = 0
|
| /dports/cad/feappv/feappv-4.1i/include/ |
| H A D | cblend.h | 2 integer numsn,numsd,numfc,numbd,mxilr
3 common /cblend/ numsn,numsd,numfc,numbd,mxilr
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/qhop/ |
| H A D | qhop_init.F | 13 integer i,numbi,numbd,idata(9)
82 numbd=ma_sizeof(mt_dbl,1,mt_byte)
88 call ga_brdcst(hop_06,dbl_mb(i_racs),2*mxar*numbd,0)
89 call ga_brdcst(hop_07,dbl_mb(i_par),31*maxpar*numbd,0)
143 integer numbi,numbd,numb
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/qhop/ |
| H A D | qhop_init.F | 13 integer i,numbi,numbd,idata(9)
82 numbd=ma_sizeof(mt_dbl,1,mt_byte)
88 call ga_brdcst(hop_06,dbl_mb(i_racs),2*mxar*numbd,0)
89 call ga_brdcst(hop_07,dbl_mb(i_par),31*maxpar*numbd,0)
143 integer numbi,numbd,numb
|