/dports/cad/z88/Z88OS-15/src/z88x/common/ |
H A D | sub88x.c | 73 if (ityp[i] == 1 || ityp[i] == 7 || in sub88x() 74 ityp[i] == 8 || ityp[i] == 20 || in sub88x() 77 else if(ityp[i] == 2 || ityp[i] == 4 || in sub88x() 78 ityp[i] == 5 || ityp[i] == 9 || in sub88x() 81 else if(ityp[i] == 3 || ityp[i] == 14 || in sub88x() 82 ityp[i] == 15 || ityp[i] == 18 || in sub88x() 93 else if(ityp[i] == 11 || ityp[i] == 12 || in sub88x() 102 ityp[i] == 10 || ityp[i] == 13 || in sub88x() 103 ityp[i] == 16 || ityp[i] == 17 || in sub88x() 104 ityp[i] == 18 || ityp[i] == 19 || in sub88x() [all …]
|
H A D | wria88x.c | 327 if(ityp[i] == 7 || ityp[i] == 8 || ityp[i] == 20 || ityp[i] == 23) in wria88x() 339 if(ityp[i] == 11 || ityp[i] == 12) in wria88x() 354 if(ityp[i] == 2 || ityp[i] == 4 || ityp[i] == 5 || in wria88x() 355 ityp[i] == 9 || ityp[i] == 13 || ityp[i] == 25) in wria88x() 363 if(ityp[i] == 3 || ityp[i] == 14 || ityp[i] == 15 || in wria88x() 364 ityp[i] == 18 || ityp[i] == 24) in wria88x() 415 if(ityp[i] == 1 || ityp[i] == 10 || ityp[i] == 21) in wria88x() 429 if(ityp[i] == 1 || ityp[i] == 10 || ityp[i] == 21) in wria88x() 515 if(ityp[nep[j]]== 7 || ityp[nep[j]]== 8 || in wria88x() 516 ityp[nep[j]]== 14 || ityp[nep[j]]== 15) in wria88x() [all …]
|
H A D | rea88x.c | 288 if(ityp[i]== 1 || ityp[i]== 7 || ityp[i]== 8 || in rea88x() 289 ityp[i]== 20 || ityp[i]== 23) in rea88x() 307 if(ityp[i]== 2 || ityp[i]== 4 || ityp[i]== 5 || in rea88x() 308 ityp[i]== 9 || ityp[i]== 13 || ityp[i]== 25) in rea88x() 323 if(ityp[i]== 3 || ityp[i]== 14 || ityp[i]== 15 || in rea88x() 324 ityp[i]== 18 || ityp[i]== 24) in rea88x() 416 if(ityp[i]== 11 || ityp[i]== 12 || ityp[i]== 22) in rea88x() 436 if(ityp[i]== 19 || ityp[i]== 21) in rea88x() 471 if(ityp[i] == 1 || ityp[i] == 10 || ityp[i] == 21) in rea88x() 565 if(ityp[nep[i]]== 7 || ityp[nep[i]]== 8 || in rea88x() [all …]
|
H A D | z88tx.c | 580 if(ityp[nep[j]]== 18 || ityp[nep[j]]== 19 || ityp[nep[j]]== 20 || in z88tx() 789 else if(ityp[k]== 9 || ityp[k]== 13) in z88tx() 821 else if(ityp[k]== 2 || ityp[k]== 4 || ityp[k]== 5 || ityp[k]== 25) in z88tx() 855 else if(ityp[k]== 3 || ityp[k]== 14 || ityp[k]== 15 || ityp[k]== 18) in z88tx() 953 else if(ityp[k] == 7 || ityp[k] == 8 || ityp[k] == 20) in z88tx() 1035 else if(ityp[k]== 11 || ityp[k]== 12) in z88tx() 1318 else if(ityp[k]== 9 || ityp[k]== 13) in z88tx() 1346 else if(ityp[k]== 2 || ityp[k]== 4 || ityp[k]== 5 || ityp[k]== 25) in z88tx() 1375 else if(ityp[k]== 3 || ityp[k]== 14 || ityp[k]== 15 || ityp[k]== 18) in z88tx() 1469 else if(ityp[k] == 7 || ityp[k] == 8 || ityp[k]== 20) in z88tx() [all …]
|
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | hyperelastics.f | 66 ityp=-7 70 ityp=-1 72 ityp=-2 74 ityp=-3 76 ityp=-4 134 if((ityp.ne.-6).and.(ityp.ne.-9)) then 135 if((ityp.eq.-3).or.(ityp.eq.-10)) then 137 elseif((ityp.eq.-1).or.(ityp.eq.-2).or.(ityp.eq.-4).or. 144 elseif((ityp.eq.-5).or.(ityp.eq.-12).or.(ityp.eq.-14)) then 254 elseif((ityp.eq.-7).or.(ityp.eq.-8).or.(ityp.eq.-9)) then [all …]
|
/dports/cad/z88/Z88OS-15/perl/ |
H A D | z88vry.pl | 619 !($ityp == 3 || $ityp == 6 || $ityp == 7 || $ityp == 8 || 620 $ityp == 9 || $ityp == 11 || $ityp == 12 || $ityp == 13 || 621 $ityp == 14 || $ityp == 15 || $ityp == 18 || $ityp == 19 || 630 !($ityp == 1 || $ityp == 2 || $ityp == 4 || $ityp == 5 || 631 $ityp == 10 || $ityp == 16 || $ityp == 17 || $ityp == 21 || 650 if($ityp == 2 || $ityp == 4 || $ityp == 5 || $ityp == 9 || $ityp == 13) 830 if( ($ityp == 6 || $ityp == 8 || $ityp == 12 || $ityp == 15) 838 if( ($ityp == 1 || $ityp == 2 || $ityp == 4 || $ityp == 5 || 1457 if($ityp == 2 || $ityp == 3 || $ityp == 4 || $ityp == 5 || $ityp == 6 || 1557 if($ityp == 7 || $ityp == 8 || $ityp == 14 || $ityp == 15) [all …]
|
/dports/cad/z88/Z88OS-15/src/z88r/common/ |
H A D | z88a.c | 81 extern FR_INT4AY ityp; in z88a() 148 if(ityp[k]== 1) in z88a() 171 else if(ityp[k]== 2) in z88a() 194 else if(ityp[k]== 3) in z88a() 217 else if(ityp[k]== 4) in z88a() 240 else if(ityp[k]== 5) in z88a() 263 else if(ityp[k]== 6) in z88a() 287 else if(ityp[k]== 7 || ityp[k]== 8) in z88a() 311 else if(ityp[k]== 9) in z88a() 357 else if(ityp[k]== 11 || ityp[k]== 12) in z88a() [all …]
|
H A D | ri588i.c | 117 extern FR_INT4AY ityp; in ri588i() 175 if(ityp[nep[i]]== 7 || ityp[nep[i]]== 8 || in ri588i() 176 ityp[nep[i]]== 14 || ityp[nep[i]]== 15) in ri588i() 190 if(ityp[nep[i]]== 17) in ri588i() 204 if(ityp[nep[i]]== 16 || ityp[nep[i]]== 22) in ri588i() 221 if(ityp[nep[i]]== 10 || ityp[nep[i]]== 21) in ri588i() 239 if(ityp[nep[i]]== 1) in ri588i() 255 if(ityp[nep[i]]== 11 || ityp[nep[i]]== 12) in ri588i() 271 if(ityp[nep[i]]== 18 || ityp[nep[i]]== 19 || in ri588i() 272 ityp[nep[i]]== 20 || ityp[nep[i]]== 23 || ityp[nep[i]]== 24) in ri588i()
|
H A D | wria88r.c | 269 if(ityp[i] == 1 || ityp[i] == 7 || ityp[i] == 8 || in wria88r() 270 ityp[i] == 20 || ityp[i] == 23) in wria88r() 273 i,ityp[i], in wria88r() 283 if(ityp[i] == 2 || ityp[i] == 4 || ityp[i] == 5 || in wria88r() 284 ityp[i] == 9 || ityp[i] == 13 || ityp[i] == 25) in wria88r() 293 if(ityp[i] == 3 || ityp[i] == 14 || ityp[i]== 15 || in wria88r() 294 ityp[i] == 18 || ityp[i] == 24) in wria88r() 297 i,ityp[i], in wria88r() 309 i,ityp[i], in wria88r() 320 i,ityp[i], in wria88r() [all …]
|
H A D | ri188r.c | 250 if(ityp[i] >= 1 && ityp[i] <= 24) in ri188r() 260 if(ityp[i]== 1 || ityp[i]== 7 || ityp[i]== 8 || in ri188r() 261 ityp[i]== 20 || ityp[i]== 23) in ri188r() 289 if(ityp[i]== 2 || ityp[i]== 4 || ityp[i]== 5 || in ri188r() 290 ityp[i]== 9 || ityp[i]== 13 || ityp[i]== 25) in ri188r() 315 if(ityp[i]== 3 || ityp[i]== 14 || ityp[i]== 15 || in ri188r() 316 ityp[i]== 18 || ityp[i]== 24) in ri188r() 343 if(ityp[i]== 6) in ri188r() 369 if(ityp[i]== 10) in ri188r() 404 if(ityp[i]== 11 || ityp[i]== 12 || ityp[i]== 22) in ri188r() [all …]
|
H A D | prfl88.c | 103 extern FR_INT4AY ityp; in prfl88() 139 if(ityp[nep[j]]== 7 || ityp[nep[j]]== 8 || in prfl88() 140 ityp[nep[j]]== 14 || ityp[nep[j]]== 15) in prfl88() 155 if(ityp[nep[j]]== 17) in prfl88() 168 if(ityp[nep[j]]== 16 || ityp[nep[j]]== 22) in prfl88() 185 if(ityp[nep[j]]== 10 || ityp[nep[j]]== 21) in prfl88() 206 if(ityp[nep[j]]== 1) in prfl88() 225 if(ityp[nep[j]]== 11 || ityp[nep[j]]== 12) in prfl88() 240 if(ityp[nep[j]]== 18 || ityp[nep[j]]== 19 || ityp[nep[j]]== 20 || in prfl88() 241 ityp[nep[j]]== 23 || ityp[nep[j]]== 24) in prfl88()
|
/dports/lang/go-devel/go-becaeea1199b875bc24800fa88f2f4fea119bf78/src/cmd/compile/internal/types2/ |
H A D | interface.go | 105 ityp.embeddeds = append(ityp.embeddeds, typ) 106 if ityp.embedPos == nil { 109 *ityp.embedPos = append(*ityp.embedPos, pos) 147 var recvTyp Type = ityp 155 ityp.methods = append(ityp.methods, m) 160 ityp.complete = true 162 if len(ityp.methods) == 0 && len(ityp.embeddeds) == 0 { 164 ityp.tset = &topTypeSet 170 sortMethods(ityp.methods) 179 ityp.check = check [all …]
|
/dports/cad/z88/Z88OS-15/src/z88o/common/ |
H A D | m12.c | 101 if(ityp[i] == 4 || ityp[i] == 9 || in tet188() 102 ityp[i] == 2 || ityp[i] == 13 || in tet188() 103 ityp[i] == 5 || ityp[i] == 25) in tet188() 130 ityp[i] == 19 || ityp[i] == 20 || ityp[i] == 23) in tet188() 360 if(ityp[i] == 1 || ityp[i] == 10 || ityp[i] == 21) in tet188() 994 ityp[i] == 19 || ityp[i] == 20 || ityp[i] == 23) in tet288() 1114 if(ityp[i] == 1 || ityp[i] == 10 || ityp[i] == 21) in tet288() 1281 ityp[i] == 19 || ityp[i] == 20 || ityp[i] == 23) in tet388() 1379 if(ityp[i] == 1 || ityp[i] == 10 || ityp[i] == 21) in tet388() 1544 ityp[i] == 19 || ityp[i] == 20 || ityp[i] == 23) in tet488() [all …]
|
H A D | m10.c | 207 if(ityp[i]== 1 || ityp[i]== 7 || ityp[i]== 8 || in ri1x88() 208 ityp[i]== 20 || ityp[i]== 23) in ri1x88() 232 if(ityp[i]== 2 || ityp[i]== 4 || ityp[i]== 5 || in ri1x88() 233 ityp[i]== 9 || ityp[i]== 13 || ityp[i]== 25) in ri1x88() 254 if(ityp[i]== 3 || ityp[i]== 14 || ityp[i]== 15 || in ri1x88() 255 ityp[i]== 18 || ityp[i]== 24) in ri1x88() 278 if(ityp[i]== 6) in ri1x88() 300 if(ityp[i]== 10) in ri1x88() 330 if(ityp[i]== 11 || ityp[i]== 12 || ityp[i]== 22) in ri1x88() 356 if(ityp[i]== 16) in ri1x88() [all …]
|
/dports/lang/go-devel/go-becaeea1199b875bc24800fa88f2f4fea119bf78/src/go/types/ |
H A D | interface.go | 146 ityp.embeddeds = append(ityp.embeddeds, typ) 147 if ityp.embedPos == nil { 150 *ityp.embedPos = append(*ityp.embedPos, pos) 188 var recvTyp Type = ityp 196 ityp.methods = append(ityp.methods, m) 201 ityp.complete = true 203 if len(ityp.methods) == 0 && len(ityp.embeddeds) == 0 { 205 ityp.tset = &topTypeSet 210 sortMethods(ityp.methods) 220 ityp.check = check [all …]
|
/dports/biology/molden/molden5.8/ |
H A D | rdpdb.f | 99 integer*2 ityp local 135 & ityp(*) 1669 integer*2 ityp local 1864 integer*2 ityp local 2275 integer*2 ityp local 2369 integer*2 ityp local 4547 integer*2 ityp local 4858 integer*2 ityp local 5294 integer*2 ityp local 5374 integer*2 ityp local [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/Modules/ |
H A D | ions_base.f90 | 40 INTEGER, ALLOCATABLE :: ityp(:) variable 133 ALLOCATE( ityp( nat ) ) 141 ityp(1:nat) = ityp_(1:nat) 263 IF ( ALLOCATED( ityp ) ) DEALLOCATE( ityp ) 310 tmas=tmas+pmass(ityp(ia)) 341 IF( tranp(ityp(ia)) ) THEN 370 integer, intent(in) :: nat, ityp(:) local 418 temps(ityp(ia)) = temps(ityp(ia)) + eks1 446 integer, intent(in) :: nat, ityp(:) local 480 integer, intent(in) :: nat, ityp(:) local [all …]
|
H A D | mm_dispersion.f90 | 324 INTEGER , INTENT ( IN ) :: nat , ityp ( nat ) local 371 dist6 = beta*( dist / ( R_sum( ityp(atb), ityp(ata) ) ) - 1.0_dp ) 384 ( C6_ij ( ityp ( atb ) , ityp ( ata ) ) / dist6 ) * & 425 INTEGER , INTENT ( IN ) :: nat , ityp ( nat ) local 475 par = beta / ( R_sum ( ityp ( atb ) , ityp ( ata ) ) ) 485 exparg = - beta * ( dist / ( R_sum ( ityp(atb) , ityp(ata) ) ) - 1 ) 488 fac = C6_ij ( ityp ( atb ) , ityp ( ata ) ) / dist6 543 INTEGER , INTENT ( IN ) :: nat , ityp ( nat ) local 593 par = beta / ( R_sum ( ityp ( atb ) , ityp ( ata ) ) ) 601 exparg = - beta * ( dist / ( R_sum ( ityp ( atb ) , ityp ( ata ) ) ) - 1 ) [all …]
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PP/src/ |
H A D | do_initial_state.f90 | 26 USE ions_base, ONLY : nat, ntyp => nsp, ityp, tau, zv 71 ityp_gs(:) = ityp(:) 81 ityp_gs(:) = ityp(:) 82 ityp_excited(:) = ityp(:) 84 IF (excite(ityp(na))/=0) ityp_excited (na) = excite(ityp(na)) 103 shift_ef(na) = ef * delta_zv(ityp(na)) 131 ityp(:) = ityp_excited(:) 135 nkb = nkb + nh (ityp(na)) 151 ityp(:) = ityp_gs(:) 155 nkb = nkb + nh (ityp(na)) [all …]
|
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/operations/adaptation/ |
H A D | hecmw_adapt_new_cell.f90 | 106 if (ityp.ne.0) then 109 if (ityp.ge.7) then 124 if (ityp.ne.0) then 127 if (ityp.eq.4) then 165 if (ityp.ge.7) then 181 if (ityp.eq.4) then 206 if (ityp.ne.0) then 209 if (ityp.ge.7) then 224 if (ityp.ne.0) then 333 if (ityp.eq.341) then [all …]
|
/dports/science/py-scipy/scipy-1.7.1/scipy/optimize/_trlib/ |
H A D | trlib_krylov.c | 38 trlib_int_t *action, trlib_int_t *iter, trlib_int_t *ityp, in trlib_krylov_min_internal() argument 163 *ityp = TRLIB_CLT_CG; *status = TRLIB_CLS_VEC_INIT; *action = TRLIB_CLA_INIT; in trlib_krylov_min_internal() 361 *ityp = TRLIB_CLT_CG; *status = TRLIB_CLS_CG_NEW_ITER; *action = TRLIB_CLA_TRIVIAL; in trlib_krylov_min_internal() 365 *flt1 = *lam; *ityp = TRLIB_CLT_CG; *action = TRLIB_CLA_CONV_HARD; in trlib_krylov_min_internal() 381 *ityp = TRLIB_CLT_CG; *action = TRLIB_CLA_NEW_KRYLOV; in trlib_krylov_min_internal() 389 *ityp = TRLIB_CLT_CG; *action = TRLIB_CLA_TRIVIAL; *status = TRLIB_CLS_L_UPDATE_P; in trlib_krylov_min_internal() 531 *ityp = TRLIB_CLT_CG; *action = TRLIB_CLA_RETRANSF; returnvalue = *exit_tri; break; in trlib_krylov_min_internal() 548 *ityp = TRLIB_CLT_CG; *action = TRLIB_CLA_RETRANSF; in trlib_krylov_min_internal() 695 trlib_int_t *action, trlib_int_t *iter, trlib_int_t *ityp, in trlib_krylov_min() argument 711 action, iter, ityp, flt1, flt2, flt3); in trlib_krylov_min() [all …]
|
/dports/cad/z88/Z88OS-15/src/z88n/unix/ |
H A D | z88n.c | 132 FR_INT4 ndim,nkpss,ness,nfreis,ifrei,itypss,ityp; variable 196 if( itypss == 10 && ityp == 10 ) in main() 206 if( itypss == 10 && ityp == 1 ) in main() 216 if( itypss == 1 && ityp == 1 ) in main() 226 if( (itypss == 7 || itypss == 8) && (ityp == 7 || ityp == 8) ) in main() 236 if( (itypss == 11 || itypss == 12) && (ityp == 7 || ityp == 8)) in main() 246 if( itypss == 20 && ityp == 19) in main() 256 if( itypss == 21 && ityp == 21 ) in main() 266 if( itypss == 20 && ityp == 20 ) in main()
|
/dports/biology/molden/molden5.8/ambfor/ |
H A D | tors.f | 5 integer*2 ityp local 29 i1 = int(ityp(iat(1))) 30 i2 = int(ityp(iat(2))) 31 i3 = int(ityp(iat(3))) 195 integer*2 ityp local 256 integer*2 ityp local 320 integer*2 ityp local 344 & ityp(*) 587 integer*2 ityp local 664 integer*2 ityp local [all …]
|
/dports/cad/feappv/feappv-4.1i/program/ |
H A D | ploadc.f | 31 integer ityp(6), ndft(6), n,nn local 49 ityp(nn) = 3 57 ityp(nn) = 2 65 ityp(nn) = 5 73 ityp(nn) = 4 81 ityp(nn) = 6 89 ityp(nn) = 1 97 & ndft(n),ndm,nen,nen1,numnp,numel,prt,prth,ityp(n))
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/ |
H A D | argos_cafe_copya.F | 1 subroutine argos_cafe_copya(ia,nami,wgti,numa,nam,wgt,num,ityp) argument 11 integer numa(24),num(mat,nparms),ityp(mat,nparms) 20 ityp(ia,i)=0 21 if(nam(ia,i)(6:6).eq.'Q') ityp(ia,i)=1 22 if(nam(ia,i)(6:6).eq.'H') ityp(ia,i)=2 29 ityp(ia,i)=0 30 if(nam(ia,i)(6:6).eq.'Q') ityp(ia,i)=1 31 if(nam(ia,i)(6:6).eq.'H') ityp(ia,i)=2
|