Home
last modified time | relevance | path

Searched refs:NUMX (Results 1 – 25 of 33) sorted by relevance

12

/dports/graphics/xd3d/xd3d-8.3.1/src/d3d/
H A Dlecture.f318 NUMX = IWORK(1)
351 DO I=1,NUMX
519 DO I=1,NUMX
601 NUMX = MAX(NUMX,3)
660 DO I=1,NUMX
700 NUMX = MAX(NUMX,3)
747 DO I=1,NUMX
788 & ,UUU(1+MOD(I-1,NUMX)),VVV(1+(I-1)/NUMX),X(I),ICODE)
800 & ,UUU(1+MOD(I-1,NUMX)),VVV(1+(I-1)/NUMX),Y(I),ICODE)
812 & ,UUU(1+MOD(I-1,NUMX)),VVV(1+(I-1)/NUMX),Z(I),ICODE)
[all …]
H A Delimin2.f12 NFACE = (NUMX-1)*(NUMY-1)*NUMSD
21 NNN = (K-1)*NUMX*NUMY
23 DO I=1,NUMX-1
26 N1 = (J-1)*NUMX + I
28 N3 = N2 + NUMX
65 IF (I.EQ.(NUMX-1)) NBOR(2,NF) = 0
H A Dcom_coor.f26 & ,NUMSD,NUMX,NUMY,NBCORN,NUMBIS,NUMTER,NELDEL local
H A Dcom_coor_generic.f25 & ,NUMSD,NUMX,NUMY,NBCORN,NUMBIS,NUMTER,NELDEL local
H A Dliiso.f682 DO I=1,NUMX
698 II = NUMX
705 IFPOIN(NPSUR) = (JJ-2)*(NUMX-1) + II - 1
779 IFSEG(NSSUR) = (J-2)*(NUMX-1) + I - 1
794 IFSEG(NSSUR) = (J-2)*(NUMX-1) + I - 1
812 IFSEG(NSSUR) = (J-2)*(NUMX-1) + I - 1
827 IFSEG(NSSUR) = (J-2)*(NUMX-1) + I - 1
H A Dd3d.f3983 IF (KK.EQ.0.AND.Y(J).LE.YCOUP.AND.Y(J+NUMX).GE.YCOUP)
3985 J = J+NUMX
3987 FAC = (YCOUP-Y((KK-1)*NUMX+1))/(Y(KK*NUMX+1)-Y(KK))
3995 DO K=1,NUMX
3996 J1 = (KK-1)*NUMX + K
3997 J2 = J1+NUMX
4019 DO K=1,NUMX-1
4032 J1 = (K-1)*NUMX + KK
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/choles/
H A Dcc_choatr.F38 & SECNAM,': NUMX = ',NUMX
52 DO I = 1,NUMX
105 DO I = 1,NUMX
119 DO IX = 1,NUMX
1319 & NUMX)
1322 & NUMX)
1354 DO IX = 1,NUMX
1430 DO IX = 1,NUMX
1525 IF (NUMX .LE. 0) RETURN
1558 & 1,ISYMX,NUMX)
[all …]
H A Dcc_cholrim.F1703 KEND1 = KCIM + NT1AM(ISYMX)*NUMX
1718 CALL DZERO(WORK(KCIM),NT1AM(ISYMX)*NUMX)
1720 & NUMX)
1728 DO IX = 1,NUMX
1860 IF (NUMX .GT. 0) THEN
1896 IF (NUMX .GT. 0) THEN
1916 KEND1 = KCOUL + NUMX
2002 DO IX = 1,NUMX
2024 DO IX = 1,NUMX
2054 DO IX = 1,NUMX
[all …]
H A Dcc_cyidbg.F1148 NUMX = MIN(NUMCHO(ISYMX),7)
1154 KCTEST = KCTARG + NT1AM(ISYMX)*NUMX
1155 KX1AM = KCTEST + NT1AM(ISYMX)*NUMX
1156 KEND2 = KX1AM + NT1AM(ISYMX)*NUMX
1163 & 'Number of vectors: ',NUMX
1171 CALL CHO_MOREAD(WORK(KX1AM),NT1AM(ISYMX),NUMX,1,LUCHOX)
1181 CALL DGEMM('N','N',NT1AM(ISYMX),NUMX,NT1AM(ISYMX),
1194 & ISYMX,NUMX)
1202 CALL CHO_MOREAD(WORK(KCTEST),NT1AM(ISYMX),NUMX,1,LUCHOC)
1208 DO IX = 1,NUMX
[all …]
/dports/math/mumps/mumps-5.1.2/src/
H A Ddana_mtrans.F572 INTEGER, INTENT(OUT) :: NUMX local
590 NUMX = 0
592 & NUMX,N,
594 NUM = NUMX
625 IF (NUM.EQ.NUMX) THEN
656 71 IF (NUM.LT.NUMX) GO TO 81
684 & NUM,NUMX,
687 1000 IF (M.EQ.N .and. NUMX.EQ.N) GO TO 2000
696 INTEGER :: ID,MOD,M,N,NUM,NUMX local
719 NUM1 = NUMX
[all …]
H A Dsana_mtrans.F572 INTEGER, INTENT(OUT) :: NUMX local
590 NUMX = 0
592 & NUMX,N,
594 NUM = NUMX
625 IF (NUM.EQ.NUMX) THEN
656 71 IF (NUM.LT.NUMX) GO TO 81
684 & NUM,NUMX,
687 1000 IF (M.EQ.N .and. NUMX.EQ.N) GO TO 2000
696 INTEGER :: ID,MOD,M,N,NUM,NUMX local
719 NUM1 = NUMX
[all …]
H A Dzana_mtrans.F572 INTEGER, INTENT(OUT) :: NUMX local
590 NUMX = 0
592 & NUMX,N,
594 NUM = NUMX
625 IF (NUM.EQ.NUMX) THEN
656 71 IF (NUM.LT.NUMX) GO TO 81
684 & NUM,NUMX,
687 1000 IF (M.EQ.N .and. NUMX.EQ.N) GO TO 2000
696 INTEGER :: ID,MOD,M,N,NUM,NUMX local
719 NUM1 = NUMX
[all …]
H A Dcana_mtrans.F572 INTEGER, INTENT(OUT) :: NUMX local
590 NUMX = 0
592 & NUMX,N,
594 NUM = NUMX
625 IF (NUM.EQ.NUMX) THEN
656 71 IF (NUM.LT.NUMX) GO TO 81
684 & NUM,NUMX,
687 1000 IF (M.EQ.N .and. NUMX.EQ.N) GO TO 2000
696 INTEGER :: ID,MOD,M,N,NUM,NUMX local
719 NUM1 = NUMX
[all …]
/dports/science/afni/afni-AFNI_21.3.16/src/coxplot/
H A Dlabmod.f4 SUBROUTINE LABMOD( IFMTX , IFMTY , NUMX , NUMY , argument
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/
H A Dzmumps_part2.F7092 SUBROUTINE ZMUMPS_452(M,N,NE,IP,IRN,A,IPERM,NUMX, argument
7095 INTEGER M,N,NE,NUMX
7111 NUMX = 0
7112 CALL ZMUMPS_453(CNT,MOD,M,N,IRN,NE,IP,LEN,FC,IW,NUMX,N,
7114 NUM = NUMX
7145 IF (NUM.EQ.NUMX) THEN
7175 71 IF (NUM.LT.NUMX) GO TO 81
7205 1000 IF (M.EQ.N .and. NUMX.EQ.N) GO TO 2000
7213 INTEGER ID,MOD,M,N,LIRN,NUM,NUMX
7233 NUM1 = NUMX
[all …]
H A Dcmumps_part2.F7092 SUBROUTINE CMUMPS_452(M,N,NE,IP,IRN,A,IPERM,NUMX, argument
7095 INTEGER M,N,NE,NUMX
7111 NUMX = 0
7112 CALL CMUMPS_453(CNT,MOD,M,N,IRN,NE,IP,LEN,FC,IW,NUMX,N,
7114 NUM = NUMX
7145 IF (NUM.EQ.NUMX) THEN
7175 71 IF (NUM.LT.NUMX) GO TO 81
7205 1000 IF (M.EQ.N .and. NUMX.EQ.N) GO TO 2000
7213 INTEGER ID,MOD,M,N,LIRN,NUM,NUMX
7233 NUM1 = NUMX
[all …]
H A Ddmumps_part2.F7093 SUBROUTINE DMUMPS_452(M,N,NE,IP,IRN,A,IPERM,NUMX, argument
7096 INTEGER M,N,NE,NUMX
7112 NUMX = 0
7113 CALL DMUMPS_453(CNT,MOD,M,N,IRN,NE,IP,LEN,FC,IW,NUMX,N,
7115 NUM = NUMX
7146 IF (NUM.EQ.NUMX) THEN
7176 71 IF (NUM.LT.NUMX) GO TO 81
7206 1000 IF (M.EQ.N .and. NUMX.EQ.N) GO TO 2000
7214 INTEGER ID,MOD,M,N,LIRN,NUM,NUMX
7234 NUM1 = NUMX
[all …]
H A Dsmumps_part2.F7088 SUBROUTINE SMUMPS_452(M,N,NE,IP,IRN,A,IPERM,NUMX, argument
7091 INTEGER M,N,NE,NUMX
7107 NUMX = 0
7108 CALL SMUMPS_453(CNT,MOD,M,N,IRN,NE,IP,LEN,FC,IW,NUMX,N,
7110 NUM = NUMX
7141 IF (NUM.EQ.NUMX) THEN
7171 71 IF (NUM.LT.NUMX) GO TO 81
7201 1000 IF (M.EQ.N .and. NUMX.EQ.N) GO TO 2000
7209 INTEGER ID,MOD,M,N,LIRN,NUM,NUMX
7229 NUM1 = NUMX
[all …]
/dports/math/coinmumps/MUMPS_4.10.0/src/
H A Dcmumps_part2.F7092 SUBROUTINE CMUMPS_452(M,N,NE,IP,IRN,A,IPERM,NUMX, argument
7095 INTEGER M,N,NE,NUMX
7111 NUMX = 0
7112 CALL CMUMPS_453(CNT,MOD,M,N,IRN,NE,IP,LEN,FC,IW,NUMX,N,
7114 NUM = NUMX
7145 IF (NUM.EQ.NUMX) THEN
7175 71 IF (NUM.LT.NUMX) GO TO 81
7205 1000 IF (M.EQ.N .and. NUMX.EQ.N) GO TO 2000
7213 INTEGER ID,MOD,M,N,LIRN,NUM,NUMX
7233 NUM1 = NUMX
[all …]
H A Ddmumps_part2.F7093 SUBROUTINE DMUMPS_452(M,N,NE,IP,IRN,A,IPERM,NUMX, argument
7096 INTEGER M,N,NE,NUMX
7112 NUMX = 0
7113 CALL DMUMPS_453(CNT,MOD,M,N,IRN,NE,IP,LEN,FC,IW,NUMX,N,
7115 NUM = NUMX
7146 IF (NUM.EQ.NUMX) THEN
7176 71 IF (NUM.LT.NUMX) GO TO 81
7206 1000 IF (M.EQ.N .and. NUMX.EQ.N) GO TO 2000
7214 INTEGER ID,MOD,M,N,LIRN,NUM,NUMX
7234 NUM1 = NUMX
[all …]
H A Dsmumps_part2.F7088 SUBROUTINE SMUMPS_452(M,N,NE,IP,IRN,A,IPERM,NUMX, argument
7091 INTEGER M,N,NE,NUMX local
7107 NUMX = 0
7108 CALL SMUMPS_453(CNT,MOD,M,N,IRN,NE,IP,LEN,FC,IW,NUMX,N,
7110 NUM = NUMX
7141 IF (NUM.EQ.NUMX) THEN
7171 71 IF (NUM.LT.NUMX) GO TO 81
7201 1000 IF (M.EQ.N .and. NUMX.EQ.N) GO TO 2000
7209 INTEGER ID,MOD,M,N,LIRN,NUM,NUMX local
7229 NUM1 = NUMX
[all …]
H A Dzmumps_part2.F7092 SUBROUTINE ZMUMPS_452(M,N,NE,IP,IRN,A,IPERM,NUMX, argument
7095 INTEGER M,N,NE,NUMX
7111 NUMX = 0
7112 CALL ZMUMPS_453(CNT,MOD,M,N,IRN,NE,IP,LEN,FC,IW,NUMX,N,
7114 NUM = NUMX
7145 IF (NUM.EQ.NUMX) THEN
7175 71 IF (NUM.LT.NUMX) GO TO 81
7205 1000 IF (M.EQ.N .and. NUMX.EQ.N) GO TO 2000
7213 INTEGER ID,MOD,M,N,LIRN,NUM,NUMX
7233 NUM1 = NUMX
[all …]
/dports/math/mumps4/MUMPS_4.10.0/src/
H A Dcmumps_part2.F7092 SUBROUTINE CMUMPS_452(M,N,NE,IP,IRN,A,IPERM,NUMX, argument
7095 INTEGER M,N,NE,NUMX local
7111 NUMX = 0
7112 CALL CMUMPS_453(CNT,MOD,M,N,IRN,NE,IP,LEN,FC,IW,NUMX,N,
7114 NUM = NUMX
7145 IF (NUM.EQ.NUMX) THEN
7175 71 IF (NUM.LT.NUMX) GO TO 81
7205 1000 IF (M.EQ.N .and. NUMX.EQ.N) GO TO 2000
7213 INTEGER ID,MOD,M,N,LIRN,NUM,NUMX local
7233 NUM1 = NUMX
[all …]
H A Ddmumps_part2.F7088 SUBROUTINE DMUMPS_452(M,N,NE,IP,IRN,A,IPERM,NUMX, argument
7091 INTEGER M,N,NE,NUMX local
7107 NUMX = 0
7108 CALL DMUMPS_453(CNT,MOD,M,N,IRN,NE,IP,LEN,FC,IW,NUMX,N,
7110 NUM = NUMX
7141 IF (NUM.EQ.NUMX) THEN
7171 71 IF (NUM.LT.NUMX) GO TO 81
7201 1000 IF (M.EQ.N .and. NUMX.EQ.N) GO TO 2000
7209 INTEGER ID,MOD,M,N,LIRN,NUM,NUMX local
7229 NUM1 = NUMX
[all …]
H A Dzmumps_part2.F7092 SUBROUTINE ZMUMPS_452(M,N,NE,IP,IRN,A,IPERM,NUMX, argument
7095 INTEGER M,N,NE,NUMX local
7111 NUMX = 0
7112 CALL ZMUMPS_453(CNT,MOD,M,N,IRN,NE,IP,LEN,FC,IW,NUMX,N,
7114 NUM = NUMX
7145 IF (NUM.EQ.NUMX) THEN
7175 71 IF (NUM.LT.NUMX) GO TO 81
7205 1000 IF (M.EQ.N .and. NUMX.EQ.N) GO TO 2000
7213 INTEGER ID,MOD,M,N,LIRN,NUM,NUMX local
7233 NUM1 = NUMX
[all …]

12