Home
last modified time | relevance | path

Searched refs:IW1 (Results 1 – 25 of 106) sorted by relevance

12345

/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/operations/adaptation/
H A Dhecmw_adapt_new_cell.f9020 integer(kind=kint), dimension(:), allocatable :: IW1, IW2 local
90 allocate (IW1(len*8))
91 IW1= 0
188 deallocate (IW1)
190 allocate (IW1(len*8))
191 IW1= 0
207 IW1(8*icel-7)= hecMESH%adapt_children_item(2*iS1)
208 IW1(8*icel-6)= hecMESH%adapt_children_item(2*iS2)
225 IW1(8*icel-7)= hecMESH%adapt_children_item(2*iS1)
226 IW1(8*icel-6)= hecMESH%adapt_children_item(2*iS2)
[all …]
H A Dhecmw_adapt_repro_comm_table.f9028 allocate (IW1(hecMESH%n_neighbor_pe))
29 IW1 = 0
72 IW1(ihR ) = IW1(ihR) + 1
76 deallocate (IW1)
80 allocate (IW1(len), IW2(len))
81 IW1 = 0
92 deallocate (IW1)
94 IW1 = 0
101 IW1(ihR ) = IW1(ihR) + 1
102 wiI(wSI(ihR-1)+IW1(ihR))= in
[all …]
H A Dhecmw_adapt_cell_comm_table.f9029 allocate (IW1(hecMESH%n_neighbor_pe))
32 IW1 = 0
73 IW1(ihR ) = IW1(ihR) + 1
80 deallocate (IW1)
81 allocate (IW1(len), IW2(len))
83 IW1 = 0
109 deallocate (IW1)
112 IW1= 0
117 IW1(ihR ) = IW1(ihR) + 1
118 wiI(wSI(ihR-1)+IW1(ihR))= icel
[all …]
H A Dhecmw_adapt_edge_comm_table.f90100 IW1 = 0
146 IW1(ihR ) = IW1(ihR) + 1
162 deallocate (IW1)
164 IW1 = 0
174 deallocate (IW1, IW2)
202 allocate (IW1(len), IW2(len))
203 IW1 = 0
217 deallocate (IW1)
219 IW1 = 0
226 IW1(ihR )= IW1(ihR) + 1
[all …]
H A Dhecmw_adapt_new_node.f90105 allocate (IW1(hecMESH%n_adapt_edge))
107 IW1= hecMESH%adapt_mid_edge
131 inL= IW1 (ie)
139 inL= IW1 (ie)
143 deallocate (IW1)
156 IW1= 0
164 IW1(ihR)= IW1(ihR) + 1
171 IW1= 0
175 IW1(ihR)= IW1(ihR) + 1
176 is = IW2(ihR-1) + IW1(ihR)
[all …]
H A Dhecmw_adapt_bc_pointer.f9040 IW1= 0
46 IW1 (nod )= 1
54 if (IW1(nod1).eq.1 .and. IW1(nod2).eq.1 .and. &
86 deallocate (IUPD, IW1, IW2)
100 allocate (IW1 (hecMESH%n_elem))
109 IW1= 0
115 IW1 (icel )= 1
132 IW1 (iclocal )= 1
162 deallocate (IUPD, IW1, IW2)
186 IW1= 0
[all …]
H A Dhecmw_adapt_get_new_cell_info.f9019 integer(kind=kint), dimension(:), allocatable :: IW1 local
22 allocate (IW1(hecMESH%n_elem))
37 IW1(icou)= hecMESH%adapt_children_item(2*k-1)
50 hecMESH%elem_ID(2*icel-1)= IW1(icou)
55 deallocate (IW1)
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/
H A Dcc_pckutil.F120 I4WORD(IW1) = ISHFT(I4WORD(IW1),4)
121 I4WORD(IW1) = IAND( I4WORD(IW1),MASK2)
122 I4WORD(IW1) = IOR( I4WORD(IW1),ISIGN)
126 I4WORD(IW1) = IOR( I4WORD(IW1),HBITS)
286 I4WORD(IW1) = ISHFT(I4WORD(IW1),-4)
287 I4WORD(IW1) = IOR( I4WORD(IW1),ISIGN)
290 I4WORD(IW1) = IAND(I4WORD(IW1),MASK4)
292 I4WORD(IW1) = IOR( I4WORD(IW1),MASK3)
429 I4WORD0(IW1) = I4WORD0(IW1) + JMASK
441 I4WORD1(IW1) = I4WORD1(IW1) + JMASK
[all …]
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/precond/nn/
H A Dhecmw_precond_BILU_nn.f90260 IW1= 0
382 IW1= 0
383 IW1(i)= 1
435 IW1= 0
436 IW1(i)= 1
594 IW1= 0
763 IW1= 0
808 IW1= 0
854 IW1= 0
935 IW1= 0
[all …]
H A Dhecmw_precond_RIF_nn.f90414 IW1= 0
415 IW1(i)= 1
417 IW1(itemL(L))= 1
420 IW1(itemU(L))= 1
433 IW1(jj)= 1
437 IW1(jj)= 1
469 IW1= 0
470 IW1(i)= 1
472 IW1(itemL(L))= 1
475 IW1(itemU(L))= 1
[all …]
H A Dhecmw_precond_SAINV_nn.f90406 IW1= 0
407 IW1(i)= 1
409 IW1(itemL(L))= 1
412 IW1(itemU(L))= 1
425 IW1(jj)= 1
429 IW1(jj)= 1
461 IW1= 0
462 IW1(i)= 1
464 IW1(itemL(L))= 1
467 IW1(itemU(L))= 1
[all …]
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/precond/33/
H A Dhecmw_precond_BILU_33.f90255 IW1= 0
411 IW1= 0
412 IW1(i)= 1
464 IW1= 0
465 IW1(i)= 1
623 IW1= 0
792 IW1= 0
837 IW1= 0
883 IW1= 0
964 IW1= 0
[all …]
/dports/math/py-Pyomo/Pyomo-6.1.2/pyomo/contrib/pynumero/src/
H A Dma27Interface.cpp28 int* IW1, int* ICNTL, double* CNTL,
187 int* IW1 = new int[2*N]; in do_symbolic_factorization() local
188 if (IW1 == NULL) { abort_bad_memory(1); } in do_symbolic_factorization()
197 IW1, in do_symbolic_factorization()
205 delete[] IW1; in do_symbolic_factorization()
236 int* IW1 = new int[N]; in do_numeric_factorization() local
250 IW1, in do_numeric_factorization()
255 delete[] IW1; in do_numeric_factorization()
263 int* IW1 = new int[ma27->NSTEPS]; in do_backsolve() local
275 IW1, in do_backsolve()
[all …]
/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/
H A Dsb10rd.f345 IW1 = ID12 + M2*M2
346 IW2 = IW1 + ND1*ND1
384 $ DWORK( IW1 ), ND1 )
424 IW2 = IW1 + ND2*ND2
432 $ DWORK( IW1 ), ND2 )
493 IWRK = IW1
513 IWB = IW1
515 IW1 = IWC + ( M2 + NP2 )*N
516 IW2 = IW1 + N*M2
540 $ M2, ONE, DWORK( IW1 ), N )
[all …]
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/precond/44/
H A Dhecmw_precond_BILU_44.f90280 IW1= 0
487 IW1= 0
488 IW1(i)= 1
540 IW1= 0
541 IW1(i)= 1
699 IW1= 0
898 IW1= 0
943 IW1= 0
989 IW1= 0
1070 IW1= 0
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/fishpak/
H A Dcblktr.f230 111 IW1 = IWAH
231 IWBH = IW1+NM
232 W(1) = IW1-1+MAX(2*NM,12*M)
235 IW1 = IWBH
236 W(1) = IW1-1+MAX(2*NM,12*M)
242 114 IW2 = IW1+M2
254 117 CALL CBLKT1 (NL,AN,BN,CN,M,AM,BM,CM,IDIMY,Y,W(2),W(IW1),W(IW2),
257 118 CALL CBLKT1 (NL,AN,BN,CN,M,AM,BM,CM,IDIMY,Y,W(2),W(IW1),W(IW2),
H A Dblktri.f227 111 IW1 = IWAH
228 IWBH = IW1+NM
229 W(1) = IW1-1+MAX(2*NM,6*M)
232 IW1 = IWBH
233 W(1) = IW1-1+MAX(2*NM,6*M)
239 114 IW2 = IW1+M
251 117 CALL BLKTR1 (NL,AN,BN,CN,M,AM,BM,CM,IDIMY,Y,W(2),W(IW1),W(IW2),
254 118 CALL BLKTR1 (NL,AN,BN,CN,M,AM,BM,CM,IDIMY,Y,W(2),W(IW1),W(IW2),
/dports/math/slatec/src/
H A Dcblktr.f236 111 IW1 = IWAH
237 IWBH = IW1+NM
238 W(1) = IW1-1+MAX(2*NM,12*M)
241 IW1 = IWBH
242 W(1) = IW1-1+MAX(2*NM,12*M)
248 114 IW2 = IW1+M2
260 117 CALL CBLKT1 (NL,AN,BN,CN,M,AM,BM,CM,IDIMY,Y,W(2),W(IW1),W(IW2),
263 118 CALL CBLKT1 (NL,AN,BN,CN,M,AM,BM,CM,IDIMY,Y,W(2),W(IW1),W(IW2),
H A Dblktri.f233 111 IW1 = IWAH
234 IWBH = IW1+NM
235 W(1) = IW1-1+MAX(2*NM,6*M)
238 IW1 = IWBH
239 W(1) = IW1-1+MAX(2*NM,6*M)
245 114 IW2 = IW1+M
257 117 CALL BLKTR1 (NL,AN,BN,CN,M,AM,BM,CM,IDIMY,Y,W(2),W(IW1),W(IW2),
260 118 CALL BLKTR1 (NL,AN,BN,CN,M,AM,BM,CM,IDIMY,Y,W(2),W(IW1),W(IW2),
H A Dcffti.f60 IW1 = N+N+1
61 IW2 = IW1+N+N
62 CALL CFFTI1 (N,WSAVE(IW1),WSAVE(IW2))
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/precond/66/
H A Dhecmw_precond_BILU_66.f90331 IW1= 0
644 IW1= 0
645 IW1(i)= 1
697 IW1= 0
698 IW1(i)= 1
898 IW1= 0
1224 IW1= 0
1269 IW1= 0
1315 IW1= 0
1396 IW1= 0
[all …]
/dports/math/ipopt/Ipopt-3.12.13/Ipopt/src/Algorithm/LinearSolvers/
H A DIpMa27TSolverInterface.cpp41 ipfint* IW1, ipfint* ICNTL, double* CNTL,
45 double* RHS, ipfint* IW1, ipfint* NSTEPS,
329 ipfint* IW1 = new ipfint[2*dim_]; // Get memory for IW1 (only local) in SymbolicFactorization() local
331 IW1, &nsteps_, &IFLAG, icntl_, cntl_, in SymbolicFactorization()
333 delete [] IW1; // No longer required in SymbolicFactorization()
435 ipfint* IW1 = new ipfint[2*dim_]; in Factorization() local
441 &maxfrt_, IW1, icntl_, cntl_, INFO); in Factorization()
442 delete [] IW1; in Factorization()
560 ipfint* IW1 = new ipfint[nsteps_]; in Backsolve() local
571 &rhs_vals[irhs*dim_], IW1, &nsteps_, in Backsolve()
[all …]
/dports/math/cmlib/cmlib-3.0_8/src/fftpkg/
H A Dcffti.f36 IW1 = N+N+1
37 IW2 = IW1+N+N
38 CALL CFFTI1 (N,WSAVE(IW1),WSAVE(IW2))
H A Dcfftb.f61 IW1 = N+N+1
62 IW2 = IW1+N+N
63 CALL CFFTB1 (N,C,WSAVE,WSAVE(IW1),WSAVE(IW2))
/dports/science/dcl/dcl-5.4.8/src/math2/fftlib/
H A Dcffti.f25 IW1 = N+N+1
26 IW2 = IW1+N+N
27 CALL CFFTI1 (N,WSAVE(IW1),WSAVE(IW2))

12345