/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/operations/adaptation/ |
H A D | hecmw_adapt_new_cell.f90 | 20 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 D | hecmw_adapt_repro_comm_table.f90 | 28 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 D | hecmw_adapt_cell_comm_table.f90 | 29 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 D | hecmw_adapt_edge_comm_table.f90 | 100 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 D | hecmw_adapt_new_node.f90 | 105 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 D | hecmw_adapt_bc_pointer.f90 | 40 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 D | hecmw_adapt_get_new_cell_info.f90 | 19 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 D | cc_pckutil.F | 120 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 D | hecmw_precond_BILU_nn.f90 | 260 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 D | hecmw_precond_RIF_nn.f90 | 414 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 D | hecmw_precond_SAINV_nn.f90 | 406 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 D | hecmw_precond_BILU_33.f90 | 255 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 D | ma27Interface.cpp | 28 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 D | sb10rd.f | 345 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 D | hecmw_precond_BILU_44.f90 | 280 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 D | cblktr.f | 230 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 D | blktri.f | 227 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 D | cblktr.f | 236 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 D | blktri.f | 233 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 D | cffti.f | 60 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 D | hecmw_precond_BILU_66.f90 | 331 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 D | IpMa27TSolverInterface.cpp | 41 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 D | cffti.f | 36 IW1 = N+N+1 37 IW2 = IW1+N+N 38 CALL CFFTI1 (N,WSAVE(IW1),WSAVE(IW2))
|
H A D | cfftb.f | 61 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 D | cffti.f | 25 IW1 = N+N+1 26 IW2 = IW1+N+N 27 CALL CFFTI1 (N,WSAVE(IW1),WSAVE(IW2))
|