Home
last modified time | relevance | path

Searched refs:MSUM (Results 1 – 25 of 57) sorted by relevance

123

/dports/math/cmlib/cmlib-3.0_8/src/adapt/
H A Dnxprt.f5 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 Dgenmsum.c21 #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 Drch5.f201 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 Dwel5.f204 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 Dghb5.f215 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 Dtlk1.f679 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 Driv5.f228 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 Devt5.f217 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 Ddrn5.f220 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 Dgfd1.f439 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 Dibs1.f232 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 Dres1.f364 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 Dstr1.f350 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 Dfhb1.f572 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 Dmodflw96.f328 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 Dbcf5.f750 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 Dbas5.f358 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 Dfdjac1.f93 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 Ddfdjc1.f94 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 Dfdjac1.f97 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 Dmatrixio.F9091 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 Dsam.c852 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 Ddnqsol.f514 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 Dsnqsol.f514 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 Depo_tests.py128 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)), ""…

123