/dports/mail/simscan/simscan-1.4.0/cdb/ |
H A D | cdbstats.c | 69 static unsigned long numd[11]; variable 103 ++numd[10]; in main() 105 ++numd[c.loop - 1]; in main() 112 putnum("d0 ",numd[0]); in main() 113 putnum("d1 ",numd[1]); in main() 114 putnum("d2 ",numd[2]); in main() 115 putnum("d3 ",numd[3]); in main() 116 putnum("d4 ",numd[4]); in main() 117 putnum("d5 ",numd[5]); in main() 118 putnum("d6 ",numd[6]); in main() [all …]
|
/dports/databases/cdb/cdb-0.75/ |
H A D | cdbstats.c | 69 static unsigned long numd[11]; variable 103 ++numd[10]; in main() 105 ++numd[c.loop - 1]; in main() 112 putnum("d0 ",numd[0]); in main() 113 putnum("d1 ",numd[1]); in main() 114 putnum("d2 ",numd[2]); in main() 115 putnum("d3 ",numd[3]); in main() 116 putnum("d4 ",numd[4]); in main() 117 putnum("d5 ",numd[5]); in main() 118 putnum("d6 ",numd[6]); in main() [all …]
|
/dports/net-mgmt/omping/omping-0.0.4/ |
H A D | cli.c | 95 double numd; in cli_parse() local 163 numd = strtod(optarg, &ep); in cli_parse() 164 if (numd < 1 || *ep != '\0' || numd >= ((uint64_t)~0)) { in cli_parse() 172 if (numd < 0 || *ep != '\0' || numd * 1000 > INT32_MAX) { in cli_parse() 217 if (numd < MIN_RCVBUF_SIZE || *ep != '\0' || numd > INT32_MAX) { in cli_parse() 221 *rcvbuf_size = (int)numd; in cli_parse() 225 if (numd < 0 || *ep != '\0' || numd * 1000 > INT32_MAX) { in cli_parse() 234 if (numd < MIN_SNDBUF_SIZE || *ep != '\0' || numd > INT32_MAX) { in cli_parse() 238 *sndbuf_size = (int)numd; in cli_parse() 250 if (numd < 0 || *ep != '\0' || numd * 1000 > INT32_MAX) { in cli_parse() [all …]
|
/dports/biology/ncbi-toolkit/ncbi/vibrant/ |
H A D | palette.c | 87 Int2 numd; in DrawPalette() local 96 numd = pdata.drawCount; in DrawPalette() 104 while (i < numd) { in DrawPalette() 129 Int2 numd; in AppendPalette() local 141 numd = pdata.drawCount; in AppendPalette() 152 numd++; in AppendPalette() 154 pdata.drawCount = numd; in AppendPalette() 185 Int2 numd; in SetPaletteValue() local 227 Int2 numd; in GetPaletteValue() local 268 Int2 numd; in PaletteClick() local [all …]
|
/dports/science/siesta/siesta-4.1.5/Util/COOP/ |
H A D | write_dm.f | 8 subroutine iodm( task, maxnd, nbasis, nspin, numd, argument 54 integer, intent(inout) :: numd(nbasis) 192 numd(m) = numdg(ml) 193 ndmax = ndmax + numd(m) 197 listdptr(m) = listdptr(m-1) + numd(m-1) 227 . (listd(listdptr(ml)+im),im=1,numd(ml)) 239 . (dm(listdptr(ml)+im,is),im=1,numd(ml)) 278 numdg(m) = numd(ml) 299 . (listd(listdptr(ml)+im),im=1,numd(ml)) 301 write(unit1) (listd(listdptr(ml)+im),im=1,numd(ml)) [all …]
|
/dports/science/siesta/siesta-4.1.5/Util/DensityMatrix/ |
H A D | dmfilter.f90 | 61 row_pointer(iog) = row_pointer(iog-1) + numd(iog-1) 68 read(1) (column(row_pointer(iog)+j),j=1,numd(iog)) 76 read(1) (dm(row_pointer(iog)+j,ispin),j=1,numd(iog)) 98 iend = row_pointer(iog) + numd(iog) 101 do j = 1, numd(iog) 121 write(1) (column(row_pointer(iog)+j),j=1,numd(iog)) 125 write(1) (dm(row_pointer(iog)+j,ispin),j=1,numd(iog))
|
H A D | dm_noncol_sign_flip4.f90 | 61 row_pointer(iog) = row_pointer(iog-1) + numd(iog-1) 68 read(1) (column(row_pointer(iog)+j),j=1,numd(iog)) 76 read(1) (dm(row_pointer(iog)+j,ispin),j=1,numd(iog)) 97 write(1) (column(row_pointer(iog)+j),j=1,numd(iog)) 101 write(1) (dm(row_pointer(iog)+j,ispin),j=1,numd(iog))
|
H A D | cdf2dm.F90 | 79 write(1) (column(row_pointer(iog)+j),j=1,numd(iog)) 88 write(1) (dm(row_pointer(iog)+j,ispin),j=1,numd(iog)) 94 deallocate(numd,row_pointer,column,dm)
|
/dports/science/siesta/siesta-4.1.5/Src/ |
H A D | iodm.F | 8 subroutine iodm( task, maxnd, nbasis, nspin, numd, argument 52 integer, intent(inout) :: numd(nbasis) 205 numd(m) = numdg(ml) 206 ndmax = ndmax + numd(m) 210 listdptr(m) = listdptr(m-1) + numd(m-1) 237 . (listd(listdptr(ml)+im),im=1,numd(ml)) 253 call MPI_IRecv(listd(listdptr(ml)+1),numd(ml), 345 numdg(m) = numd(ml) 349 call MPI_ISend(numd(ml),1,MPI_integer, 391 . (listd(listdptr(ml)+im),im=1,numd(ml)) [all …]
|
H A D | m_iodm_old.F | 76 integer, pointer :: numd(:) 174 numd(m) = numdg(ml) 179 listdptr(m) = listdptr(m-1) + numd(m-1) 287 subroutine read_dm ( maxnd, no_l, nspin, numd, argument 316 integer, intent(out) :: numd(no_l) 403 numd(m) = numdg(ml) 411 listdptr(m) = listdptr(m-1) + numd(m-1) 522 $ numd, listdptr, listd, dm, userfile) 527 integer, intent(in) :: numd(1:no_l) 578 numdg(m) = numd(ml) [all …]
|
H A D | m_matio.F90 | 23 numd, listdptr, listd, mat, userfile, compatible) argument 37 integer, intent(in) :: numd(1:no_l) local 73 write(lun) (numd(m),m=1,no_u) 75 write(lun) (listd(j),j=listdptr(i)+1,listdptr(i)+numd(i)) 79 write(lun) (mat(j,is),j=listdptr(i)+1,listdptr(i)+numd(i)) 133 numdg(n_g+1:n_g+norbs_g) = numd(n_l+1:n_l+norbs_l) 138 call MPI_Send(numd(n_l+1),norbs_l,MPI_integer, & 211 nnzs_bl = sum(numd(n_l+1:n_l+norbs_l)) 286 nnzs_bl = sum(numd(n_l+1:n_l+norbs_l))
|
H A D | diagon.F | 16 . maxo, numh, listhptr, listh, numd, 130 . indxuo(no), listh(maxnh), numh(*), listd(maxnd), numd(*), 217 . numh, listhptr, listh, numd, listdptr, listd, 250 . maxo, numh, listhptr, listh, numd, listdptr, 260 . maxo, numh, listhptr, listh, numd, listdptr, 276 . listhptr, listh, numd, listdptr, listd, 283 . numh, listhptr, listh, numd, listdptr, 300 . listhptr, listh, numd, listdptr, listd, 310 . listhptr, listh, numd, listdptr, listd, 326 . listhptr, listh, numd, listdptr, listd,
|
H A D | m_fire_mixing.f | 24 subroutine fire_mixing(iscf,mix_scf1,nbasis,maxnd,numd, argument 56 integer, intent(in) :: numd(:), listdptr(:) 82 numel = nspin * sum(numd(1:nbasis)) 122 do j = 1,numd(i) 164 do j = 1,numd(i) 192 do j = 1,numd(i)
|
H A D | meshdscf.F | 56 subroutine CreateLocalDscfPointers( nmpl, nuotot, numd, argument 106 integer, intent(in) :: numd(*) 172 numdele = numd(iio) 188 ibuffer(ii) = numd(iio) 236 do i = 1,numd(iio) 252 ibuffer(mm+1:mm+numd(iio)) = listd(listdptr(iio)+1: 254 mm = mm + numd(iio) 355 & Dscf(listdptr(iio)+1:listdptr(iio)+numd(iio),ispin) 368 buffer(mm+1:mm+numd(iio)) = Dscf(listdptr(iio)+1: 369 & listdptr(iio)+numd(iio),ispin) [all …]
|
H A D | m_broyden_mixing.f | 25 subroutine broyden_mixing(iscf,mix_scf1,nbasis,maxnd,numd, argument 58 integer, intent(in) :: numd(:), listdptr(:) 81 numel = nspin * sum(numd(1:nbasis)) 129 do j = 1,numd(i) 181 do j = 1,numd(i) 243 do j = 1,numd(i)
|
H A D | overfsm.f90 | 27 lasto, iphorb, isa, maxnd, numd, listdptr, listd, & argument 63 integer, intent(in) :: listd(maxnd), numd(no_l), listdptr(no_l) local 105 do j = 1,numd(iio) 138 do j = 1,numd(iio)
|
H A D | m_pulay.F90 | 79 subroutine pulayx( iscf,mix1,no_l,maxnd,numd, & argument 165 integer , intent(in) :: numd(*),listdptr(*) local 206 numel = sum(numd(1:no_l)) 361 do jj = 1,numd(ii) 376 do jj=1,numd(ii) 384 do jj=1,numd(ii) 404 do jj = 1,numd(ii) 419 do jj=1,numd(ii) 427 do jj=1,numd(ii)
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/web/support/patches/4.6/ |
H A D | geom_hnd.patch | 20 + double precision numd 30 + numd=(COS(BET)- COS(ALP)* COS(GAM))/ 32 + if(numd.gt.1d0) numd=1d0 33 + if(numd.lt.1d0) numd=-1d0 34 + THETA=ACOS(numd)
|
/dports/science/nwchem-data/nwchem-7.0.2-release/web/support/patches/4.6/ |
H A D | geom_hnd.patch | 20 + double precision numd 30 + numd=(COS(BET)- COS(ALP)* COS(GAM))/ 32 + if(numd.gt.1d0) numd=1d0 33 + if(numd.lt.1d0) numd=-1d0 34 + THETA=ACOS(numd)
|
/dports/misc/shc/shc-4.0.3/src/ |
H A D | shc.c | 1200 int numd = 0; in write_C() local 1210 arc4(msg1, msg1_z); numd++; in write_C() 1211 arc4(date, date_z); numd++; in write_C() 1212 arc4(shll, shll_z); numd++; in write_C() 1213 arc4(inlo, inlo_z); numd++; in write_C() 1214 arc4(xecc, xecc_z); numd++; in write_C() 1215 arc4(lsto, lsto_z); numd++; in write_C() 1216 arc4(tst1, tst1_z); numd++; in write_C() 1218 arc4(chk1, chk1_z); numd++; in write_C() 1219 arc4(msg2, msg2_z); numd++; in write_C() [all …]
|
/dports/cad/opencascade/opencascade-7.6.0/src/IGESGeom/ |
H A D | IGESGeom_CopiousData.cxx | 106 Standard_Integer numd = 0; in Data() local 107 if (theDataType == 1) numd = 2*(nump - 1) + numdata; // 1-2 in Data() 108 else if (theDataType == 2) numd = 3*(nump - 1) + numdata; // 1-2-3 in Data() 109 else if (theDataType == 3) numd = 6*(nump - 1) + numdata; // 1-2-3-4-5-6 in Data() 110 return theData->Value(numd); in Data()
|
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | createblock_struct.f | 25 & numd,i,j,k,m,icol,isubtract,nz_num local 32 numd=int(neq/num_cpus)+1 35 nestart(i)=nestart(i-1)+numd
|
H A D | createblock.f | 28 & indexf,nflnei,nz_num,kflag,n,num_cpus,nestart(*),numd, local 35 numd=int(nef/num_cpus)+1 38 nestart(i)=nestart(i-1)+numd
|
/dports/science/teem/teem-1.11.0-src/src/nrrd/test/ |
H A D | tkernel.c | 160 double numd; in main() local 161 numd = (kern[0]->eval1_d(val+step/2, parm) in main() 163 if (!CLOSE(numd, kern[1]->eval1_d(val+step, parm), 0.005)) { in main() 165 me, val, numd, kern[1]->eval1_d(val+step, parm), in main() 166 fabs(numd - kern[1]->eval1_d(val+step, parm))); in main()
|
/dports/news/nget/nget-0.27.1/ |
H A D | grouplist.cc | 161 ulong curline, num, nums, numd, numsd, countdeads, countdeadg; member in c_nntp_grouplist_reader 168 curline=0; num=0; nums=0; numd=0; numsd=0; countdeads=0; countdeadg=0; in c_nntp_grouplist_reader() 261 numd+=gd->servergroups.size(); in read_group() 303 …groups, %lu descriptions (%lu sgs, %lu sgds)",(ulong)groups.size(),reader.numd,reader.nums,reader.… in c_nntp_grouplist() 317 int nums=0, numsd=0, num=0, numd=0; in save() local 349 numd++; in save() 354 if (debug) printf(" (%i g, %i sg, %i gd, %i sgd) done.\n",num,nums,numd,numsd); in save() 391 …PDEBUG(DEBUG_MIN,"scanned %lu groups, %lu descriptions (%lu sgs, %lu sgds)",numgroups,reader.numd,… in nntp_grouplist_printinfos()
|