| /dports/math/slatec/src/ |
| H A D | dpsort.f | 109 IPERM(I) = I
143 LM = IPERM(IJ)
148 IPERM(IJ) = IPERM(I)
157 IPERM(IJ) = IPERM(J)
165 IPERM(IJ) = IPERM(I)
171 50 LMT = IPERM(L)
172 IPERM(L) = IPERM(K)
173 IPERM(K) = LMT
223 110 IPERM(K+1) = IPERM(K)
252 IPERM(INDX) = -IPERM(INDX)
[all …]
|
| H A D | spsort.f | 107 IPERM(I) = I
141 LM = IPERM(IJ)
146 IPERM(IJ) = IPERM(I)
155 IPERM(IJ) = IPERM(J)
163 IPERM(IJ) = IPERM(I)
169 50 LMT = IPERM(L)
170 IPERM(L) = IPERM(K)
171 IPERM(K) = LMT
221 110 IPERM(K+1) = IPERM(K)
251 IPERM(INDX) = -IPERM(INDX)
[all …]
|
| H A D | ipsort.f | 109 IPERM(I) = I
143 LM = IPERM(IJ)
148 IPERM(IJ) = IPERM(I)
157 IPERM(IJ) = IPERM(J)
165 IPERM(IJ) = IPERM(I)
171 50 LMT = IPERM(L)
172 IPERM(L) = IPERM(K)
173 IPERM(K) = LMT
223 110 IPERM(K+1) = IPERM(K)
253 IPERM(INDX) = -IPERM(INDX)
[all …]
|
| H A D | hpsort.f | 201 LM = IPERM(IJ)
206 IPERM(IJ) = IPERM(I)
215 IPERM(IJ) = IPERM(J)
224 IPERM(IJ) = IPERM(I)
230 40 LMT = IPERM(L)
231 IPERM(L) = IPERM(K)
232 IPERM(K) = LMT
285 100 IPERM(K+1) = IPERM(K)
303 IPERM(I) = IPERM(IR)
323 IPERM(INDX) = -IPERM(INDX)
[all …]
|
| H A D | dpperm.f | 2 SUBROUTINE DPPERM (DX, N, IPERM, IER) argument
35 INTEGER N, IPERM(*), I, IER, INDX, INDX0, ISTRT
50 INDX=ABS(IPERM(I))
52 IF(IPERM(INDX).GT.0)THEN
53 IPERM(INDX)=-IPERM(INDX)
69 IF (IPERM(ISTRT) .GT. 0) GOTO 330
74 IF (IPERM(INDX) .GE. 0) GOTO 325
75 DX(INDX) = DX(-IPERM(INDX))
77 IPERM(INDX) = -IPERM(INDX)
78 INDX = IPERM(INDX)
|
| H A D | spperm.f | 2 SUBROUTINE SPPERM (X, N, IPERM, IER) argument
34 INTEGER N, IPERM(*), I, IER, INDX, INDX0, ISTRT
49 INDX=ABS(IPERM(I))
51 IF(IPERM(INDX).GT.0)THEN
52 IPERM(INDX)=-IPERM(INDX)
68 IF (IPERM(ISTRT) .GT. 0) GOTO 330
73 IF (IPERM(INDX) .GE. 0) GOTO 325
74 X(INDX) = X(-IPERM(INDX))
76 IPERM(INDX) = -IPERM(INDX)
77 INDX = IPERM(INDX)
|
| H A D | ipperm.f | 2 SUBROUTINE IPPERM (IX, N, IPERM, IER) argument
34 INTEGER IX(*), N, IPERM(*), I, IER, INDX, INDX0, ITEMP, ISTRT
48 INDX=ABS(IPERM(I))
50 IF(IPERM(INDX).GT.0)THEN
51 IPERM(INDX)=-IPERM(INDX)
67 IF (IPERM(ISTRT) .GT. 0) GOTO 330
72 IF (IPERM(INDX) .GE. 0) GOTO 325
73 IX(INDX) = IX(-IPERM(INDX))
75 IPERM(INDX) = -IPERM(INDX)
76 INDX = IPERM(INDX)
|
| H A D | hpperm.f | 2 SUBROUTINE HPPERM (HX, N, IPERM, WORK, IER) argument
39 INTEGER N, IPERM(*), I, IER, INDX, INDX0, ISTRT
60 INDX=ABS(IPERM(I))
62 IF(IPERM(INDX).GT.0)THEN
63 IPERM(INDX)=-IPERM(INDX)
79 IF (IPERM(ISTRT) .GT. 0) GOTO 330
84 IF (IPERM(INDX) .GE. 0) GOTO 325
85 HX(INDX) = HX(-IPERM(INDX))
87 IPERM(INDX) = -IPERM(INDX)
88 INDX = IPERM(INDX)
|
| /dports/science/healpix/Healpix_3.50/src/f90/mod/ |
| H A D | source_gen_sort_inc.f90 | 47 IPERM(I) = I
81 LM = IPERM(IJ)
86 IPERM(IJ) = IPERM(I)
95 IPERM(IJ) = IPERM(J)
103 IPERM(IJ) = IPERM(I)
109 50 LMT = IPERM(L)
110 IPERM(L) = IPERM(K)
111 IPERM(K) = LMT
161 110 IPERM(K+IONE) = IPERM(K)
191 IPERM(INDX) = -IPERM(INDX)
[all …]
|
| /dports/graphics/xd3d/xd3d-8.3.1/src/d3d/ |
| H A D | echel.f | 27 U1 = XC(IPERM(3,I))-XC(IPERM(1,I))
28 U2 = YC(IPERM(3,I))-YC(IPERM(1,I))
29 U3 = ZC(IPERM(3,I))-ZC(IPERM(1,I))
30 V1 = XC(IPERM(4,I))-XC(IPERM(2,I))
31 V2 = YC(IPERM(4,I))-YC(IPERM(2,I))
32 V3 = ZC(IPERM(4,I))-ZC(IPERM(2,I))
38 U1 = XC(IPERM(3,I))-XC(IPERM(1,I))
39 U2 = YC(IPERM(3,I))-YC(IPERM(1,I))
45 & (XC(IPERM(1,I))+XC(IPERM(2,I))+XC(IPERM(3,I))+XC(IPERM(4,I)))
47 & (YC(IPERM(1,I))+YC(IPERM(2,I))+YC(IPERM(3,I))+YC(IPERM(4,I)))
[all …]
|
| H A D | rayfac.f | 5 DIMENSION NODE(27),IPERM(9,6)
7 DATA IPERM/
16 II = NODE(IPERM(I,IFAC))
27 II = NODE(IPERM(I,IFAC))
|
| /dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/superlu/SuperLU_4.1/SRC/ |
| H A D | mc21.f | 4 SUBROUTINE MC21AD(N,ICN,LICN,IP,LENR,IPERM,NUMNZ,IW) argument
9 INTEGER ICN(LICN),IP(N),IPERM(N),IW(N,4),LENR(N) local
15 CALL MC21BD(N,ICN,LICN,IP,LENR,IPERM,NUMNZ,IW(1,1),IW(1,2),
47 IPERM(I) = 0
66 IF (IPERM(I).EQ.0) GO TO 80
85 J = IPERM(I)
103 IPERM(I) = J
111 IPERM(I) = J
124 IF (IPERM(I).NE.0) GO TO 120
130 J = IPERM(I)
[all …]
|
| /dports/math/mumps/mumps-5.1.2/src/ |
| H A D | dana_mtrans.F | 86 IPERM(I) = 0
111 IPERM(I0) = J
129 JJ = IPERM(I)
142 IPERM(II) = JJ
146 IPERM(I) = J
767 80 IPERM(I) = J
818 IPERM(I) = 0
832 J = IPERM(I)
863 IF (IPERM(I).NE.0 .OR. IPERM(I0).EQ.0) GO TO 50
892 IPERM(I) = J
[all …]
|
| H A D | sana_mtrans.F | 86 IPERM(I) = 0
111 IPERM(I0) = J
129 JJ = IPERM(I)
142 IPERM(II) = JJ
146 IPERM(I) = J
767 80 IPERM(I) = J
818 IPERM(I) = 0
832 J = IPERM(I)
863 IF (IPERM(I).NE.0 .OR. IPERM(I0).EQ.0) GO TO 50
892 IPERM(I) = J
[all …]
|
| H A D | zana_mtrans.F | 86 IPERM(I) = 0
111 IPERM(I0) = J
129 JJ = IPERM(I)
142 IPERM(II) = JJ
146 IPERM(I) = J
767 80 IPERM(I) = J
818 IPERM(I) = 0
832 J = IPERM(I)
863 IF (IPERM(I).NE.0 .OR. IPERM(I0).EQ.0) GO TO 50
892 IPERM(I) = J
[all …]
|
| H A D | cana_mtrans.F | 86 IPERM(I) = 0
111 IPERM(I0) = J
129 JJ = IPERM(I)
142 IPERM(II) = JJ
146 IPERM(I) = J
767 80 IPERM(I) = J
818 IPERM(I) = 0
832 J = IPERM(I)
863 IF (IPERM(I).NE.0 .OR. IPERM(I0).EQ.0) GO TO 50
892 IPERM(I) = J
[all …]
|
| H A D | zooc_panel_piv.F | 113 INTEGER I, IPERM local
120 IPERM=IPIV(I)
121 IF ( I+ISHIFT.NE.IPERM) THEN
124 & THE_PANEL(IPERM-KbeforePanel,1), NBROW)
|
| H A D | cooc_panel_piv.F | 113 INTEGER I, IPERM local
120 IPERM=IPIV(I)
121 IF ( I+ISHIFT.NE.IPERM) THEN
124 & THE_PANEL(IPERM-KbeforePanel,1), NBROW)
|
| H A D | sooc_panel_piv.F | 113 INTEGER I, IPERM local
120 IPERM=IPIV(I)
121 IF ( I+ISHIFT.NE.IPERM) THEN
124 & THE_PANEL(IPERM-KbeforePanel,1), NBROW)
|
| H A D | dooc_panel_piv.F | 113 INTEGER I, IPERM local
120 IPERM=IPIV(I)
121 IF ( I+ISHIFT.NE.IPERM) THEN
124 & THE_PANEL(IPERM-KbeforePanel,1), NBROW)
|
| /dports/biology/mopac/mopac7-1.15/fortran/ |
| H A D | perm.f | 1 SUBROUTINE PERM(IPERM,NELS,NMOS,MAXMOS,NPERMS) argument
2 DIMENSION IPERM(MAXMOS,60), IADD(20), NEL(20)
53 30 IPERM(J,NPERMS)=0
55 40 IPERM(IADD(J),NPERMS)=1
|
| /dports/math/rubiks/rubiks-20070912/dik/trans/ |
| H A D | inv.a | 2 #ifndef IPERM
7 #else /* IPERM */
13 #endif /* IPERM */
|
| H A D | sperm.a | 22 #ifdef IPERM
24 #endif /* IPERM */
34 #ifdef IPERM
36 #endif /* IPERM */
|
| H A D | eperm.a | 22 #ifdef IPERM
24 #endif /* IPERM */
34 #ifdef IPERM
36 #endif /* IPERM */
|
| /dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
| H A D | zlaed0.f | 172 $ IGIVPT, INDXQ, IPERM, IPRMPT, IQ, IQPTR, IWREM,
261 IPERM = IPRMPT + N*LGN
262 IQPTR = IPERM + N*LGN
340 $ IWORK( IPERM ), IWORK( IGIVPT ),
|