Home
last modified time | relevance | path

Searched refs:NOS (Results 1 – 25 of 536) sorted by relevance

12345678910>>...22

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/ducc/
H A Dducc.F71 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 Dducc.F69 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 Dnga.pas101 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 Dnga.c73 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 Drepl.c466 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 Dretro-compiler.c397 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 Dretro.c336 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 Dretro.c459 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 Dretro-extend.c395 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 Ddinits.f1 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 Dsinits.f1 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 Dcomplexpp.F378 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 Dinitds.f1 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 Dinits.f1 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 Dinits.f1 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 Dinitds.f1 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 Dfamily.zeroinf.R406 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 Dfamily.ts.R739 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 Dfamily.nbd.R411 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 Dinitds.f2 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 Dinitds.f2 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 Dinits.f2 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 Dinitds.f2 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 Dinits.f2 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 Dinitds.f2 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',

12345678910>>...22