/dports/graphics/xd3d/xd3d-8.3.1/src/d3d/ |
H A D | lecture.f | 318 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 D | elimin2.f | 12 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 D | com_coor.f | 26 & ,NUMSD,NUMX,NUMY,NBCORN,NUMBIS,NUMTER,NELDEL local
|
H A D | com_coor_generic.f | 25 & ,NUMSD,NUMX,NUMY,NBCORN,NUMBIS,NUMTER,NELDEL local
|
H A D | liiso.f | 682 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 D | d3d.f | 3983 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 D | cc_choatr.F | 38 & 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 D | cc_cholrim.F | 1703 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 D | cc_cyidbg.F | 1148 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 D | dana_mtrans.F | 572 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 D | sana_mtrans.F | 572 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 D | zana_mtrans.F | 572 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 D | cana_mtrans.F | 572 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 D | labmod.f | 4 SUBROUTINE LABMOD( IFMTX , IFMTY , NUMX , NUMY , argument
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | zmumps_part2.F | 7092 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 D | cmumps_part2.F | 7092 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 D | dmumps_part2.F | 7093 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 D | smumps_part2.F | 7088 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 D | cmumps_part2.F | 7092 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 D | dmumps_part2.F | 7093 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 D | smumps_part2.F | 7088 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 D | zmumps_part2.F | 7092 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 D | cmumps_part2.F | 7092 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 D | dmumps_part2.F | 7088 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 D | zmumps_part2.F | 7092 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 …]
|