/dports/biology/mopac/mopac7-1.15/fortran/ |
H A D | thermo.f | 53 ISTEP=10 74 ISTEP=10 81 IF(ISTEP.LT.1)ISTEP=1 84 IF(ISTEP.EQ.0)ISTEP=1 85 IF(ISTEP.GE.2.AND. ISTEP.LT.5)ISTEP=2 86 IF(ISTEP.GE.5.AND. ISTEP.LT.10)ISTEP=5 87 IF(ISTEP.GE.10.AND. ISTEP.LT.20)ISTEP=10 88 IF(ISTEP.GT.20.AND. ISTEP.LT.50)ISTEP=20 89 IF(ISTEP.GT.50.AND. ISTEP.LT.100)ISTEP=50 90 IF(ISTEP.GT.100)ISTEP=100 [all …]
|
/dports/math/mumps/mumps-5.1.2/src/ |
H A D | zsol_c.F | 1124 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 1623 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 1985 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2155 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2197 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2322 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2365 ISTEP = STEP(DAD(ISTEP)) 2429 ISTEP = STEP(DAD(ISTEP)) 2451 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2484 ISTEP = STEP(DAD(ISTEP)) [all …]
|
H A D | csol_c.F | 1124 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 1623 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 1985 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2155 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2197 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2322 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2365 ISTEP = STEP(DAD(ISTEP)) 2429 ISTEP = STEP(DAD(ISTEP)) 2451 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2484 ISTEP = STEP(DAD(ISTEP)) [all …]
|
H A D | ssol_c.F | 1124 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 1623 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 1985 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2155 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2197 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2322 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2365 ISTEP = STEP(DAD(ISTEP)) 2429 ISTEP = STEP(DAD(ISTEP)) 2451 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2484 ISTEP = STEP(DAD(ISTEP)) [all …]
|
H A D | dsol_c.F | 1124 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 1623 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 1985 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2155 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2197 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2322 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2365 ISTEP = STEP(DAD(ISTEP)) 2429 ISTEP = STEP(DAD(ISTEP)) 2451 IF ( ISTEP.EQ.SK38 .OR. ISTEP.EQ.SK20 ) THEN 2484 ISTEP = STEP(DAD(ISTEP)) [all …]
|
H A D | mumps_sol_es.F | 67 ISTEP = STEP(TMP) 85 ISTEP = STEP(TMP) 94 ISTEP = STEP(TMP) 111 ISTEP = STEP(TMP) 112 IF(DAD(ISTEP).NE.0) THEN 153 INTEGER :: IN, I, ISTEP, TMP local 160 ISTEP = STEP(TMP) 163 Pruned_SONS(ISTEP) = 0 195 ISTEP = STEP(TMP) 356 INTEGER I, ISTEP local [all …]
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | mumps_sol_es.F | 99 ISTEP = STEP(TMP) 112 ISTEP = STEP(TMP) 130 ISTEP = STEP(TMP) 131 IF(DAD(ISTEP).NE.0) THEN 172 INTEGER :: IN, I, ISTEP, TMP 179 ISTEP = STEP(TMP) 180 TO_PROCESS(ISTEP) = .TRUE. 182 Pruned_SONS(ISTEP) = 0 214 ISTEP = STEP(TMP) 232 INTEGER I, ISTEP [all …]
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | mumps_sol_es.F | 99 ISTEP = STEP(TMP) 112 ISTEP = STEP(TMP) 130 ISTEP = STEP(TMP) 131 IF(DAD(ISTEP).NE.0) THEN 172 INTEGER :: IN, I, ISTEP, TMP local 179 ISTEP = STEP(TMP) 180 TO_PROCESS(ISTEP) = .TRUE. 182 Pruned_SONS(ISTEP) = 0 214 ISTEP = STEP(TMP) 232 INTEGER I, ISTEP local [all …]
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | mumps_sol_es.F | 99 ISTEP = STEP(TMP) 112 ISTEP = STEP(TMP) 130 ISTEP = STEP(TMP) 131 IF(DAD(ISTEP).NE.0) THEN 172 INTEGER :: IN, I, ISTEP, TMP local 179 ISTEP = STEP(TMP) 180 TO_PROCESS(ISTEP) = .TRUE. 182 Pruned_SONS(ISTEP) = 0 214 ISTEP = STEP(TMP) 232 INTEGER I, ISTEP local [all …]
|
/dports/audio/guitarix-lv2/guitarix-0.43.1/tools/ampsim/tensbs/ |
H A D | intrv.f | 58 INTEGER IHI, ILEFT, ILO, ISTEP, LXT, MFLAG, MIDDLE 73 ISTEP = 1 75 ILO = IHI - ISTEP 78 ISTEP = ISTEP*2 84 40 ISTEP = 1 86 IHI = ILO + ISTEP 89 ISTEP = ISTEP*2
|
/dports/math/cmlib/cmlib-3.0_8/src/bspline/ |
H A D | intrv.f | 58 INTEGER IHI, ILEFT, ILO, ISTEP, LXT, MFLAG, MIDDLE 73 ISTEP = 1 75 ILO = IHI - ISTEP 78 ISTEP = ISTEP*2 84 40 ISTEP = 1 86 IHI = ILO + ISTEP 89 ISTEP = ISTEP*2
|
/dports/math/cmlib/cmlib-3.0_8/src/dbsplin/ |
H A D | dintrv.f | 60 INTEGER IHI, ILEFT, ILO, ISTEP, LXT, MFLAG, MIDDLE 75 ISTEP = 1 77 ILO = IHI - ISTEP 80 ISTEP = ISTEP*2 86 40 ISTEP = 1 88 IHI = ILO + ISTEP 91 ISTEP = ISTEP*2
|
/dports/math/slatec/src/ |
H A D | dintrv.f | 63 INTEGER IHI, ILEFT, ILO, ISTEP, LXT, MFLAG, MIDDLE 78 ISTEP = 1 80 ILO = IHI - ISTEP 83 ISTEP = ISTEP*2 89 40 ISTEP = 1 91 IHI = ILO + ISTEP 94 ISTEP = ISTEP*2
|
H A D | intrv.f | 62 INTEGER IHI, ILEFT, ILO, ISTEP, LXT, MFLAG, MIDDLE 77 ISTEP = 1 79 ILO = IHI - ISTEP 82 ISTEP = ISTEP*2 88 40 ISTEP = 1 90 IHI = ILO + ISTEP 93 ISTEP = ISTEP*2
|
/dports/math/cmlib/cmlib-3.0_8/src/fc/ |
H A D | interv.f | 20 30 ISTEP = 1 22 ILO = IHI - ISTEP 25 ISTEP = ISTEP*2 31 40 ISTEP = 1 33 IHI = ILO + ISTEP 36 ISTEP = ISTEP*2
|
/dports/games/flying/flying-6.20/ |
H A D | xpball.C | 436 #define ISTEP 2 macro 439 SetMinSize(2*zfact+2+2*ISTEP,2*zfact+2+2*ISTEP); in SetPointer() 442 int ooy=ISTEP; in SetPointer() 466 oox = x-x_old+ISTEP; in SetPointer() 480 if (ozoom&&(oox<0)||(oox>2*ISTEP)||(ooy<0)||(ooy>2*ISTEP)) { in SetPointer() 482 XCopyPlane(dpy,pmap,win,gc_cursor,ISTEP,ISTEP,2*zfact+2,2*zfact+2, in SetPointer() 483 x_old-zfact-oox+ISTEP, y_old-zfact-ooy+ISTEP, 1 ); in SetPointer() 488 oox = ISTEP; in SetPointer() 489 ooy = ISTEP; in SetPointer() 520 XCopyPlane(dpy,pmap,win,gc_cursor,ISTEP,ISTEP,2*zfact+2,2*zfact+2, in SetPointer() [all …]
|
/dports/graphics/pgplot/pgplot/drivers/old/ |
H A D | ikdriv.f | 539 ISTEP=2 557 ISTEP=64 559 ISTEP=8 561 ISTEP=4 564 ISTEP=1 567 IX=IX-ISTEP 568 IY=IY-ISTEP 571 IY=IY-ISTEP 574 IX=IX+ISTEP 575 IY=IY-ISTEP [all …]
|
H A D | ardriv.f | 675 ISTEP=2 682 ISTEP=64 684 ISTEP=8 686 ISTEP=4 689 ISTEP=1 692 IX=IX-ISTEP 693 IY=IY-ISTEP 696 IY=IY-ISTEP 699 IX=IX+ISTEP 700 IY=IY-ISTEP [all …]
|
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/fistr1/src/analysis/heat/ |
H A D | heat_solve_TRAN.f90 | 9 …subroutine heat_solve_TRAN ( hecMESH,hecMAT,fstrRESULT,fstrPARAM,fstrHEAT,ISTEP,total_step,current… argument 19 integer(kind=kint) :: ISTEP, iterALL, i, inod, mnod local 35 if(ISTEP == 1)then 39 do i = 1, ISTEP - 1 45 delta_time_base = fstrHEAT%STEP_DLTIME(ISTEP) 46 end_time = fstrHEAT%STEP_EETIME(ISTEP) 47 DELMIN = fstrHEAT%STEP_DELMIN(ISTEP) 48 DELMAX = fstrHEAT%STEP_DELMAX(ISTEP) 105 …call heat_solve_main(hecMESH, hecMAT, hecMESHmpc, hecMATmpc, fstrPARAM, fstrHEAT, ISTEP, iterALL, … 144 call heat_output_restart(hecMESH, fstrHEAT, ISTEP, total_step, next_time, is_end)
|
H A D | fstr_solve_heat.f90 | 15 integer(kind=kint) :: ISTEP local 41 do ISTEP = restart_step_num, fstrHEAT%STEPtot 43 if(fstrHEAT%STEP_DLTIME(ISTEP) <= 0.0d0) fstrHEAT%is_steady = 1 46 write(IMSG,"(a,i8,a,i8)")"* Current step / Total step: ", ISTEP, "/", fstrHEAT%STEPtot 47 write(IMSG,"(a,i8)")"* max iteration at each step: ", fstrPARAM%ITMAX(ISTEP) 55 …call heat_solve_TRAN(hecMESH, hecMAT, fstrRESULT, fstrPARAM, fstrHEAT, ISTEP, total_step, start_ti…
|
H A D | heat_solve_main.f90 | 9 …subroutine heat_solve_main(hecMESH, hecMAT, hecMESHmpc, hecMATmpc, fstrPARAM, fstrHEAT, ISTEP, ite… argument 16 integer(kind=kint) :: i, iterALL, ISTEP, bup_n_dof local 47 call heat_check_convergence(hecMESH, fstrHEAT, fstrPARAM, ISTEP, iterALL, is_congerged) 53 subroutine heat_check_convergence(hecMESH, fstrHEAT, fstrPARAM, ISTEP, iterALL, is_congerged) argument 56 integer(kind=kint) :: i, iterALL, iter_max, ISTEP local 65 iter_max = fstrPARAM%itmax(ISTEP) 66 iter_eps = fstrPARAM%eps(ISTEP)
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/ |
H A D | sb04nd.f | 173 INTEGER FWD, I, IBEG, IEND, INCR, IPINCR, ISTEP, JWORK, local 288 ISTEP = 1 291 ISTEP = 1 293 ISTEP = 2 297 IF ( ISTEP.EQ.1 ) THEN 318 I = I + FWD*ISTEP 351 ISTEP = 1 354 ISTEP = 1 356 ISTEP = 2 360 IF ( ISTEP.EQ.1 ) THEN [all …]
|
H A D | sb04rd.f | 173 INTEGER FWD, I, IBEG, IEND, INCR, IPINCR, ISTEP, JWORK, 289 ISTEP = 1 292 ISTEP = 1 294 ISTEP = 2 298 IF ( ISTEP.EQ.1 ) THEN 319 I = I + FWD*ISTEP 352 ISTEP = 1 355 ISTEP = 1 357 ISTEP = 2 361 IF ( ISTEP.EQ.1 ) THEN [all …]
|
/dports/misc/libemos/libemos-4.5.9-Source/gribex/ |
H A D | gsbite.F | 150 ISTEP = KSIZE + KSKBTW 165 ISHF = ISTEP 177 ISTS = ISTEP/ILCF 280 ISKWS = ISKWS + ISTEP 288 KSKST = KSKST + K*ISTEP
|
/dports/math/R/R-4.1.2/src/library/stats/src/ |
H A D | kmns.f | 351 INTEGER ICOUN,ISTEP,I,L1,L2,J 363 ISTEP = 0 368 if(iTrace .gt. 0 .and. ISTEP .ge. 1 .and. I .eq. 1) ! only from second "round" on 369 + call kmnsQpr(ISTEP, ICOUN, NCP, K, iTrace) 371 ISTEP = ISTEP + 1 372 IF(ISTEP .ge. iMaxQtr) THEN 388 IF (ISTEP .le. NCP(L1)) then 400 IF (ISTEP .lt. NCP(L1) .or. ISTEP .lt. NCP(L2)) then 417 NCP(L1) = ISTEP + M 418 NCP(L2) = ISTEP + M
|