/dports/science/PETSc/petsc-3.14.1/src/ts/impls/implicit/theta/ |
H A D | theta.c | 299 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 D | insrt1.f | 2 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 D | delet1.f | 2 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 D | master.f | 2 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 D | addpt.f | 2 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 D | initad.f | 2 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 D | insrt.f | 2 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 D | swap.f | 2 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 D | swap.r | 1 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 D | insrt1.r | 1 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 D | master.r | 1 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 D | delet1.r | 1 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 D | initad.r | 1 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 D | addpt.r | 1 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 D | insrt1.r | 1 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 D | delet1.r | 1 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 D | master.r | 1 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 D | addpt.r | 1 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 D | initad.r | 1 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 D | adjToGraph.c | 25 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 D | adjToGraph.c | 25 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 D | adjToGraph.c | 25 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 D | adjToGraph.c | 25 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 D | maps.c | 28 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 D | maps.c | 28 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 …]
|