/dports/misc/libemos/libemos-4.5.9-Source/bufrdc_wmo/ |
H A D | bupkey.F | 191 IW=2 314 CALL BUPCK(NBPW,KSEC2(IW),KEY(25),IW,IB,16,KERR) 319 CALL BUPCK(NBPW,KSEC2(IW),KEY(26),IW,IB, 6,KERR) 324 CALL BUPCK(NBPW,KSEC2(IW),KEY(27),IW,IB, 5,KERR) 329 CALL BUPCK(NBPW,KSEC2(IW),KEY(28),IW,IB, 6,KERR) 334 CALL BUPCK(NBPW,KSEC2(IW),KEY(29),IW,IB, 6,KERR) 339 CALL BUPCK(NBPW,KSEC2(IW),0 ,IW,IB, 1,KERR) 342 CALL BUPCK(NBPW,KSEC2(IW),KEY(30),IW,IB, 6,KERR) 347 CALL BUPCK(NBPW,KSEC2(IW),KEY(31),IW,IB, 5,KERR) 352 CALL BUPCK(NBPW,KSEC2(IW),KEY(32),IW,IB, 6,KERR) [all …]
|
H A D | buukey.F | 207 IW=2 210 CALL BUNPCK(NBPW,KSEC2,KEY(2),IW,IB, 8,KERR) 212 CALL BUNPCK(NBPW,KSEC2,KEY(3),IW,IB, 8,KERR) 214 CALL BUNPCK(NBPW,KSEC2,KEY(4),IW,IB,12,KERR) 216 CALL BUNPCK(NBPW,KSEC2,KEY(5),IW,IB, 4,KERR) 218 CALL BUNPCK(NBPW,KSEC2,KEY(6),IW,IB, 6,KERR) 220 CALL BUNPCK(NBPW,KSEC2,KEY(7),IW,IB, 5,KERR) 222 CALL BUNPCK(NBPW,KSEC2,KEY(8),IW,IB, 6,KERR) 224 CALL BUNPCK(NBPW,KSEC2,KEY(9),IW,IB, 6,KERR) 305 CALL BUNPCK(NBPW,KSEC2,KEY(34),IW,IB,6,KERR) [all …]
|
/dports/graphics/imageworsener/imageworsener-1.3.4/tests/ |
H A D | runtest | 24 IW="$1" 28 if [ "$IW" = "" ] 36 IW="$x" 41 if [ "$IW" = "" ] 47 echo "Testing $IW" 81 $IW srcimg/$f.png actual/png-${f}ns.png $DCMPR 232 $IW srcimg/p4.png actual/dens-3ns.png $DCMPR 233 $IW srcimg/p4.png actual/dens-3ns.jpg 242 $IW srcimg/rgb8x2.png actual/dens-6ns.png 261 $IW srcimg/p8-sbit.png actual/sbit2.png $CMPR [all …]
|
/dports/science/cdf/cdf33_0-dist/src/tools/ |
H A D | cdfedit1.c | 200 ItemWindow (UPDATEiw, &IW, IW.itemN); 290 ItemWindow (UPDATEiw, &IW, IW.itemN); 367 ItemWindow (UPDATEiw, &IW, IW.itemN); 397 ItemWindow (UPDATEiw, &IW, IW.itemN); 418 ItemWindow (UPDATEiw, &IW, IW.itemN); 467 ItemWindow (UPDATEiw, &IW, IW.nItems - 1); 1422 ItemWindow (UPDATEiw, &IW, IW.itemN); 1477 ItemWindow (UPDATEiw, &IW, IW.itemN); 2419 int itemNt = IW.itemN - (IW.itemN % 3); 2978 ItemWindow (UPDATEiw, &IW, IW.itemN); [all …]
|
H A D | cdfedit2.c | 174 ItemWindow (UPDATEiw, &IW, IW.itemN); 222 ItemWindow (UPDATEiw, &IW, IW.itemN); 298 ItemWindow (UPDATEiw, &IW, IW.itemN); 345 ItemWindow (UPDATEiw, &IW, IW.itemN); 367 ItemWindow (UPDATEiw, &IW, IW.itemN); 843 if (IW.itemN == IW.nItems - 1) { 866 ItemWindow (UPDATEiw, &IW, IW.itemN); 937 if (IW.itemN == IW.nItems - 1) { 1005 ItemWindow (UPDATEiw, &IW, IW.itemN); 1300 ItemWindow (UPDATEiw, &IW, IW.itemN); [all …]
|
H A D | widgets.c | 153 IW->iRowB = IW->iRowT + IW->NiRows - 1; in ItemWindow() 210 IW->NhLines, IW->hLines, IW->nColS); in ItemWindow() 245 IW->iCols, IW->iLens, IW->iDownTo, IW->iUpTo, in ItemWindow() 258 IW->iLineNs[IW->itemN], IW->iRowB); in ItemWindow() 273 IW->iRowN = IW->iRowT + IW->iLineNs[IW->itemN]; in ItemWindow() 275 IW->NiLines, IW->iLines, IW->nColS); in ItemWindow() 285 IW->NiLines, IW->iLines, IW->nColS); in ItemWindow() 294 erase_display (IW->wid, IW->iRowT, 1, IW->iRowB, IW->nColS); in ItemWindow() 372 IW->iCols[IW->itemN] + IW->iLens[IW->itemN] + 1); in ItemWindow() 405 IW->iRowB, IW->iRowT, IW->iScroll, &(IW->itemN), in ItemWindow() [all …]
|
H A D | cdfedit.c | 407 ItemWindow (UPDATEiw, &IW, MINIMUM(IW.itemN,lastItemN)); 527 ItemWindow (UPDATEiw, &IW, MINIMUM(IW.itemN,lastItemN)); 935 ItemWindow (UPDATEiw, &IW, IW.itemN); 961 ItemWindow (UPDATEiw, &IW, IW.itemN); 986 ItemWindow (UPDATEiw, &IW, IW.itemN); 1001 ItemWindow (UPDATEiw, &IW, IW.itemN); 1016 ItemWindow (UPDATEiw, &IW, IW.itemN); 1031 ItemWindow (UPDATEiw, &IW, IW.itemN); 1046 ItemWindow (UPDATEiw, &IW, IW.itemN); 1060 ItemWindow (UPDATEiw, &IW, IW.itemN); [all …]
|
/dports/math/slatec/src/ |
H A D | dlpdp.f | 106 IW = IW + N2 110 IW = IW + N1 114 IW = IW + 1 118 IW = IW + N 120 IW = IW + 1 126 IW = IW + M 162 IW = IW + N2 164 IW = IW + 1 168 IW = IW + N2 170 IW = IW + 1 [all …]
|
H A D | lpdp.f | 110 IW = IW + N2 114 IW = IW + N1 118 IW = IW + 1 122 IW = IW + N 124 IW = IW + 1 130 IW = IW + M 160 IW = IW + N2 162 IW = IW + 1 166 IW = IW + N2 168 IW = IW + 1 [all …]
|
H A D | la05ad.f | 82 IW(I,J) = 0 98 IW(I,1) = IW(I,1) + 1 99 IW(J,2) = IW(J,2) + 1 250 IW(J,2) = IW(J,2) - 1 286 IF (LROW+IW(IR,1)+IW(IPP,1)+LENL.LE.IA) GO TO 350 287 IF (NCP.GE.MCP .OR. LENU+IW(IR,1)+IW(IPP,1)+LENL.GT.IA) GO 420 IW(J,3) = I 422 IW(J,4) = I 423 IW(I,2) = 0 430 IW(J,2) = IW(J,2) + 1 [all …]
|
H A D | la05as.f | 79 IW(I,J) = 0 95 IW(I,1) = IW(I,1) + 1 96 IW(J,2) = IW(J,2) + 1 247 IW(J,2) = IW(J,2) - 1 283 IF (LROW+IW(IR,1)+IW(IPP,1)+LENL.LE.IA) GO TO 350 284 IF (NCP.GE.MCP .OR. LENU+IW(IR,1)+IW(IPP,1)+LENL.GT.IA) GO 417 IW(J,3) = I 419 IW(J,4) = I 420 IW(I,2) = 0 427 IW(J,2) = IW(J,2) + 1 [all …]
|
H A D | la05cd.f | 54 IW(JM,2) = 0 60 IW(I,1) = NZ 72 I = IW(II,3) 86 NZ = IW(I,1) 113 IF (IW(IM,1).EQ.0 .OR. IW(JM,2).EQ.0 .OR. M.GT.LAST) GO TO 590 122 I = IW(II,3) 141 IW(II,3) = IW(IJ,4) 214 IW(IJ,4) = IW(IN,3) 220 IW(I,3) = IW(I,4) 254 IF (IW(IPP,1).LE.IW(IR,1)) GO TO 340 [all …]
|
H A D | la05cs.f | 55 IW(JM,2) = 0 61 IW(I,1) = NZ 73 I = IW(II,3) 87 NZ = IW(I,1) 114 IF (IW(IM,1).EQ.0 .OR. IW(JM,2).EQ.0 .OR. M.GT.LAST) GO TO 590 123 I = IW(II,3) 142 IW(II,3) = IW(IJ,4) 215 IW(IJ,4) = IW(IN,3) 221 IW(I,3) = IW(I,4) 255 IF (IW(IPP,1).LE.IW(IR,1)) GO TO 340 [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/fc/ |
H A D | lpdp.f | 107 IW = IW + N2 111 IW = IW + N1 115 IW = IW + 1 119 IW = IW + N 121 IW = IW + 1 127 IW = IW + M 157 IW = IW + N2 159 IW = IW + 1 163 IW = IW + N2 165 IW = IW + 1 [all …]
|
/dports/math/mumps/mumps-5.1.2/src/ |
H A D | sfac_mem_compress_cb.F | 20 SIZE_FREE=int(IW(1+XSIZE+2),8)*int(IW(1+XSIZE+3),8) 23 SIZE_FREE=int(IW(1+XSIZE+2),8)*int(IW(1+XSIZE)+ 38 INTEGER IW(LIW) local 43 NEXT=IW(ICURRENT+XXP) 51 INTEGER IW(LIW) local 55 IW(I+ISIZE2SHIFT)=IW(I) 59 IW(I+ISIZE2SHIFT)=IW(I) 117 NEXT = IW(ICURRENT+XXP) 196 & IW(ICURRENT+XSIZE)+IW(ICURRENT+XSIZE+3), 0, 202 & IW(ICURRENT+XSIZE)+IW(ICURRENT+XSIZE+3), [all …]
|
H A D | zfac_mem_compress_cb.F | 20 SIZE_FREE=int(IW(1+XSIZE+2),8)*int(IW(1+XSIZE+3),8) 23 SIZE_FREE=int(IW(1+XSIZE+2),8)*int(IW(1+XSIZE)+ 38 INTEGER IW(LIW) local 43 NEXT=IW(ICURRENT+XXP) 51 INTEGER IW(LIW) local 55 IW(I+ISIZE2SHIFT)=IW(I) 59 IW(I+ISIZE2SHIFT)=IW(I) 117 NEXT = IW(ICURRENT+XXP) 196 & IW(ICURRENT+XSIZE)+IW(ICURRENT+XSIZE+3), 0, 202 & IW(ICURRENT+XSIZE)+IW(ICURRENT+XSIZE+3), [all …]
|
H A D | cfac_mem_compress_cb.F | 20 SIZE_FREE=int(IW(1+XSIZE+2),8)*int(IW(1+XSIZE+3),8) 23 SIZE_FREE=int(IW(1+XSIZE+2),8)*int(IW(1+XSIZE)+ 38 INTEGER IW(LIW) local 43 NEXT=IW(ICURRENT+XXP) 51 INTEGER IW(LIW) local 55 IW(I+ISIZE2SHIFT)=IW(I) 59 IW(I+ISIZE2SHIFT)=IW(I) 117 NEXT = IW(ICURRENT+XXP) 196 & IW(ICURRENT+XSIZE)+IW(ICURRENT+XSIZE+3), 0, 202 & IW(ICURRENT+XSIZE)+IW(ICURRENT+XSIZE+3), [all …]
|
H A D | dfac_mem_compress_cb.F | 20 SIZE_FREE=int(IW(1+XSIZE+2),8)*int(IW(1+XSIZE+3),8) 23 SIZE_FREE=int(IW(1+XSIZE+2),8)*int(IW(1+XSIZE)+ 38 INTEGER IW(LIW) local 43 NEXT=IW(ICURRENT+XXP) 51 INTEGER IW(LIW) local 55 IW(I+ISIZE2SHIFT)=IW(I) 59 IW(I+ISIZE2SHIFT)=IW(I) 117 NEXT = IW(ICURRENT+XXP) 196 & IW(ICURRENT+XSIZE)+IW(ICURRENT+XSIZE+3), 0, 202 & IW(ICURRENT+XSIZE)+IW(ICURRENT+XSIZE+3), [all …]
|
H A D | dfac_mem_alloc_cb.F | 16 & IW, LIW, A, LA, argument 31 INTEGER IW(LIW),PTRIST(KEEP(28)) local 68 IW(IWPOSCB+1+XXI)=KEEP(IXSZ) 70 IW(IWPOSCB+1+XXN)=-919191 71 IW(IWPOSCB+1+XXS)=S_NOTFREE 106 IW(IWPOSCB+1+XXP+IW(IWPOSCB+1+XXI))=IWPOSCB+1 153 IF (IW(IXXP).GT.0) THEN 158 IW(IXXP)= IWPOSCB + 1 159 IW(IWPOSCB+1+XXI)=LREQ 162 IW(IWPOSCB+1+XXN)=NODE_ARG [all …]
|
H A D | sfac_mem_alloc_cb.F | 16 & IW, LIW, A, LA, argument 31 INTEGER IW(LIW),PTRIST(KEEP(28)) local 68 IW(IWPOSCB+1+XXI)=KEEP(IXSZ) 70 IW(IWPOSCB+1+XXN)=-919191 71 IW(IWPOSCB+1+XXS)=S_NOTFREE 106 IW(IWPOSCB+1+XXP+IW(IWPOSCB+1+XXI))=IWPOSCB+1 153 IF (IW(IXXP).GT.0) THEN 158 IW(IXXP)= IWPOSCB + 1 159 IW(IWPOSCB+1+XXI)=LREQ 162 IW(IWPOSCB+1+XXN)=NODE_ARG [all …]
|
H A D | cfac_mem_alloc_cb.F | 16 & IW, LIW, A, LA, argument 31 INTEGER IW(LIW),PTRIST(KEEP(28)) local 68 IW(IWPOSCB+1+XXI)=KEEP(IXSZ) 70 IW(IWPOSCB+1+XXN)=-919191 71 IW(IWPOSCB+1+XXS)=S_NOTFREE 106 IW(IWPOSCB+1+XXP+IW(IWPOSCB+1+XXI))=IWPOSCB+1 153 IF (IW(IXXP).GT.0) THEN 158 IW(IXXP)= IWPOSCB + 1 159 IW(IWPOSCB+1+XXI)=LREQ 162 IW(IWPOSCB+1+XXN)=NODE_ARG [all …]
|
H A D | zfac_mem_alloc_cb.F | 16 & IW, LIW, A, LA, argument 31 INTEGER IW(LIW),PTRIST(KEEP(28)) local 68 IW(IWPOSCB+1+XXI)=KEEP(IXSZ) 70 IW(IWPOSCB+1+XXN)=-919191 71 IW(IWPOSCB+1+XXS)=S_NOTFREE 106 IW(IWPOSCB+1+XXP+IW(IWPOSCB+1+XXI))=IWPOSCB+1 153 IF (IW(IXXP).GT.0) THEN 158 IW(IXXP)= IWPOSCB + 1 159 IW(IWPOSCB+1+XXI)=LREQ 162 IW(IWPOSCB+1+XXN)=NODE_ARG [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/splp/ |
H A D | la05as.f | 62 IW(I,J) = 0 78 IW(I,1) = IW(I,1) + 1 79 IW(J,2) = IW(J,2) + 1 230 IW(J,2) = IW(J,2) - 1 266 IF (LROW+IW(IR,1)+IW(IPP,1)+LENL.LE.IA) GO TO 350 267 IF (NCP.GE.MCP .OR. LENU+IW(IR,1)+IW(IPP,1)+LENL.GT.IA) GO 400 IW(J,3) = I 402 IW(J,4) = I 403 IW(I,2) = 0 410 IW(J,2) = IW(J,2) + 1 [all …]
|
H A D | la05cs.f | 36 IW(JM,2) = 0 42 IW(I,1) = NZ 54 I = IW(II,3) 68 NZ = IW(I,1) 95 IF (IW(IM,1).EQ.0 .OR. IW(JM,2).EQ.0 .OR. M.GT.LAST) GO TO 590 104 I = IW(II,3) 123 IW(II,3) = IW(IJ,4) 196 IW(IJ,4) = IW(IN,3) 202 IW(I,3) = IW(I,4) 236 IF (IW(IPP,1).LE.IW(IR,1)) GO TO 340 [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/EIG/ |
H A D | derrst.f | 466 $ R, Z, 1, IW, X, 20*N, IW( 2*N+1 ), 10*N, INFO ) 470 $ R, Z, 1, IW, X, 20*N, IW( 2*N+1 ), 10*N, INFO ) 474 $ R, Z, 1, IW, X, 20*N, IW( 2*N+1 ), 10*N, INFO ) 478 $ R, Z, 1, IW, X, 20*N, IW( 2*N+1 ), 10*N, INFO ) 482 $ W, Z, 1, IW, X, 20*N, IW( 2*N+1 ), 10*N, INFO ) 487 $ W, Z, 1, IW, X, 20*N, IW( 2*N+1 ), 10*N, INFO ) 492 $ W, Z, 0, IW, X, 20*N, IW( 2*N+1 ), 10*N, INFO ) 496 $ W, Z, 1, IW, X, 20*N-1, IW( 2*N+1 ), 10*N, INFO ) 500 $ W, Z, 1, IW, X, 20*N, IW( 2*N+1 ), 10*N-1, INFO ) 584 $ M, R, Z, 1, IW, Q, 26*N-1, IW( 2*N+1 ), 10*N, [all …]
|