/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/ducc/ |
H A D | ducc.F | 71 logical*1 ACTINDEX2(NOS+NVS,NOS+NVS,NOS+NVS,NOS+NVS) 72 logical*1 PRINTINDEX2(NOS+NVS,NOS+NVS,NOS+NVS,NOS+NVS) 235 DO ia = NOS+1, NOS+NVS 236 DO ib = NOS+1, NOS+NVS 242 DO IE = NOS+1, NOS+NVS 248 DO IE = NOS+1, NOS+NVS 257 DO IE = NOS+1, NOS+NVS 263 DO IE = NOS+1, NOS+NVS 583 DO IA = NOS+1, NOS+NVS 1137 DO IA = NOS+1, NOS+NVS [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/ducc/ |
H A D | ducc.F | 69 logical*1 ACTINDEX2(NOS+NVS,NOS+NVS,NOS+NVS,NOS+NVS) 70 logical*1 PRINTINDEX2(NOS+NVS,NOS+NVS,NOS+NVS,NOS+NVS) 233 DO ia = NOS+1, NOS+NVS 234 DO ib = NOS+1, NOS+NVS 240 DO IE = NOS+1, NOS+NVS 246 DO IE = NOS+1, NOS+NVS 255 DO IE = NOS+1, NOS+NVS 261 DO IE = NOS+1, NOS+NVS 581 DO IA = NOS+1, NOS+NVS 1135 DO IA = NOS+1, NOS+NVS [all …]
|
/dports/lang/retro12/RETRO12-2021.4/vm/nga-pascal/ |
H A D | nga.pas | 101 TOS := NOS; 102 NOS := a; 158 NOS := -1 160 NOS := 0; 167 NOS := -1 234 b := NOS; 241 NOS := NOS and TOS; 247 NOS := NOS or TOS; 253 NOS := NOS xor TOS; 262 x := NOS; [all …]
|
/dports/lang/retro12/RETRO12-2021.4/vm/nga-c/ |
H A D | nga.c | 73 TOS = NOS; in inst_sw() 74 NOS = a; in inst_sw() 118 NOS = (NOS == TOS) ? -1 : 0; in inst_eq() 123 NOS = (NOS != TOS) ? -1 : 0; in inst_ne() 128 NOS = (NOS < TOS) ? -1 : 0; in inst_lt() 133 NOS = (NOS > TOS) ? -1 : 0; in inst_gt() 192 b = NOS; in inst_di() 204 NOS = TOS & NOS; in inst_an() 209 NOS = TOS | NOS; in inst_or() 214 NOS = TOS ^ NOS; in inst_xo() [all …]
|
H A D | repl.c | 466 TOS = NOS; in inst_sw() 467 NOS = a; in inst_sw() 511 NOS = (NOS == TOS) ? -1 : 0; in inst_eq() 516 NOS = (NOS != TOS) ? -1 : 0; in inst_ne() 521 NOS = (NOS < TOS) ? -1 : 0; in inst_lt() 526 NOS = (NOS > TOS) ? -1 : 0; in inst_gt() 569 b = NOS; in inst_di() 575 NOS = TOS & NOS; in inst_an() 580 NOS = TOS | NOS; in inst_or() 585 NOS = TOS ^ NOS; in inst_xo() [all …]
|
H A D | retro-compiler.c | 397 TOS = NOS; in inst_swap() 398 NOS = a; in inst_swap() 442 NOS = (NOS == TOS) ? -1 : 0; in inst_eq() 447 NOS = (NOS != TOS) ? -1 : 0; in inst_neq() 452 NOS = (NOS < TOS) ? -1 : 0; in inst_lt() 457 NOS = (NOS > TOS) ? -1 : 0; in inst_gt() 500 b = NOS; in inst_divmod() 506 NOS = TOS & NOS; in inst_and() 511 NOS = TOS | NOS; in inst_or() 516 NOS = TOS ^ NOS; in inst_xor() [all …]
|
/dports/lang/retro12/RETRO12-2021.4/vm/nga-c-native-x86/ |
H A D | retro.c | 336 TOS = NOS; in inst_swap() 337 NOS = a; in inst_swap() 381 NOS = (NOS == TOS) ? -1 : 0; in inst_eq() 386 NOS = (NOS != TOS) ? -1 : 0; in inst_neq() 391 NOS = (NOS < TOS) ? -1 : 0; in inst_lt() 396 NOS = (NOS > TOS) ? -1 : 0; in inst_gt() 437 b = NOS; in inst_divmod() 443 NOS = TOS & NOS; in inst_and() 448 NOS = TOS | NOS; in inst_or() 453 NOS = TOS ^ NOS; in inst_xor() [all …]
|
/dports/lang/retro12/RETRO12-2021.4/vm/nga-c-no-libc/ |
H A D | retro.c | 459 TOS = NOS; in inst_swap() 460 NOS = a; in inst_swap() 504 NOS = (NOS == TOS) ? -1 : 0; in inst_eq() 509 NOS = (NOS != TOS) ? -1 : 0; in inst_neq() 514 NOS = (NOS < TOS) ? -1 : 0; in inst_lt() 519 NOS = (NOS > TOS) ? -1 : 0; in inst_gt() 560 b = NOS; in inst_divmod() 566 NOS = TOS & NOS; in inst_and() 571 NOS = TOS | NOS; in inst_or() 576 NOS = TOS ^ NOS; in inst_xor() [all …]
|
/dports/lang/retro12/RETRO12-2021.4/tools/ |
H A D | retro-extend.c | 395 TOS = NOS; in inst_swap() 396 NOS = a; in inst_swap() 438 NOS = (NOS == TOS) ? -1 : 0; in inst_eq() 443 NOS = (NOS != TOS) ? -1 : 0; in inst_neq() 448 NOS = (NOS < TOS) ? -1 : 0; in inst_lt() 453 NOS = (NOS > TOS) ? -1 : 0; in inst_gt() 496 b = NOS; in inst_divmod() 502 NOS = TOS & NOS; in inst_and() 507 NOS = TOS | NOS; in inst_or() 512 NOS = TOS ^ NOS; in inst_xor() [all …]
|
/dports/math/math77/MATH77/ |
H A D | dinits.f | 1 subroutine DINITS (DOS, NOS, ETA, NTERMS) argument 24 integer I, NOS, NTERMS local 25 double precision ERR, ETA, DOS(NOS) 27 IF (NOS .LT. 1) CALL IERM1('DINITS',1,0, 28 *'Number of coefficients < 1','NOS',NOS,'.') 31 DO 10 I = NOS, 2, -1 36 20 IF (I .EQ. NOS) CALL DERM1('DINITS',2,0,
|
H A D | sinits.f | 1 subroutine SINITS (DOS, NOS, ETA, NTERMS) argument 24 integer I, NOS, NTERMS local 25 real ERR, ETA, DOS(NOS) 27 IF (NOS .LT. 1) CALL IERM1('SINITS',1,0, 28 *'Number of coefficients < 1','NOS',NOS,'.') 31 DO 10 I = NOS, 2, -1 36 20 IF (I .EQ. NOS) CALL SERM1('SINITS',2,0,
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/rsp/ |
H A D | complexpp.F | 378 WRK(KREDZ-1+(NOS+2*NOA)*KZLRED+(NOS+NOA) 390 WRK(KREDZ-1+NOS*(KZLRED)+(NOS+2*NOA)+ 395 WRK(KREDZ-1+(NOS+NOA)*KZLRED+(NOS+2*NOA)+ 428 CALL DCOPY(NOS,WRK(KREDZGD+NOS+2*NOA),1,RDX(1,4,K),1) 435 CALL OUTPUT(RDX(1,1,K),1,NOS,1,1,NOS,1,1,LUABSPRI) 438 CALL OUTPUT(RDX(1,4,K),1,NOS,1,1,NOS,1,1,LUABSPRI) 532 WRK(KREDZ-1+NOS*(KZLRED)+(NOS+2*NOA)+ 565 CALL DCOPY(NOS,WRK(KREDZGD+NOS+2*NOA),1,RDX(1,4,K),1) 1172 REDE(NOS+I,NOS+J,1) = 2.0d0*DDOT(KZVAR, 1174 IF (I.NE.J) REDE(NOS+J,NOS+I,1)=REDE(NOS+I,NOS+J,1) [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/fnlib/ |
H A D | initds.f | 1 FUNCTION INITDS(DOS,NOS,ETA) 26 DOUBLE PRECISION DOS(NOS) 28 IF (NOS.LT.1) CALL XERROR ( 'INITDS NUMBER OF COEFFICIENTS LT 1', 32 DO 10 II=1,NOS 33 I = NOS + 1 - II 38 20 IF (I.EQ.NOS) CALL XERROR ( 'INITDS ETA MAY BE TOO SMALL', 28,
|
H A D | inits.f | 1 FUNCTION INITS(OS,NOS,ETA) 24 DIMENSION OS(NOS) 26 IF (NOS.LT.1) CALL XERROR ( 'INITS NUMBER OF COEFFICIENTS LT 1', 30 DO 10 II=1,NOS 31 I = NOS + 1 - II 36 20 IF (I.EQ.NOS) CALL XERROR ( 'INITS ETA MAY BE TOO SMALL', 28,
|
/dports/math/cmlib/cmlib-3.0_8/relaxed.inits/ |
H A D | inits.f | 1 FUNCTION INITS(OS,NOS,ETA) 24 DIMENSION OS(NOS) 26 IF (NOS.LT.1) CALL XERROR ( 'INITS NUMBER OF COEFFICIENTS LT 1', 30 DO 10 II=1,NOS 31 I = NOS + 1 - II 40 IF ((I.EQ.NOS) .AND. (ERR .GT. 10.0E0*ETA))
|
H A D | initds.f | 1 FUNCTION INITDS(DOS,NOS,ETA) 26 DOUBLE PRECISION DOS(NOS) 28 IF (NOS.LT.1) CALL XERROR ( 'INITDS NUMBER OF COEFFICIENTS LT 1', 32 DO 10 II=1,NOS 33 I = NOS + 1 - II 42 IF ((I.EQ.NOS) .AND. (ERR .GT. 1.0E5*ETA))
|
/dports/math/R-cran-VGAM/VGAM/R/ |
H A D | family.zeroinf.R | 406 extra$NOS <- NOS <- ncoly <- ncol(y) # Number of species functionVar 464 label.cols.y(ans, colnames.y = extra$colnames.y, NOS = NOS) 690 extra$NOS <- NOS <- ncoly <- ncol(y) # Number of species functionVar 774 NOS <- extra$NOS functionVar 893 wz[, 1 * NOS + (1:NOS)] <- tmp200 4843 NOS <- extra$NOS functionVar 6430 NOS <- if (length(extra$NOS)) extra$NOS else 1 6747 NOS <- if (length(extra$NOS)) extra$NOS else 1 7013 NOS <- extra$NOS functionVar 7326 NOS <- extra$NOS functionVar [all …]
|
H A D | family.ts.R | 739 NOS <- ncoly <- ncol(y) functionVar 741 M <- M1*NOS 777 for (jay in 1: NOS) { 810 NOS <- ncol(eta)/M1 functionVar 867 NOS <- ncol(eta)/M1 functionVar 914 NOS <- ncol(eta)/M1 functionVar 951 NOS <- ncol(eta)/M1 functionVar 969 for (jay in 1:NOS) { 989 NOS <- ncol(eta)/M1 1113 if (NOS > 1) { [all …]
|
H A D | family.nbd.R | 411 M <- M1 * NOS 524 NOS = NOS)) 543 NOS = NOS, percentiles = percvec, 573 for (ii in 1:NOS) { 1214 label.cols.y(ans, colnames.y = extra$colnames.y, NOS = NOS) 1229 for (ii in 1:NOS) { 1415 wz[, M1*(1:NOS) ] <- wz[, M1 * (1:NOS)] * dkayy.deta^2 1705 label.cols.y(ans, colnames.y = extra$colnames.y, NOS = NOS) 1905 wz[, M1*(1:NOS) - 1] <- wz[, M1*(1:NOS) - 1] * dkayy.deta^2 2153 NOS <- ncol(y) functionVar [all …]
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/ThirdParty/Netlib/src/netlib/slatec/ |
H A D | initds.f | 2 FUNCTION INITDS (OS, NOS, ETA) 39 IF (NOS .LT. 1) CALL XERMSG ('SLATEC', 'INITDS', 43 DO 10 II = 1,NOS 44 I = NOS + 1 - II 49 20 IF (I .EQ. NOS) CALL XERMSG ('SLATEC', 'INITDS',
|
/dports/math/octave/octave-6.4.0/liboctave/external/slatec-fn/ |
H A D | initds.f | 2 FUNCTION INITDS (OS, NOS, ETA) 39 IF (NOS .LT. 1) CALL XERMSG ('SLATEC', 'INITDS', 43 DO 10 II = 1,NOS 44 I = NOS + 1 - II 49 20 IF (I .EQ. NOS) CALL XERMSG ('SLATEC', 'INITDS',
|
H A D | inits.f | 2 FUNCTION INITS (OS, NOS, ETA) 38 IF (NOS .LT. 1) CALL XERMSG ('SLATEC', 'INITS', 42 DO 10 II = 1,NOS 43 I = NOS + 1 - II 48 20 IF (I .EQ. NOS) CALL XERMSG ('SLATEC', 'INITS',
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | initds.f | 2 FUNCTION INITDS (OS, NOS, ETA) 39 IF (NOS .LT. 1) CALL XERMSG ('SLATEC', 'INITDS', 43 DO 10 II = 1,NOS 44 I = NOS + 1 - II 49 20 IF (I .EQ. NOS) CALL XERMSG ('SLATEC', 'INITDS',
|
/dports/math/slatec/src/ |
H A D | inits.f | 2 FUNCTION INITS (OS, NOS, ETA) 38 IF (NOS .LT. 1) CALL XERMSG ('SLATEC', 'INITS', 42 DO 10 II = 1,NOS 43 I = NOS + 1 - II 48 20 IF (I .EQ. NOS) CALL XERMSG ('SLATEC', 'INITS',
|
H A D | initds.f | 2 FUNCTION INITDS (OS, NOS, ETA) 39 IF (NOS .LT. 1) CALL XERMSG ('SLATEC', 'INITDS', 43 DO 10 II = 1,NOS 44 I = NOS + 1 - II 49 20 IF (I .EQ. NOS) CALL XERMSG ('SLATEC', 'INITDS',
|