Home
last modified time | relevance | path

Searched refs:nadj (Results 1 – 25 of 378) sorted by relevance

12345678910>>...16

/dports/science/PETSc/petsc-3.14.1/src/ts/impls/implicit/theta/
H A Dtheta.c299 for (nadj=0; nadj<ts->numcost; nadj++) { in TSAdjointStepBEuler_Private()
317 for (nadj=0; nadj<ts->numcost; nadj++) { in TSAdjointStepBEuler_Private()
344 for (nadj=0; nadj<ts->numcost; nadj++) { in TSAdjointStepBEuler_Private()
361 for (nadj=0; nadj<ts->numcost; nadj++) { in TSAdjointStepBEuler_Private()
385 for (nadj=0; nadj<ts->numcost; nadj++) { in TSAdjointStepBEuler_Private()
457 for (nadj=0; nadj<ts->numcost; nadj++) { in TSAdjointStep_Theta()
479 for (nadj=0; nadj<ts->numcost; nadj++) { in TSAdjointStep_Theta()
510 for (nadj=0; nadj<ts->numcost; nadj++) { in TSAdjointStep_Theta()
531 for (nadj=0; nadj<ts->numcost; nadj++) { in TSAdjointStep_Theta()
554 for (nadj=0; nadj<ts->numcost; nadj++) { in TSAdjointStep_Theta()
[all …]
/dports/math/R-cran-deldir/deldir/src/
H A Dinsrt1.f2 subroutine insrt1(i,j,kj,nadj,madj,ntot,incadj)
4 dimension nadj(-3:ntot,0:madj)
6 n = nadj(i,0)
8 nadj(i,0) = 1
9 nadj(i,1) = j
18 nadj(i,kk) = nadj(i,kk-1)
23 nadj(i,kj) = j
24 nadj(i,0) = n+1
H A Ddelet1.f2 subroutine delet1(i,j,nadj,madj,ntot)
4 dimension nadj(-3:ntot,0:madj)
5 n = nadj(i,0)
7 if(nadj(i,k).eq.j)then
9 nadj(i,kk) = nadj(i,kk+1)
12 nadj(i,n) = -99
13 nadj(i,0) = n-1
H A Dmaster.f2 subroutine master(x,y,rw,nn,ntot,nadj,madj,eps,delsgs,ndel,delsum,
6 dimension nadj(-3:ntot,0:madj)
12 nadj(i,0) = 0
14 nadj(i,j) = -99
33 call insrt(j,k,nadj,madj,x,y,ntot,eps,incadj)
41 call insrt(1,j,nadj,madj,x,y,ntot,eps,incadj)
49 call addpt(j,nadj,madj,x,y,ntot,eps,ntri,incadj)
56 call delseg(delsgs,ndel,nadj,madj,nn,x,y,ntot,incseg)
60 call delout(delsum,nadj,madj,x,y,ntot,nn)
61 call dirseg(dirsgs,ndir,nadj,madj,nn,x,y,ntot,rw,eps,ntri,incadj,i
[all …]
H A Daddpt.f2 subroutine addpt(j,nadj,madj,x,y,ntot,eps,ntri,incadj)
4 dimension nadj(-3:ntot,0:madj), x(-3:ntot), y(-3:ntot)
6 call initad(j,nadj,madj,x,y,ntot,eps,ntri,incadj)
7 now = nadj(j,1)
8 nxt = nadj(j,2)
11 call swap(j,now,nxt,didswp,nadj,madj,x,y,ntot,eps,incadj)
12 n = nadj(j,0)
17 call succ(nxt,j,now,nadj,madj,ntot)
H A Dinitad.f2 subroutine initad(j,nadj,madj,x,y,ntot,eps,ntri,incadj)
4 dimension nadj(-3:ntot,0:madj), x(-3:ntot), y(-3:ntot)
6 call trifnd(j,tau,nedge,nadj,madj,x,y,ntot,eps,ntri)
13 call pred(k,tau(i),tau(ip),nadj,madj,ntot)
14 call succ(kk,tau(ip),tau(i),nadj,madj,ntot)
15 call delet(tau(i),tau(ip),nadj,madj,ntot)
17 call insrt(j,k,nadj,madj,x,y,ntot,eps,incadj)
24 call insrt(j,tau(i),nadj,madj,x,y,ntot,eps,incadj)
H A Dinsrt.f2 subroutine insrt(i,j,nadj,madj,x,y,ntot,eps,incadj)
4 dimension nadj(-3:ntot,0:madj), x(-3:ntot), y(-3:ntot)
6 call adjchk(i,j,adj,nadj,madj,ntot)
10 call locn(i,j,kj,nadj,madj,x,y,ntot,eps)
11 call locn(j,i,ki,nadj,madj,x,y,ntot,eps)
12 call insrt1(i,j,kj,nadj,madj,ntot,incadj)
16 call insrt1(j,i,ki,nadj,madj,ntot,incadj)
H A Dswap.f2 subroutine swap(j,k1,k2,shdswp,nadj,madj,x,y,ntot,eps,incadj)
4 dimension nadj(-3:ntot,0:madj), x(-3:ntot), y(-3:ntot)
6 call adjchk(k1,k2,shdswp,nadj,madj,ntot)
10 call pred(k,k1,k2,nadj,madj,ntot)
11 call succ(kk,k2,k1,nadj,madj,ntot)
18 call delet(k1,k2,nadj,madj,ntot)
19 call insrt(j,k,nadj,madj,x,y,ntot,eps,incadj)
/dports/math/R-cran-deldir/deldir/inst/SavedRatfor/
H A Dswap.r1 subroutine swap(j,k1,k2,shdswp,nadj,madj,x,y,ntot,eps,nerror)
10 dimension nadj(-3:ntot,0:madj), x(-3:ntot), y(-3:ntot)
17 call adjchk(k1,k2,shdswp,nadj,madj,ntot,nerror)
39 nk1 = nadj(k1,0)
41 ntadj(jc) = nadj(k1,jc)
46 nk2 = nadj(k2,0)
48 ntadj(jc) = nadj(k2,jc)
53 nj = nadj(j,0)
55 ntadj(jc) = nadj(j,jc)
74 call delet(k1,k2,nadj,madj,ntot,nerror)
[all …]
H A Dinsrt1.r1 subroutine insrt1(i,j,kj,nadj,madj,ntot,nerror)
7 dimension nadj(-3:ntot,0:madj)
16 n = nadj(i,0)
18 nadj(i,0) = 1
19 nadj(i,1) = j
32 nadj(i,kk) = nadj(i,kk-1)
35 nadj(i,kj) = j
36 nadj(i,0) = n+1
H A Dmaster.r1 subroutine master(x,y,rw,npd,ntot,nadj,madj,eps,delsgs,ndel,delsum,
12 dimension nadj(-3:ntot,0:madj)
23 nadj(i,0) = 0
25 nadj(i,j) = -99
48 call insrt(j,k,nadj,madj,x,y,ntot,nerror,eps)
55 call insrt(1,j,nadj,madj,x,y,ntot,nerror,eps)
62 call addpt(j,nadj,madj,x,y,ntot,eps,ntri,nerror)
71 call delseg(delsgs,ndel,nadj,madj,npd,x,y,ntot,nerror)
74 call delout(delsum,nadj,madj,x,y,ntot,npd,nerror)
77 call dirseg(dirsgs,ndir,nadj,madj,npd,x,y,ntot,rw,eps,ntri,nerror)
[all …]
H A Ddelet1.r1 subroutine delet1(i,j,nadj,madj,ntot)
6 dimension nadj(-3:ntot,0:madj)
8 n = nadj(i,0)
10 if(nadj(i,k)==j) { # Find j in the list;
12 do kk = k,n-1 { nadj(i,kk) = nadj(i,kk+1) }
13 nadj(i,n) = -99 # Changed from the confusing 0 value 25/7/2011.
14 nadj(i,0) = n-1
H A Dinitad.r1 subroutine initad(j,nadj,madj,x,y,ntot,eps,ntri,nerror)
7 dimension nadj(-3:ntot,0:madj), x(-3:ntot), y(-3:ntot)
12 call trifnd(j,tau,nedge,nadj,madj,x,y,ntot,eps,ntri,nerror)
23 call pred(k,tau(i),tau(ip),nadj,madj,ntot,nerror)
25 call succ(kk,tau(ip),tau(i),nadj,madj,ntot,nerror)
27 call delet(tau(i),tau(ip),nadj,madj,ntot,nerror)
29 if(k==kk) call insrt(j,k,nadj,madj,x,y,ntot,nerror,eps)
35 call insrt(j,tau(i),nadj,madj,x,y,ntot,nerror,eps)
39 nj = nadj(j,0)
41 tadj(jc) = nadj(j,jc)
H A Daddpt.r1 subroutine addpt(j,nadj,madj,x,y,ntot,eps,ntri,nerror)
6 dimension nadj(-3:ntot,0:madj), x(-3:ntot), y(-3:ntot)
11 call initad(j,nadj,madj,x,y,ntot,eps,ntri,nerror)
19 now = nadj(j,1)
20 nxt = nadj(j,2)
24 call swap(j,now,nxt,didswp,nadj,madj,x,y,ntot,eps,nerror)
26 n = nadj(j,0)
31 call succ(nxt,j,now,nadj,madj,ntot,nerror)
/dports/math/R-cran-deldir/deldir/inst/ratfor/
H A Dinsrt1.r1 subroutine insrt1(i,j,kj,nadj,madj,ntot,incAdj)
7 dimension nadj(-3:ntot,0:madj)
17 n = nadj(i,0)
19 nadj(i,0) = 1
20 nadj(i,1) = j
33 nadj(i,kk) = nadj(i,kk-1)
36 nadj(i,kj) = j
37 nadj(i,0) = n+1
H A Ddelet1.r1 subroutine delet1(i,j,nadj,madj,ntot)
6 dimension nadj(-3:ntot,0:madj)
8 n = nadj(i,0)
10 if(nadj(i,k)==j) { # Find j in the list;
12 do kk = k,n-1 { nadj(i,kk) = nadj(i,kk+1) }
13 nadj(i,n) = -99 # Changed from the confusing 0 value 25/7/2011.
14 nadj(i,0) = n-1
H A Dmaster.r1 subroutine master(x,y,rw,nn,ntot,nadj,madj,eps,delsgs,ndel,delsum,
15 dimension nadj(-3:ntot,0:madj)
25 nadj(i,0) = 0
27 nadj(i,j) = -99
50 call insrt(j,k,nadj,madj,x,y,ntot,eps,incAdj)
57 call insrt(1,j,nadj,madj,x,y,ntot,eps,incAdj)
64 call addpt(j,nadj,madj,x,y,ntot,eps,ntri,incAdj)
70 call delseg(delsgs,ndel,nadj,madj,nn,x,y,ntot,incSeg)
73 call delout(delsum,nadj,madj,x,y,ntot,nn)
75 call dirseg(dirsgs,ndir,nadj,madj,nn,x,y,ntot,rw,eps,ntri,incAdj,incSeg)
[all …]
H A Daddpt.r1 subroutine addpt(j,nadj,madj,x,y,ntot,eps,ntri,incAdj)
6 dimension nadj(-3:ntot,0:madj), x(-3:ntot), y(-3:ntot)
11 call initad(j,nadj,madj,x,y,ntot,eps,ntri,incAdj)
18 now = nadj(j,1)
19 nxt = nadj(j,2)
23 call swap(j,now,nxt,didswp,nadj,madj,x,y,ntot,eps,incAdj)
24 n = nadj(j,0)
29 call succ(nxt,j,now,nadj,madj,ntot)
H A Dinitad.r1 subroutine initad(j,nadj,madj,x,y,ntot,eps,ntri,incAdj)
7 dimension nadj(-3:ntot,0:madj), x(-3:ntot), y(-3:ntot)
11 call trifnd(j,tau,nedge,nadj,madj,x,y,ntot,eps,ntri)
21 call pred(k,tau(i),tau(ip),nadj,madj,ntot)
22 call succ(kk,tau(ip),tau(i),nadj,madj,ntot)
23 call delet(tau(i),tau(ip),nadj,madj,ntot)
24 if(k==kk) call insrt(j,k,nadj,madj,x,y,ntot,eps,incAdj)
30 call insrt(j,tau(i),nadj,madj,x,y,ntot,eps,incAdj)
/dports/math/spooles-mpich/spooles.2.2/InpMtx/drivers/
H A DadjToGraph.c25 int flag, ierr, ii, msglvl, nadj, nvtx, rc, v, vsize ; in main() local
90 nvtx, nadj) ; in main()
126 adjncy = IVinit(nadj, -1) ; in main()
127 rc = IVfscanf(fp, nadj, adjncy) ; in main()
128 if ( rc != nadj ) { in main()
131 argv[0], rc, nadj) ; in main()
140 for ( ii = 0 ; ii < nadj ; ii++ ) { in main()
146 IVfp80(msgFile, nadj, adjncy, 80, &ierr) ; in main()
154 for ( ii = 0 ; ii < nadj ; ii++ ) { in main()
165 IVfp80(msgFile, nadj, adjncy, 80, &ierr) ; in main()
[all …]
/dports/math/spooles-mpich/spooles.2.2_SHARED/InpMtx/drivers/
H A DadjToGraph.c25 int flag, ierr, ii, msglvl, nadj, nvtx, rc, v, vsize ; in main() local
90 nvtx, nadj) ; in main()
126 adjncy = IVinit(nadj, -1) ; in main()
127 rc = IVfscanf(fp, nadj, adjncy) ; in main()
128 if ( rc != nadj ) { in main()
131 argv[0], rc, nadj) ; in main()
140 for ( ii = 0 ; ii < nadj ; ii++ ) { in main()
146 IVfp80(msgFile, nadj, adjncy, 80, &ierr) ; in main()
154 for ( ii = 0 ; ii < nadj ; ii++ ) { in main()
165 IVfp80(msgFile, nadj, adjncy, 80, &ierr) ; in main()
[all …]
/dports/math/spooles/spooles.2.2_SHARED/InpMtx/drivers/
H A DadjToGraph.c25 int flag, ierr, ii, msglvl, nadj, nvtx, rc, v, vsize ; in main() local
90 nvtx, nadj) ; in main()
126 adjncy = IVinit(nadj, -1) ; in main()
127 rc = IVfscanf(fp, nadj, adjncy) ; in main()
128 if ( rc != nadj ) { in main()
131 argv[0], rc, nadj) ; in main()
140 for ( ii = 0 ; ii < nadj ; ii++ ) { in main()
146 IVfp80(msgFile, nadj, adjncy, 80, &ierr) ; in main()
154 for ( ii = 0 ; ii < nadj ; ii++ ) { in main()
165 IVfp80(msgFile, nadj, adjncy, 80, &ierr) ; in main()
[all …]
/dports/math/spooles/spooles.2.2/InpMtx/drivers/
H A DadjToGraph.c25 int flag, ierr, ii, msglvl, nadj, nvtx, rc, v, vsize ; in main() local
90 nvtx, nadj) ; in main()
126 adjncy = IVinit(nadj, -1) ; in main()
127 rc = IVfscanf(fp, nadj, adjncy) ; in main()
128 if ( rc != nadj ) { in main()
131 argv[0], rc, nadj) ; in main()
140 for ( ii = 0 ; ii < nadj ; ii++ ) { in main()
146 IVfp80(msgFile, nadj, adjncy, 80, &ierr) ; in main()
154 for ( ii = 0 ; ii < nadj ; ii++ ) { in main()
165 IVfp80(msgFile, nadj, adjncy, 80, &ierr) ; in main()
[all …]
/dports/math/spooles-mpich/spooles.2.2_SHARED/SolveMap/src/
H A Dmaps.c28 int ii, J, K, loc, nadj, nblockLower, nblockUpper, in SolveMap_randomMap() local
63 IVL_listAndSize(upperBlockIVL, J, &nadj, &adj) ; in SolveMap_randomMap()
64 for ( ii = 0 ; ii < nadj ; ii++ ) { in SolveMap_randomMap()
87 for ( ii = 0 ; ii < nadj ; ii++ ) { in SolveMap_randomMap()
137 IVL_listAndSize(upperBlockIVL, J, &nadj, &adj) ; in SolveMap_randomMap()
142 for ( ii = 0 ; ii < nadj ; ii++ ) { in SolveMap_randomMap()
179 for ( ii = 0 ; ii < nadj ; ii++ ) { in SolveMap_randomMap()
260 for ( ii = 0 ; ii < nadj ; ii++ ) { in SolveMap_ddMap()
283 for ( ii = 0 ; ii < nadj ; ii++ ) { in SolveMap_ddMap()
360 for ( ii = 0 ; ii < nadj ; ii++ ) { in SolveMap_ddMap()
[all …]
/dports/math/spooles-mpich/spooles.2.2/SolveMap/src/
H A Dmaps.c28 int ii, J, K, loc, nadj, nblockLower, nblockUpper, in SolveMap_randomMap() local
63 IVL_listAndSize(upperBlockIVL, J, &nadj, &adj) ; in SolveMap_randomMap()
64 for ( ii = 0 ; ii < nadj ; ii++ ) { in SolveMap_randomMap()
87 for ( ii = 0 ; ii < nadj ; ii++ ) { in SolveMap_randomMap()
137 IVL_listAndSize(upperBlockIVL, J, &nadj, &adj) ; in SolveMap_randomMap()
142 for ( ii = 0 ; ii < nadj ; ii++ ) { in SolveMap_randomMap()
179 for ( ii = 0 ; ii < nadj ; ii++ ) { in SolveMap_randomMap()
260 for ( ii = 0 ; ii < nadj ; ii++ ) { in SolveMap_ddMap()
283 for ( ii = 0 ; ii < nadj ; ii++ ) { in SolveMap_ddMap()
360 for ( ii = 0 ; ii < nadj ; ii++ ) { in SolveMap_ddMap()
[all …]

12345678910>>...16