Home
last modified time | relevance | path

Searched refs:IDIM (Results 1 – 25 of 565) sorted by relevance

12345678910>>...23

/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/
H A Dabaop2.F208 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 Daf3f.F165 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 Daf3dia.F125 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 Datomlab.f68 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 Dreadf1.f1 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 Dgengeom.f350 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 Drk.F36 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 Dmain.F217 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 Dresid.F89 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 Dfourth.F39 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 Dmisc.F1135 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 Dmg.F767 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 Dio.F485 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 Ddrdhtcc.f6 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 Ddrshtcc.f6 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 Dmarch.F247 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 Dpgpixl.f5 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 Dgrimg0.f3 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 Dpggray.f5 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 Dpgimag.f5 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 Dgrgray.f3 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 Doutpt2.f132 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 Dprintpkg.F238 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 Dambig.f9018 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 Dambig.f9018 Integer :: ISIZE, IDIM local
23 IDIM = MIN(ISIZE,SIZE(A%ASPK))
24 ASPK(1:IDIM) = A%ASPK(1:IDIM)

12345678910>>...23