/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/hopspack/community_problems/modflw96.3_3/src/ |
H A D | evt5.f | 83 DIMENSION IEVT(NCOL,NROW),EVTR(NCOL,NROW),EXDP(NCOL,NROW), 84 1 SURF(NCOL,NROW),DELR(NCOL),DELC(NROW) 131 DO 40 IC=1,NCOL 172 DIMENSION IEVT(NCOL,NROW),EVTR(NCOL,NROW),EXDP(NCOL,NROW), 173 1 SURF(NCOL,NROW),RHS(NCOL,NROW,NLAY), 174 2 HCOF(NCOL,NROW,NLAY),IBOUND(NCOL,NROW,NLAY), 180 DO 10 IC=1,NCOL 228 DIMENSION IEVT(NCOL,NROW),EVTR(NCOL,NROW),EXDP(NCOL,NROW), 229 1 SURF(NCOL,NROW),IBOUND(NCOL,NROW,NLAY), 230 2 VBVL(4,MSUM),HNEW(NCOL,NROW,NLAY),BUFF(NCOL,NROW,NLAY) [all …]
|
H A D | gfd1.f | 224 1 HOLD(NCOL,NROW,NLAY),SC1(NCOL,NROW,NLAY),HNEW(NCOL,NROW,NLAY), 225 2 IBOUND(NCOL,NROW,NLAY),CR(NCOL,NROW,NLAY), 226 3 CC(NCOL,NROW,NLAY),CV(NCOL,NROW,NLAY),CDTR(NCOL,NROW,NLAY), 227 4 CDTC(NCOL,NROW,NLAY),BOT(NCOL,NROW,NLAY),TOP(NCOL,NROW,NLAY), 363 1 HOLD(NCOL,NROW,NLAY), SC1(NCOL,NROW,NLAY), 364 2 CR(NCOL,NROW,NLAY), CC(NCOL,NROW,NLAY), 367 5 TOP(NCOL,NROW,NLAY),BUFF(NCOL,NROW,NLAY) 477 1 CDTR(NCOL,NROW,NLAY),CR(NCOL,NROW,NLAY), 478 2 CC(NCOL,NROW,NLAY),CV(NCOL,NROW,NLAY), 577 1 CR(NCOL,NROW,NLAY), CC(NCOL,NROW,NLAY), CV(NCOL,NROW,NLAY), [all …]
|
H A D | ibs1.f | 123 NIJ=NROW*NCOL 196 DIMENSION RHS(NCOL,NROW,NLAY),HCOF(NCOL,NROW,NLAY), 197 1 IBOUND(NCOL,NROW,NLAY),HNEW(NCOL,NROW,NLAY), 198 2 HOLD(NCOL,NROW,NLAY),HC(NCOL,NROW,NLAY), 199 3 SCE(NCOL,NROW,NLAY),SCV(NCOL,NROW,NLAY) 244 DIMENSION IBOUND(NCOL,NROW,NLAY),HOLD(NCOL,NROW,NLAY), 245 1 HNEW(NCOL,NROW,NLAY),HC(NCOL,NROW,NLAY), 246 2 SCE(NCOL,NROW,NLAY),SCV(NCOL,NROW,NLAY), 248 4 BUFF(NCOL,NROW,NLAY),DELR(NCOL),DELC(NROW) 268 DO 5 IC=1,NCOL [all …]
|
H A D | bcf5.f | 173 1 HY(NCOL,NROW,NLAY),CR(NCOL,NROW,NLAY),CC(NCOL,NROW,NLAY), 174 2 CV(NCOL,NROW,NLAY),DELR(NCOL),DELC(NROW),BOT(NCOL,NROW,NLAY), 307 1 HOLD(NCOL,NROW,NLAY),SC1(NCOL,NROW,NLAY),HNEW(NCOL,NROW,NLAY), 309 3 CC(NCOL,NROW,NLAY),CV(NCOL,NROW,NLAY),HY(NCOL,NROW,NLAY), 310 4 TRPY(NLAY),BOT(NCOL,NROW,NLAY),TOP(NCOL,NROW,NLAY),DELR(NCOL), 312 6 CVWD(NCOL,NROW,NLAY),BUFF(NCOL,NROW,NLAY) 672 2 SC2(NCOL,NROW,NLAY),TOP(NCOL,NROW,NLAY),BUFF(NCOL,NROW,NLAY) 976 1,CR(NCOL,NROW,NLAY), CC(NCOL,NROW,NLAY), CV(NCOL,NROW,NLAY) 978 3,BOT(NCOL,NROW,NLAY),TOP(NCOL,NROW,NLAY),WETDRY(NCOL,NROW,NLAY) 979 4,CVWD(NCOL,NROW,NLAY),BUFF(NCOL,NROW,NLAY) [all …]
|
H A D | res1.f | 3 2 NPTS,NCOL,NROW) 121 DIMENSION IRES(NCOL,NROW),IRESL(NCOL,NROW),BRES(NCOL,NROW), 122 1 CRES(NCOL,NROW),BBRES(NCOL,NROW),HRESSE(2,NRES), 123 2 IBOUND(NCOL,NROW,NLAY),ANAME(6,5),DELR(NCOL),DELC(NROW) 249 1 BRES(NCOL,NROW),DELR(NCOL),DELC(NROW) 302 DIMENSION IRES(NCOL,NROW),IRESL(NCOL,NROW),BRES(NCOL,NROW), 303 1 CRES(NCOL,NROW),BBRES(NCOL,NROW),HRES(NRES), 304 2 IBOUND(NCOL,NROW,NLAY),HNEW(NCOL,NROW,NLAY), 305 3 HCOF(NCOL,NROW,NLAY),RHS(NCOL,NROW,NLAY) 375 DIMENSION IRES(NCOL,NROW),IRESL(NCOL,NROW),BRES(NCOL,NROW), [all …]
|
H A D | rch5.f | 80 DIMENSION IRCH(NCOL,NROW),RECH(NCOL,NROW),DELR(NCOL),DELC(NROW) 114 DO 50 IC=1,NCOL 143 DIMENSION IRCH(NCOL,NROW),RECH(NCOL,NROW), 144 1 RHS(NCOL,NROW,NLAY),IBOUND(NCOL,NROW,NLAY) 151 DO 10 IC=1,NCOL 164 DO 20 IC=1,NCOL 181 DO 30 IC=1,NCOL 212 DIMENSION IRCH(NCOL,NROW),RECH(NCOL,NROW), 213 1 IBOUND(NCOL,NROW,NLAY),BUFF(NCOL,NROW,NLAY), 226 DO 2 IC=1,NCOL [all …]
|
H A D | tlk1.f | 187 NCR=NCOL*NROW 307 DIMENSION HNEW(NCOL,NROW,NLAY),TOP(NCOL,NROW,NLAY), 308 1 RATE(NCOL,NROW,NUMC),ZCB(NCOL,NROW,NUMC),TLK(NCOL,NROW,NUMC), 309 2 TL(NCOL,NROW,NUMC),SLU(NCOL,NROW,NUMC),SLD(NCOL,NROW,NUMC), 467 DIMENSION HNEW(NCOL,NROW,NLAY),TOP(NCOL,NROW,NLAY), 468 1 TL(NCOL,NROW,NUMC),TLK(NCOL,NROW,NUMC),SLU(NCOL,NROW,NUMC), 469 2 SLD(NCOL,NROW,NUMC),CV(NCOL,NROW,NLAY),HCOF(NCOL,NROW,NLAY), 470 3 RHS(NCOL,NROW,NLAY),IBOUND(NCOL,NROW,NLAY),RATE(NCOL,NROW,NUMC) 548 DIMENSION HNEW(NCOL,NROW,NLAY),TOP(NCOL,NROW,NLAY), 549 1 TLK(NCOL,NROW,NUMC),TL(NCOL,NROW,NUMC),SLU(NCOL,NROW,NUMC), [all …]
|
H A D | modflw96.f | 126 3 NCOL,NROW,NLAY,IOUT,ID4DIM) 138 2 NRESOP,IRESPT,NPTS,NCOL,NROW) 229 1 NCOL,NROW,NLAY) 268 2 X(LCHCOF),X(LCRHS),NROW,NCOL,NLAY) 270 1 X(LCIBOU),NCOL,NROW,NLAY,NWELVL) 277 1 X(LCHNEW),NCOL,NROW,NLAY) 281 1 X(LCRHS),X(LCIBOU),NCOL,NROW,NLAY) 284 2 X(LCRHS),NRES,NRESOP,NCOL,NROW,NLAY) 293 1 X(LCBDFV),NFLW,NCOL,NROW,NLAY,IFHBD4) 344 IC2=NCOL [all …]
|
H A D | de45.f | 198 2 CR(NCOL,NROW,NLAY),CC(NCOL,NROW,NLAY), 199 3 CV(NCOL,NROW,NLAY),HCOF(NCOL,NROW,NLAY), 503 DIMENSION IEQPNT(NCOL,NROW,NLAY), IBOUND(NCOL,NROW,NLAY) 571 IF(I1.GT.NCOL) I1=NCOL 590 IF(I1.GT.NCOL) I1=NCOL 651 IF(I1.GT.NCOL) I1=NCOL 670 IF(I1.GT.NCOL) I1=NCOL 686 IF(K1.GT.NCOL) K1=NCOL 705 IF(K1.GT.NCOL) K1=NCOL 726 IF(K1.GT.NCOL) K1=NCOL [all …]
|
H A D | utl5.f | 12 DIMENSION BUFF(NCOL,NROW,NLAY) 118 DIMENSION BUF(NCOL,NROW) 138 NSTRIP=(NCOL-1)/NCAP + 1 148 IF(J2.GT.NCOL) J2=NCOL 275 DIMENSION BUF(NCOL,NROW) 412 DIMENSION BUF(NCOL,NROW),TEXT(4) 1080 DIMENSION BUFF(NCOL,NROW,NLAY),IBOUND(NCOL,NROW,NLAY) 1110 DIMENSION IBOUND(NCOL,NROW,NLAY) 1137 ICRL= (K-1)*NROW*NCOL + (I-1)*NCOL + J 1158 DIMENSION BUFF(NCOL,NROW,NLAY),IBUFF(NCOL,NROW), [all …]
|
H A D | pcg2.f | 35 NRC=NROW*NCOL 205 IF(N.GE.NCOL+1) CC(N-NCOL)=0. 214 NRN=N+NCOL 215 NRL=N-NCOL 225 NRB=N-NCOL 358 NRB=N-NCOL 426 IC=N-NCOL 521 NR=N+NCOL 576 NRN=N+NCOL 577 NRL=N-NCOL [all …]
|
H A D | bas5.f | 164 ISUM=ISUM+NCOL 208 DIMENSION HNEW(NCOL,NROW,NLAY), HOLD(NCOL,NROW,NLAY) 222 DO 10 J=1,NCOL 371 DIMENSION HNEW(NCOL,NROW,NLAY),STRT(NCOL,NROW,NLAY), 423 DIMENSION HNEW(NCOL,NROW,NLAY),IBOUND(NCOL,NROW,NLAY), 424 1 STRT(NCOL,NROW,NLAY),HOLD(NCOL,NROW,NLAY), 470 DO 400 J=1,NCOL 479 DO 500 J=1,NCOL 573 1 BUFF(NCOL,NROW,NLAY),STRT(NCOL,NROW,NLAY), 599 DO 58 J=1,NCOL [all …]
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/cacsd/src/slicot/ |
H A D | ib01qd.f | 376 NCOL = NM 378 $ NCOL = NCOL + N 379 MINSMP = NCOL 429 NCP1 = NCOL + 1 436 MINWLS = NCOL*NCP1 442 IA = 2*NCOL 461 $ NCOL + NCOL*ILAENV( 1, 'DGEQRF', ' ', NSMP-M, 470 $ MAX( NCOL*ILAENV( 1, 'DGEQRF', ' ', NSMPL, NCOL, 537 INIH = INIR + NCOL*NCOL 962 $ CALL DLASET( 'Lower', NCOL-1, NCOL-1, ZERO, ZERO, [all …]
|
H A D | ib01cd.f | 499 $ NCOL, NCP1, NM, NN, NSMPL local 536 NCOL = NM 538 $ NCOL = NCOL + N 539 MINSMP = NCOL 550 NCOL = N 608 NCP1 = NCOL + 1 619 MINWLS = NCOL*NCP1 624 IA = M + MAX( 2*NCOL, M ) 626 IA = 2*NCOL 632 LDW3 = MINWLS + MAX( IQ*NCP1 + ITAU, 6*NCOL ) [all …]
|
/dports/graphics/pgplot/pgplot/src/ |
H A D | pgscrn.f | 60 INTEGER I, IR, IG, IB, J, L, NCOL, UNIT, IOS local 65 SAVE NCOL, CNAME, RR, RG, RB 66 DATA NCOL/0/ 70 IF (NCOL.EQ.0) THEN 87 NCOL = NCOL+1 88 CALL GRTOUP(CNAME(NCOL), TEXT(J:)) 89 RR(NCOL) = IR/255.0 90 RG(NCOL) = IG/255.0 91 RB(NCOL) = IB/255.0 100 DO 20 I=1,NCOL [all …]
|
/dports/graphics/pgplot/pgplot/examples/ |
H A D | pgdemo9.f | 6 INTEGER N, NCOL, NLEV variable 7 PARAMETER (N=64, NCOL=32, NLEV=9) 26 IA(I,J) = (F(I,J)-FMIN)/(FMAX-FMIN)*(NCOL-1)+16 35 IF (CI2.LT. 15+NCOL) THEN 37 1 15+NCOL,' colors' 47 DO 30 I=1,NCOL 48 R = REAL(I-1)/REAL(NCOL-1)*0.8 + 0.2 49 G = MAX(0.0, 2.0*REAL(I-1-NCOL/2)/REAL(NCOL-1)) 50 B = 0.2 + 0.4*REAL(NCOL-I)/REAL(NCOL)
|
/dports/math/cmlib/cmlib-3.0_8/src/sudsods/ |
H A D | cscale.f | 2 SUBROUTINE CSCALE(A,NRDA,NROW,NCOL,COLS,COLSAV,ROWS,ROWSAV,ANORM, argument 10 DIMENSION A(NRDA,NCOL),COLS(NCOL),COLSAV(NCOL),SCALES(NCOL), 19 DO 5 K=1,NCOL 22 10 ASCALE=ANORM/FLOAT(NCOL) 23 DO 20 K=1,NCOL 29 25 DO 30 K=1,NCOL 35 DO 100 K=1,NCOL 55 ROWS(K)=SDOT(NCOL,A(K,1),NRDA,A(K,1),NRDA)
|
/dports/science/afni/afni-AFNI_21.3.16/src/ |
H A D | colcalc.f | 57 NCOL = 0 72 NCOL = INUMC( C_EXPR ) 75 IF( NCOL .LE. 0 )THEN 82 IF( NCMAX .GT. NCOL )THEN 83 WRITE(*,1029) NCMAX , NCOL 89 NCOL = MIN( NCOL , NCMAX ) 92 IF( NCOL .EQ. 0 )THEN 126 IF( NCOL .GT. 0 ) 127 X READ(77,*,END=9000,ERR=9000) ( R8VAL(I) , I=1,NCOL ) 144 IF( NCOL.GT.0 .OR. IROW.LT.NROW )GOTO 1100
|
/dports/math/slatec/src/ |
H A D | ssilus.f | 3 + NU, IU, JU, U, NROW, NCOL) 165 + NCOL(N), NROW(N) 177 NCOL(I) = 0 187 NCOL(ICOL) = NCOL(ICOL) + 1 190 IF( ISYM.NE.0 ) NCOL(IA(J)) = NCOL(IA(J)) + 1 201 NCOL(ICOL) = JU(ICOL) 214 IU(NCOL(ICOL)) = IROW 215 U(NCOL(ICOL)) = A(J) 216 NCOL(ICOL) = NCOL(ICOL) + 1 225 U(NCOL(IROW)) = A(J) [all …]
|
H A D | dsilus.f | 3 + NU, IU, JU, U, NROW, NCOL) 166 + NCOL(N), NROW(N) 178 NCOL(I) = 0 188 NCOL(ICOL) = NCOL(ICOL) + 1 191 IF( ISYM.NE.0 ) NCOL(IA(J)) = NCOL(IA(J)) + 1 202 NCOL(ICOL) = JU(ICOL) 215 IU(NCOL(ICOL)) = IROW 216 U(NCOL(ICOL)) = A(J) 217 NCOL(ICOL) = NCOL(ICOL) + 1 226 U(NCOL(IROW)) = A(J) [all …]
|
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/hopspack/community_problems/hopspack_forms/case_hc/ |
H A D | feval.f | 43 INTEGER NROW,NLAY,NCOL 46 PARAMETER(NCOL = 100) 52 REAL*8 HEAD(NROW,NCOL,NLAY), DRWDOWN(DIM), STARTHEAD(DIM) 108 & NROW, NCOL,FLAG) 150 call readhead(NROW,NCOL,NLAY,HEAD,hedfile) 157 call costac(DIM/3,X,Y,Z,WELRATE,NLAY,NROW,NCOL,COSTC,FLAG) 161 call costao(DIM/3,X,Y,Z,WELRATE,HEAD,NLAY,NROW,NCOL,COSTO,FLAG) 168 & NCOL,COSTO,FLAG)
|
/dports/graphics/raster3d/Raster3D_3.0-7/ |
H A D | balls.f | 89 NCOL = 0 94 NCOL = NCOL + 1 95 IF (NCOL.GT.MAXCOL) THEN 100 READ(CARD,'(6X,A24,3F8.3,F6.2)') MASK(NCOL), 101 & (RGB(I,NCOL),I=1,3),RADIUS(NCOL) 121 IF (NCOL.LT.MAXCOL-8) THEN 123 NCOL = NCOL + 1 124 READ(defcol(i),'(6X,A24,3F8.3,F6.2)') MASK(NCOL), 125 & (RGB(J,NCOL),J=1,3), RADIUS(NCOL) 129 IF (NCOL.EQ.0) THEN [all …]
|
/dports/science/erd/erd-3.0.6/src/ |
H A D | erd__transpose_batch.f | 17 + ( NROW,NCOL, 57 INTEGER NROW,NCOL 60 DOUBLE PRECISION BATCH (1:NROW,1:NCOL) 61 DOUBLE PRECISION OBATCH (1:NCOL,1:NROW) 72 DO 110 II = 1,NCOL,TILE 73 IEND = MIN (NCOL,II+TILE-1)
|
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/hopspack/community_problems/hopspack_forms/case_unc5/ |
H A D | feval.f | 43 INTEGER NROW,NLAY,NCOL 47 PARAMETER(NCOL = 50) 54 REAL*8 HEAD(NROW,NCOL,NLAY), DRWDOWN(DIM), STARTHEAD(DIM) 113 & NROW, NCOL,FLAG) 158 call readhead(NROW,NCOL,NLAY,HEAD,hedfile) 165 call costac(DIM/2,X,Y,Z,WELRATE,NLAY,NROW,NCOL,COSTC,FLAG) 169 call costao(DIM/2,X,Y,Z,WELRATE,HEAD,NLAY,NROW,NCOL,COSTO,FLAG) 176 & NCOL,COSTO,FLAG)
|
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/hopspack/community_problems/hopspack_forms/case_con5/ |
H A D | feval.f | 43 INTEGER NROW,NLAY,NCOL 47 PARAMETER(NCOL = 50) 54 REAL*8 HEAD(NROW,NCOL,NLAY), DRWDOWN(DIM), STARTHEAD(DIM) 113 & NROW, NCOL,FLAG) 158 call readhead(NROW,NCOL,NLAY,HEAD,hedfile) 165 call costac(DIM/2,X,Y,Z,WELRATE,NLAY,NROW,NCOL,COSTC,FLAG) 169 call costao(DIM/2,X,Y,Z,WELRATE,HEAD,NLAY,NROW,NCOL,COSTO,FLAG) 176 & NCOL,COSTO,FLAG)
|