/dports/math/cmlib/cmlib-3.0_8/src/adapt/ |
H A D | nxprt.f | 5 INTEGER S, M(S), PRTCNT, I, MSUM 13 MSUM = M(1) 16 MSUM = MSUM + M(I) 18 M(1) = MSUM - (I-1)*(M(I)+1) 25 60 M(1) = MSUM + 1
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/integer/src/c/ |
H A D | genmsum.c | 21 #define MSUM(Type) {\ macro 52 MSUM(char); in C2F() 55 MSUM(short); in C2F() 58 MSUM(int) ; in C2F() 61 MSUM(unsigned char); in C2F() 64 MSUM(unsigned short); in C2F() 67 MSUM(unsigned int); in C2F()
|
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/hopspack/community_problems/modflw96.3_3/src/ |
H A D | rch5.f | 201 1 DELT,VBVL,VBNM,MSUM,KSTP,KPER,IRCHCB,ICBCFL,BUFF,IOUT, 211 CHARACTER*16 VBNM(MSUM),TEXT 214 2 VBVL(4,MSUM) 324 VBVL(4,MSUM)=ROUT 325 VBVL(3,MSUM)=RIN 328 VBVL(2,MSUM)=VBVL(2,MSUM)+ROUT*DELT 329 VBVL(1,MSUM)=VBVL(1,MSUM)+RIN*DELT 332 VBNM(MSUM)=TEXT 335 MSUM=MSUM+1
|
H A D | wel5.f | 204 SUBROUTINE WEL5BD(NWELLS,MXWELL,VBNM,VBVL,MSUM,WELL,IBOUND,DELT, argument 214 CHARACTER*16 VBNM(MSUM),TEXT 215 DIMENSION VBVL(4,MSUM),WELL(NWELVL,MXWELL),IBOUND(NCOL,NROW,NLAY), 298 VBVL(3,MSUM)=RIN 299 VBVL(4,MSUM)=ROUT 300 VBVL(1,MSUM)=VBVL(1,MSUM)+RIN*DELT 301 VBVL(2,MSUM)=VBVL(2,MSUM)+ROUT*DELT 302 VBNM(MSUM)=TEXT 305 MSUM=MSUM+1
|
H A D | ghb5.f | 215 SUBROUTINE GHB5BD(NBOUND,MXBND,VBNM,VBVL,MSUM,BNDS,DELT,HNEW, argument 225 CHARACTER*16 VBNM(MSUM),TEXT 227 DIMENSION VBVL(4,MSUM),BNDS(NGHBVL,MXBND),HNEW(NCOL,NROW,NLAY), 317 VBVL(3,MSUM)=RIN 318 VBVL(1,MSUM)=VBVL(1,MSUM)+RIN*DELT 319 VBVL(4,MSUM)=ROUT 320 VBVL(2,MSUM)=VBVL(2,MSUM)+ROUT*DELT 321 VBNM(MSUM)=TEXT 324 MSUM=MSUM+1
|
H A D | tlk1.f | 679 VBVL(1,MSUM)=VBVL(1,MSUM)+RATIN*DELT 680 VBVL(2,MSUM)=VBVL(2,MSUM)+RATOUT*DELT 681 VBVL(3,MSUM)=RATIN 682 VBVL(4,MSUM)=RATOUT 683 VBVL(1,MSUM+1)=VBVL(1,MSUM+1)+CRATIN*DELT 684 VBVL(2,MSUM+1)=VBVL(2,MSUM+1)+CRATOUT*DELT 685 VBVL(3,MSUM+1)=CRATIN 687 VBNM(1,MSUM)=TEXT1(1) 688 VBNM(2,MSUM)=TEXT1(2) 689 VBNM(3,MSUM)=TEXT1(3) [all …]
|
H A D | riv5.f | 228 1 NCOL,NROW,NLAY,DELT,VBVL,VBNM,MSUM,KSTP,KPER,IRIVCB, 237 CHARACTER*16 VBNM(MSUM),TEXT 240 1 HNEW(NCOL,NROW,NLAY),VBVL(4,MSUM),BUFF(NCOL,NROW,NLAY) 341 VBVL(3,MSUM)=RIN 342 VBVL(4,MSUM)=ROUT 343 VBVL(1,MSUM)=VBVL(1,MSUM)+RIN*DELT 344 VBVL(2,MSUM)=VBVL(2,MSUM)+ROUT*DELT 345 VBNM(MSUM)=TEXT 348 MSUM=MSUM+1
|
H A D | evt5.f | 217 1 NCOL,NROW,NLAY,DELT,VBVL,VBNM,MSUM,KSTP,KPER, 226 CHARACTER*16 VBNM(MSUM),TEXT 230 2 VBVL(4,MSUM),HNEW(NCOL,NROW,NLAY),BUFF(NCOL,NROW,NLAY) 299 VBVL(3,MSUM)=ZERO 300 VBVL(4,MSUM)=ROUT 303 VBVL(2,MSUM)=VBVL(2,MSUM)+ROUT*DELT 306 VBNM(MSUM)=TEXT 309 MSUM=MSUM+1
|
H A D | drn5.f | 220 SUBROUTINE DRN5BD(NDRAIN,MXDRN,VBNM,VBVL,MSUM,DRAI,DELT,HNEW, argument 230 CHARACTER*16 VBNM(MSUM),TEXT 233 DIMENSION VBVL(4,MSUM),DRAI(NDRNVL,MXDRN),HNEW(NCOL,NROW,NLAY), 316 VBVL(3,MSUM)=ZERO 317 VBVL(4,MSUM)=ROUT 318 VBVL(2,MSUM)=VBVL(2,MSUM)+ROUT*DELT 319 VBNM(MSUM)=TEXT 322 MSUM=MSUM+1
|
H A D | gfd1.f | 439 305 VBVL(1,MSUM)=VBVL(1,MSUM)+STOIN 440 VBVL(2,MSUM)=VBVL(2,MSUM)+STOUT 443 VBNM(1,MSUM)=TEXT(1) 444 VBNM(2,MSUM)=TEXT(2) 445 VBNM(3,MSUM)=TEXT(3) 447 MSUM=MSUM+1 928 VBVL(1,MSUM)=VBVL(1,MSUM)+CHIN*DELT 929 VBVL(2,MSUM)=VBVL(2,MSUM)+CHOUT*DELT 930 VBVL(3,MSUM)=CHIN 931 VBVL(4,MSUM)=CHOUT [all …]
|
H A D | ibs1.f | 232 1 NCOL,NROW,NLAY,DELT,VBVL,VBNM,MSUM,KSTP,KPER,IIBSCB, 314 200 VBVL(3,MSUM)=STOIN*TLED 315 VBVL(4,MSUM)=STOUT*TLED 316 VBVL(1,MSUM)=VBVL(1,MSUM)+STOIN 317 VBVL(2,MSUM)=VBVL(2,MSUM)+STOUT 318 VBNM(1,MSUM)=TEXT(1) 319 VBNM(2,MSUM)=TEXT(2) 320 VBNM(3,MSUM)=TEXT(3) 321 VBNM(4,MSUM)=TEXT(4) 324 MSUM=MSUM+1
|
H A D | res1.f | 364 1 BUFF,VBVL,VBNM,MSUM,KSTP,KPER,NRES,NRESOP,NCOL,NROW,NLAY, 468 VBVL(3,MSUM)=RATIN 469 VBVL(4,MSUM)=RATOUT 470 VBVL(1,MSUM)=VBVL(1,MSUM)+RATIN*DELT 471 VBVL(2,MSUM)=VBVL(2,MSUM)+RATOUT*DELT 472 VBNM(1,MSUM)=TEXT(1) 473 VBNM(2,MSUM)=TEXT(2) 474 VBNM(3,MSUM)=TEXT(3) 475 VBNM(4,MSUM)=TEXT(4) 478 MSUM=MSUM+1
|
H A D | str1.f | 350 1 NLAY,DELT,VBVL,VBNM,MSUM,KSTP,KPER,ISTCB1,ISTCB2,ICBCFL,BUFF, 510 600 VBVL(3,MSUM)=RATIN 511 VBVL(4,MSUM)=RATOUT 514 VBVL(1,MSUM)=VBVL(1,MSUM)+RATIN*DELT 515 VBVL(2,MSUM)=VBVL(2,MSUM)+RATOUT*DELT 518 VBNM(1,MSUM)=TEXT(1) 519 VBNM(2,MSUM)=TEXT(2) 520 VBNM(3,MSUM)=TEXT(3) 521 VBNM(4,MSUM)=TEXT(4) 524 MSUM=MSUM+1
|
H A D | fhb1.f | 572 SUBROUTINE FHB1BD(IFLLOC,BDFV,NFLW,VBNM,VBVL,MSUM,IBOUND,DELT, argument 582 CHARACTER*16 VBNM(MSUM),TEXT 584 DIMENSION VBVL(4,MSUM),IBOUND(NCOL,NROW,NLAY), 662 VBVL(3,MSUM)=RIN 663 VBVL(4,MSUM)=ROUT 664 VBVL(1,MSUM)=VBVL(1,MSUM)+RIN*DELT 665 VBVL(2,MSUM)=VBVL(2,MSUM)+ROUT*DELT 666 VBNM(MSUM)=TEXT 669 MSUM=MSUM+1
|
H A D | modflw96.f | 328 MSUM=1 331 2 X(LCIBOU),X(LCTOP),X(LCCV),VBNM,VBVL,MSUM,NCOL,NROW, 336 CALL SBCF5S(VBNM,VBVL,MSUM,X(LCHNEW),X(LCIBOU),X(LCHOLD), 339 CALL SBCF5F(VBNM,VBVL,MSUM,X(LCHNEW),X(LCIBOU),X(LCCR), 356 IF(IUNIT(14).GT.0) CALL GFD1BD(VBNM,VBVL,MSUM,X(LCHNEW), 360 IF(IUNIT(2).GT.0) CALL WEL5BD(NWELLS,MXWELL,VBNM,VBVL,MSUM, 363 IF(IUNIT(3).GT.0) CALL DRN5BD(NDRAIN,MXDRN,VBNM,VBVL,MSUM, 368 1 X(LCHNEW),NCOL,NROW,NLAY,DELT,VBVL,VBNM,MSUM,KKSTP,KKPER, 374 IF(IUNIT(7).GT.0) CALL GHB5BD(NBOUND,MXBND,VBNM,VBVL,MSUM, 383 2 X(LCBUFF),VBVL,VBNM,MSUM,KSTP,KPER,NRES,NRESOP, [all …]
|
H A D | bcf5.f | 750 VBVL(1,MSUM)=VBVL(1,MSUM)+SIN*DELT 751 VBVL(2,MSUM)=VBVL(2,MSUM)+SOUT*DELT 752 VBVL(3,MSUM)=SIN 753 VBVL(4,MSUM)=SOUT 754 VBNM(MSUM)=TEXT 755 MSUM=MSUM+1 952 VBVL(1,MSUM)=VBVL(1,MSUM)+CIN*DELT 953 VBVL(2,MSUM)=VBVL(2,MSUM)+COUT*DELT 954 VBVL(3,MSUM)=CIN 956 VBNM(MSUM)=TEXT [all …]
|
H A D | bas5.f | 358 SUBROUTINE BAS5OT(HNEW,STRT,ISTRT,BUFF,IOFLG,MSUM,IBOUND,VBNM, argument 369 CHARACTER*16 VBNM(MSUM) 372 1 VBVL(4,MSUM),IOFLG(NLAY,4),IBOUND(NCOL,NROW,NLAY), 397 CALL SBAS5V(MSUM,VBNM,VBVL,KSTP,KPER,IOUT) 1061 SUBROUTINE SBAS5V(MSUM,VBNM,VBVL,KSTP,KPER,IOUT) argument 1071 CHARACTER*16 VBNM(MSUM) 1072 DIMENSION VBVL(4,MSUM) 1077 MSUM1=MSUM-1
|
/dports/math/cmlib/cmlib-3.0_8/src/snls1e/ |
H A D | fdjac1.f | 93 INTEGER I,J,K,MSUM 101 MSUM = ML + MU + 1 102 IF (MSUM .LT. N) GO TO 40 124 DO 90 K = 1, MSUM 125 DO 60 J = K, N, MSUM 133 DO 80 J = K, N, MSUM
|
/dports/math/slatec/src/ |
H A D | dfdjc1.f | 94 INTEGER I, IFLAG, J, K, LDFJAC, ML, MSUM, MU, N 106 MSUM = ML + MU + 1 107 IF (MSUM .LT. N) GO TO 40 129 DO 90 K = 1, MSUM 130 DO 60 J = K, N, MSUM 138 DO 80 J = K, N, MSUM
|
H A D | fdjac1.f | 97 INTEGER I,J,K,MSUM 106 MSUM = ML + MU + 1 107 IF (MSUM .LT. N) GO TO 40 129 DO 90 K = 1, MSUM 130 DO 60 J = K, N, MSUM 138 DO 80 J = K, N, MSUM
|
/dports/science/latte/LATTE-1.2.2/src/ |
H A D | matrixio.F90 | 91 INTEGER :: I, J, MSUM local 102 MSUM = 0 104 MSUM = MSUM + II(I) 106 WRITE(10,*) HSIZE, HSIZE, MSUM
|
/dports/audio/snd/snd-21.2/tools/ |
H A D | sam.c | 852 mod_write(m->MSUM, m->f_L1); in process_mod() 862 mod_write(m->MSUM, 0.0); in process_mod() 893 mod_write(m->MSUM, S); in process_mod() 953 mod_write(m->MSUM, m->f_L1); in process_mod() 2312 MSUM = LDB(cmd, 7, 12); in mmode_command() 2321 m->MSUM = MSUM; in mmode_command() 2367 fprintf(stderr, "outloc(%s): mod-outs[%d]", ((MSUM >> 6) == 0) ? "+" : "=", MSUM & 0x3f); in mmode_command() 2573 mods[i]->MSUM, mod_outs[mods[i]->MSUM], 2599 ((mods[i]->MSUM &0x3f) == addr)) in dump_mod_sum() 2760 if ((m->MSUM >> 6) != 0) in dump_patch() [all …]
|
/dports/math/math77/MATH77/ |
H A D | dnqsol.f | 514 integer MSUM, NBEST, NCFAIL, NCSUC, NEXTPR local 576 MSUM = min(ML + MU + 1, N) 629 NFEV = NFEV + MSUM 1121 integer I,J,K,MSUM local 1139 MSUM = ML + MU + 1 1140 IF (MSUM .lt. N) GO TO 40 1163 DO 90 K = 1, MSUM 1164 DO 60 J = K, N, MSUM 1173 DO 80 J = K, N, MSUM
|
H A D | snqsol.f | 514 integer MSUM, NBEST, NCFAIL, NCSUC, NEXTPR local 576 MSUM = min(ML + MU + 1, N) 629 NFEV = NFEV + MSUM 1121 integer I,J,K,MSUM local 1139 MSUM = ML + MU + 1 1140 IF (MSUM .lt. N) GO TO 40 1163 DO 90 K = 1, MSUM 1164 DO 60 J = K, N, MSUM 1173 DO 80 J = K, N, MSUM
|
/dports/biology/py-bx-python/bx-python-0.8.13/lib/bx/align/ |
H A D | epo_tests.py | 128 MSUM = sum(i[1]-i[0] for i in I) 130 …return "%s\t%d\t1\t%d\t%d\t%d\t%s" % (species, id, start, start+MSUM-1, random.choice((-1, 1)), ""…
|