/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/ |
H A D | abaop2.F | 208 TMPMAT(IDIM,IDIM) = D0 213 CALL OUTPUT(TMPMAT,1,IDIM,1,IDIM, 217 CALL DZERO(TMPMT2,IDIM*IDIM) 218 CALL DZERO(TMPMT3,IDIM*IDIM) 226 CALL JACO(TMPMT3,TMPMT2,IDIM,IDIM,IDIM,TMPMT4(1), 235 TMPMT4(IDIM) = TMPMT3(IDIM*(IDIM+1)/2) 244 CALL OUTPUT(TMPMT4,1,1,1,IDIM,1,IDIM,1,LUPRI) 279 IDIM = IDIM - 1 289 CALL OUTPUT(TMPMT4,1,1,1,IDIM,1,IDIM,1,LUPRI) 291 CALL OUTPUT(TMPMAT,1,IDIM,1,IDIM,MX2CRD,MX2CRD,1,LUPRI) [all …]
|
/dports/science/isaac-cfd/isaac-4.2_16/implicit/ |
H A D | af3f.F | 165 IPEND = IDIM 170 DO 130 I = 2, IDIM 205 IF ( (I+INPL) .GT. IDIM ) NPL = IDIM - I + 1 282 DO 310 I = 2, IDIM, INPL 283 IF ( (I+INPL) .GT. IDIM ) NPL = IDIM - I + 1 302 DO 400 I = 2, IDIM 324 IF ( (I+INPL) .GT. IDIM ) NPL = IDIM - I + 1 449 DO 110 I = 1, IDIM 542 DO 480 I = 2, IDIM 554 NPTS = IDIM - 1 [all …]
|
H A D | af3dia.F | 125 DO 120 I = 1, IDIM+1 136 DO 180 I = 1, IDIM+1 165 DO 220 I = 1, IDIM+1 190 DO 340 I = 1, IDIM+1 223 DO 410 I = 2, IDIM 238 DO 430 I = 2, IDIM 270 NPTS = IDIM - 1 276 DO 470 I = 2, IDIM 294 DO 820 I = 2, IDIM 435 DO 140 I = 2, IDIM [all …]
|
/dports/science/xcrysden/xcrysden-1.6.2/F/ |
H A D | atomlab.f | 68 IF(IDIM .eq. 2) THEN 72 IF(IDIM .eq. 3) THEN 79 IF(IDIM .eq. 1) THEN 81 ELSEIF(IDIM .eq. 2) THEN 84 ELSEIF(IDIM .eq. 3) THEN 96 IF(IDIM .eq. 2) THEN 100 IF(IDIM .eq. 3) THEN 122 IF (IDIM .eq. 0) THEN 127 IF (IDIM .eq. 1) THEN 132 IF (IDIM .eq. 2) THEN [all …]
|
H A D | readf1.f | 1 SUBROUTINE READF1(ARG,IGROUP,IDIM) argument 80 READ(11,*) IDIM,IGROUP 82 WRITE(12,*) IDIM,IGROUP 87 IDIM=0 94 IDIM=1 97 WRITE(12,*) IDIM,IGROUP 103 IDIM=2 106 WRITE(12,*) IDIM,IGROUP 112 IDIM=3 115 WRITE(12,*) IDIM,IGROUP [all …]
|
H A D | gengeom.f | 350 CALL READF1('POLYMER',IGROUP,IDIM) 351 CALL READF1('SLAB',IGROUP,IDIM) 352 CALL READF1('CRYSTAL',IGROUP,IDIM) 354 CALL READF1('PRIMVEC',IGROUP,IDIM) 453 call InvertSqMat123(DV, IDV, IDIM) 454 call InvertSqMat123(DVC, IDVC, IDIM) 495 IF(IDIM.EQ.0)THEN 521 IF(IDIM.NE.3) 611 READ(34,*) IDIM,IGROUP 613 READ(34,*) IDIM,IGROUP,ITYPE [all …]
|
/dports/science/isaac-cfd/isaac-4.2_16/explicit/ |
H A D | rk.F | 36 SUBROUTINE RK (IBLK, IDIM, JDIM, KDIM, MXSECT, argument 104 4 VOL (0:JDIM+1,0:KDIM+1,0:IDIM+1), 105 5 RC (JDIM+1,KDIM+1,IDIM+1,3), 106 6 DTJ (JDIM,KDIM,IDIM) 108 DIMENSION RES (JDIM+1,KDIM+1,IDIM+1,NF), 109 1 FHAT (JDIM+1,KDIM+1,IDIM+1,NF), 123 DIMENSION W (0:JDIM+2,0:KDIM+2,0:IDIM+2,NQ) 143 IPEND = IDIM 149 DO 130 I = 0, IDIM + 2 164 DO 530 I = 2, IDIM [all …]
|
/dports/science/isaac-cfd/isaac-4.2_16/main/ |
H A D | main.F | 217 DIMENSION IDIM (MXBLKS,MXLVLS), 511 CALL CHKDAT (NBLKS, IDIM, JDIM, KDIM, VISCOS, 608 IDIM(IBLK,ILVL) = IDIM(IBLK,ILVL-1) / 2 + 1 620 IF (IDIMF .NE. IDIM(IBLK,ILVL-1) .OR. 1411 CALL FRCINT (ITURB,NBLKS,IDIM(1,ILVL), 1431 IPEND = IDIM(IBLK,ILVL) + 1 1534 IPEND = IDIM(IBLK,ILVL) + 1 1898 IPEND = IDIM(IBLK,ILVL-1) 2484 4 IDIM, JDIM, KDIM, 2534 IPEND = IDIM(IBLK,LVLF) + 1 [all …]
|
/dports/science/isaac-cfd/isaac-4.2_16/rhs/ |
H A D | resid.F | 89 INTEGER IDIM, JDIM, KDIM 94 3 DTJ (JDIM,KDIM,IDIM), 359 IN = IDIM 360 IM = IDIM 361 IW = IDIM 362 IBC2 = IDIM + 2 1630 6 DTJ (JDIM,KDIM,IDIM) 1818 IJKDIM(1) = IDIM 2280 ELSE IF (I .EQ. IDIM) THEN 2283 PROPS(J,K,IDIM+1,ICMUST) = PROPS(J,K,IDIM,ICMUST) [all …]
|
H A D | fourth.F | 39 SUBROUTINE DQCC (IDIM, JDIM, KDIM, IPSTRT, IPEND, RES, DQ) argument 48 SUBROUTINE DELQI4 (IDIM, JDIM, KDIM, IPSTRT, IPEND, K, argument 59 SUBROUTINE DELQJ4 (IDIM, JDIM, KDIM, I, argument 70 SUBROUTINE DELQK4 (IDIM, JDIM, KDIM, I, argument 81 SUBROUTINE FLUXI4 (IDIM, JDIM, KDIM, IPSTRT, IPEND, MXSECT, argument 93 SUBROUTINE FLUXJ4 (IDIM, JDIM, KDIM, IPSTRT, IPEND, MXSECT, argument 105 SUBROUTINE FLUXK4 (IDIM, JDIM, KDIM, IPSTRT, IPEND, MXSECT, argument 117 SUBROUTINE QICD (IDIM, JDIM, KDIM, K, IPSTRT, IPEND, Q, QI, argument 127 SUBROUTINE QJCD (IDIM, JDIM, KDIM, I, Q, QI, QC, DQC, argument 138 SUBROUTINE QKCD (IDIM, JDIM, KDIM, I, Q, QI, QC, DQC, argument
|
H A D | misc.F | 1135 DO 180 I = IDIM+1, IDIM+2 1165 DO 230 I = 2, IDIM 1597 DO 30 I = 0, IDIM+2 2575 IJKDIM(1) = IDIM 2809 R(J,K,IDIM+1,L) = R(J,K,IDIM,L) 3445 IJKDIM(1) = IDIM 3659 IJKDIM(1) = IDIM 4072 DO 860 I = 2, IDIM 4092 DO 890 I = 2, IDIM 4113 DO 930 I = 2, IDIM [all …]
|
H A D | mg.F | 767 IJKDIM(1) = IDIM 890 IJKDIM(1) = IDIM 1013 IJKDIM(1) = IDIM 1175 3 RHS (2:JDIM,2:IDIM) 1180 NPTS = IDIM - 1 1191 DO I = 2, IDIM 1209 DO I = 2, IDIM 1258 NSIM = IDIM - 1 1269 DO I = 2, IDIM 1287 DO I = 2, IDIM [all …]
|
H A D | io.F | 485 IJKDIM(1) = IDIM 864 RC(1,1,IDIM+1,IDIR) = R(1,1,IDIM,IDIR) 865 RC(JDIM+1,1,IDIM+1,IDIR) = R(JDIM,1,IDIM,IDIR) 868 RC(1,KDIM+1,IDIM+1,IDIR) = R(1,KDIM,IDIM,IDIR) 869 RC(JDIM+1,KDIM+1,IDIM+1,IDIR) = R(JDIM,KDIM,IDIM,IDIR) 888 RC(J,1,IDIM+1,IDIR) = 0.5E0 * ( R(J-1,1,IDIM,IDIR) 892 RC(J,KDIM+1,IDIM+1,IDIR) = 0.5E0 * ( R(J-1,KDIM,IDIM,IDIR) 898 RC(1,K,IDIM+1,IDIR) = 0.5E0 * ( R(1,K-1,IDIM,IDIR) 902 RC(JDIM+1,K,IDIM+1,IDIR) = 0.5E0 * ( R(JDIM,K-1,IDIM,IDIR) 946 1 ( R(J,K,IDIM,IDIR) + R(J-1,K,IDIM,IDIR) [all …]
|
/dports/math/math77/MATH77/demo/ |
H A D | drdhtcc.f | 6 integer IDIM, JDIM, J, M, N variable 7 parameter(IDIM = 3, JDIM = 5, M = 3, N = 2) 8 double precision D(IDIM,JDIM), UPARAM, ZERO 17 call DMATP(D,IDIM,M,N,'0 A =') 19 call DHTCC(1,J,J+1,M,D(1,J),UPARAM,D(1,J+1),IDIM,M+N-J) 21 call DMATP(D(1,N+1),IDIM,M,M,'0 Q [Transposed] =') 25 call DMATP(D,IDIM,M,N,'0 R =')
|
H A D | drshtcc.f | 6 integer IDIM, JDIM, J, M, N variable 7 parameter(IDIM = 3, JDIM = 5, M = 3, N = 2) 8 real D(IDIM,JDIM), UPARAM, ZERO 17 call SMATP(D,IDIM,M,N,'0 A =') 19 call SHTCC(1,J,J+1,M,D(1,J),UPARAM,D(1,J+1),IDIM,M+N-J) 21 call SMATP(D(1,N+1),IDIM,M,M,'0 Q [Transposed] =') 25 call SMATP(D,IDIM,M,N,'0 R =')
|
/dports/science/isaac-cfd/isaac-4.2_16/march/ |
H A D | march.F | 247 3 VOL (0:JDIM+1,0:KDIM+1,0:IDIM+1), 248 4 DTJ (JDIM,KDIM,IDIM) 342 CALL DFVISJ (IDIM, JDIM, KDIM, I, ITURB, 439 4 DTJ (JDIM,KDIM,IDIM) 533 CALL DFVISK (IDIM, JDIM, KDIM, I, ITURB, 807 5 RC (JDIM+1,KDIM+1,IDIM+1,3), 808 6 DTJ (JDIM,KDIM,IDIM) 893 IMEND = MIN ( IMEND, IDIM ) 1110 CALL MARRM (IDIM, JDIM, KDIM, I, 1252 SUBROUTINE MARRM (IDIM, JDIM, KDIM, I, argument [all …]
|
/dports/graphics/pgplot/pgplot/src/ |
H A D | pgpixl.f | 5 SUBROUTINE PGPIXL (IA, IDIM, JDIM, I1, I2, J1, J2, argument 7 INTEGER IDIM, JDIM, I1, I2, J1, J2 local 8 INTEGER IA(IDIM,JDIM) 50 IF (I1.LT.1 .OR. I2.GT.IDIM .OR. I1.GT.I2 .OR. 58 CALL GRPIXL(IA, IDIM, JDIM, I1, I2, J1, J2, X1, X2, Y1, Y2)
|
H A D | grimg0.f | 3 SUBROUTINE GRIMG0 (A, IDIM, JDIM, I1, I2, J1, J2, argument 5 INTEGER IDIM, JDIM, I1, I2, J1, J2, MININD, MAXIND, MODE local 6 REAL A(IDIM,JDIM), A1, A2, PA(6) 41 CALL GRIMG1(A, IDIM, JDIM, I1, I2, J1, J2, A1, A2, PA, 45 CALL GRIMG2(A, IDIM, JDIM, I1, I2, J1, J2, A1, A2, PA,
|
H A D | pggray.f | 5 SUBROUTINE PGGRAY (A, IDIM, JDIM, I1, I2, J1, J2, argument 7 INTEGER IDIM, JDIM, I1, I2, J1, J2 local 8 REAL A(IDIM,JDIM), FG, BG, TR(6) 87 IF (I1.LT.1 .OR. I2.GT.IDIM .OR. I1.GT.I2 .OR. 105 CALL GRGRAY(A, IDIM, JDIM, I1, I2, J1, J2, FG, BG, PA,
|
H A D | pgimag.f | 5 SUBROUTINE PGIMAG (A, IDIM, JDIM, I1, I2, J1, J2, argument 7 INTEGER IDIM, JDIM, I1, I2, J1, J2 local 8 REAL A(IDIM,JDIM), A1, A2, TR(6) 75 IF (I1.LT.1 .OR. I2.GT.IDIM .OR. I1.GT.I2 .OR. 93 CALL GRIMG0(A, IDIM, JDIM, I1, I2, J1, J2, A1, A2, PA,
|
H A D | grgray.f | 3 SUBROUTINE GRGRAY (A, IDIM, JDIM, I1, I2, J1, J2, argument 5 INTEGER IDIM, JDIM, I1, I2, J1, J2, MININD, MAXIND, MODE local 6 REAL A(IDIM,JDIM) 72 CALL GRIMG0(A, IDIM, JDIM, I1, I2, J1, J2, 79 CALL GRIMG3(A, IDIM, JDIM, I1, I2, J1, J2,
|
/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/ |
H A D | outpt2.f | 132 IF(IDIM .EQ. 2) XL = 12.0 133 IF(IDIM .EQ. 2) XP = 144.0 134 IF(IDIM .GE. 3) XP = 0.0208854 135 IF(IDIM .GE. 3) XR = 0.3048 136 IF(IDIM .GE. 3) XT = 1.8 137 IF(IDIM .EQ. 3) XL = 0.3048 138 IF(IDIM .EQ. 4) XL = 30.48 212 IF(IDIM .EQ. 1) WRITE(6,1430) 213 IF(IDIM .EQ. 2) WRITE(6,1440) 214 IF(IDIM .EQ. 3) WRITE(6,1450) [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/pdpack/ |
H A D | printpkg.F | 238 IDIM = NDIM(IBLK) 239 IF (IDIM.EQ.0) GO TO 100 240 IIDIM = IDIM*(IDIM+1)/2 252 LAST = MIN(IDIM,KCOL) 395 IDIM = NDIM(IBLK) 396 IF (IDIM.EQ.0) GO TO 100 397 IIDIM = IDIM*(IDIM+1)/2 529 IDIM = NDIM(IBLK) 531 I2DIM = IDIM*IDIM 539 LAST = MIN(IDIM,KCOL) [all …]
|
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.fortran-torture/compile/ |
H A D | ambig.f90 | 18 Integer :: ISIZE, IDIM local 23 IDIM = MIN(ISIZE,SIZE(A%ASPK)) 24 ASPK(1:IDIM) = A%ASPK(1:IDIM)
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.fortran-torture/compile/ |
H A D | ambig.f90 | 18 Integer :: ISIZE, IDIM local 23 IDIM = MIN(ISIZE,SIZE(A%ASPK)) 24 ASPK(1:IDIM) = A%ASPK(1:IDIM)
|