| /dports/misc/libemos/libemos-4.5.9-Source/gribex/ |
| H A D | dswmrs.F | 106 IBYTE=8
109 CALL GBYTES(MGRIBS(IWORD),IBLOSW(1),IOFF,IBYTE,0,IVAL)
110 CALL OFFSET(IOFF,IVAL,IWORD,IBYTE,IBITCR,ILMGRIB,IERR)
119 IBYTE=8
122 CALL OFFSET(IOFF,IVAL,IWORD,IBYTE,IBITCR,ILMGRIB,IERR)
144 IBYTE=8
146 CALL GBYTES(MGRIBS(IWORD),ILSOUT(1),IOFF,IBYTE,0,IVAL)
147 CALL OFFSET(IOFF,IVAL,IWORD,IBYTE,IBITCR,ILMGRIB,IERR)
159 IBYTE=16
161 CALL GBYTES(MGRIBS(IWORD),INSOUT(1),IOFF,IBYTE,0,IVAL)
[all …]
|
| H A D | reclen.F | 56 IBYTE = 8
61 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
66 CALL GBYTES (BLOCK(IWORD),IBLOCK(1),IOFF,IBYTE,0,NVAL)
67 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
86 CALL GBYTES (BLOCK(IWORD),IBLOCK(5),IOFF,IBYTE,0,NVAL)
87 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
|
| H A D | sbytes.F | 33 DO 75 IBYTE = 1 , NBYTES
44 1 AND(S(IBYTE),SHIFT(MASK(IBSIZ),IBSIZ))),SH2)
50 1 AND(SHIFT(S(IBYTE),SH3),COMPL(MASK(ISKIP))))
53 2 SHIFT(AND(S(IBYTE),COMPL(MASK(SH3))),SH3-IGNORE))
|
| H A D | bt_cyber.F | 695 DO 75 IBYTE = 1 , NBYTES
703 D(IBYTE) = AND( SHIFT(S(IS),SH1),SHIFT(MASK(IBSIZ),IBSIZ))
708 D(IBYTE) = OR(SHIFT(AND(S(IS),COMPL(MASK(ISKIP))),SH1)
807 DO 75 IBYTE = 1 , NBYTES
818 1 AND(S(IBYTE),SHIFT(MASK(IBSIZ),IBSIZ))),SH2)
824 1 AND(SHIFT(S(IBYTE),SH3),COMPL(MASK(ISKIP))))
827 2 SHIFT(AND(S(IBYTE),COMPL(MASK(SH3))),SH3-IGNORE))
|
| H A D | decext.F | 157 IBYTE = 8
160 CALL OFFSET (IOFF,IVAL,IWORD,IBYTE,KBIT,KLENB,KERR)
169 CALL GBYTES (KGRIB(IWORD),IBLOCK(1),IOFF,IBYTE,0,IVAL)
170 CALL OFFSET (IOFF,IVAL,IWORD,IBYTE,KBIT,KLENB,KERR)
189 CALL GBYTES (KGRIB(IWORD),IBLOCK(5),IOFF,IBYTE,0,IVAL)
190 CALL OFFSET (IOFF,IVAL,IWORD,IBYTE,KBIT,KLENB,KERR)
|
| H A D | gbytes.F | 50 DO 75 IBYTE = 1 , NBYTES
58 D(IBYTE) = AND( SHIFT(S(IS),SH1),SHIFT(MASK(IBSIZ),IBSIZ))
63 D(IBYTE) = OR(SHIFT(AND(S(IS),COMPL(MASK(ISKIP))),SH1)
|
| H A D | decops.F | 212 IBYTE = 8
215 CALL GBYTES (IPSCOD(1),IBLOCK(1),0,IBYTE,0,NVAL)
216 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENPS,IERR)
242 CALL GBYTES (IPSCOD(IWORD),IBLOCK(1),IOFF,IBYTE,0,NVAL)
243 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENPS,IERR)
262 CALL GBYTES (IPSCOD(IWORD),IBLOCK(5),IOFF,IBYTE,0,NVAL)
263 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENPS,IERR)
|
| H A D | bt_cray.F | 1015 DO 75 IBYTE = 1 , NBYTES
1023 D(IBYTE) = AND( SHIFT(S(IS),SH1),SHIFT(MASK(IBSIZ),IBSIZ))
1028 D(IBYTE) = OR(SHIFT(AND(S(IS),COMPL(MASK(ISKIP))),SH1)
1123 DO 75 IBYTE = 1 , NBYTES
1134 1 AND(S(IBYTE),SHIFT(MASK(IBSIZ),IBSIZ))),SH2)
1140 1 AND(SHIFT(S(IBYTE),SH3),COMPL(MASK(ISKIP))))
1143 2 SHIFT(AND(S(IBYTE),COMPL(MASK(SH3))),SH3-IGNORE))
|
| H A D | decogc.F | 215 IBYTE = 8
218 CALL GBYTES (IGRIB(1),IBLOCK(1),0,IBYTE,0,NVAL)
219 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
239 CALL GBYTES (IGRIB(IWORD),IBLOCK(1),IOFF,IBYTE,0,NVAL)
240 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
259 CALL GBYTES (IGRIB(IWORD),IBLOCK(5),IOFF,IBYTE,0,NVAL)
260 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
|
| H A D | decogd.F | 226 IBYTE = 8
229 CALL GBYTES (IGRIB(1),IBLOCK(1),0,IBYTE,0,NVAL)
230 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
250 CALL GBYTES (IGRIB(IWORD),IBLOCK(1),IOFF,IBYTE,0,NVAL)
251 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
270 CALL GBYTES (IGRIB(IWORD),IBLOCK(5),IOFF,IBYTE,0,NVAL)
271 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
|
| H A D | offset.F | 12 SUBROUTINE OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILEN,IERR) argument
78 IBITL = NVAL * IBYTE
|
| H A D | codeps.F | 221 INTEGER ILMISS, KLENLG, IBITS, IBYTE, NVAL, IOFF, KTEMP
350 IBYTE = 8
353 CALL SBYTES(IPSCOD(IWORD),IBLOCK(1),IOFF,IBYTE,0,NVAL)
354 CALL OFFSET(IOFF,NVAL,IWORD,IBYTE,NBIT,ILENPS,IERR)
578 IBYTE = 8
580 CALL SBYTES(IPSCOD(IWORD),IBLOCK(1),IOFF,IBYTE,0,NVAL)
581 CALL OFFSET(IOFF,NVAL,IWORD,IBYTE,NBIT,ILENPS,IERR)
|
| H A D | decops2.F | 217 IBYTE = 8
220 CALL GBYTES (IPSCOD(1),IBLOCK(1),0,IBYTE,0,NVAL)
247 CALL GBYTES (IPSCOD(IWORD),IBLOCK(1),IOFF,IBYTE,0,NVAL)
267 CALL GBYTES (IPSCOD(IWORD),IBLOCK(5),IOFF,IBYTE,0,NVAL)
268 CALL OFFSET2 (IOFF,NVAL*IBYTE,IWORD,NBIT,ILENPS,IERR)
|
| H A D | codegb.F | 283 IBYTE = 8
289 CALL SBYTES (IGRIB(IWORD),IBLOCK(1),IOFF,IBYTE,0,NVAL)
290 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
709 IBYTE = 8
712 CALL SBYTES (IGRIB(IWORD),IBLOCK(1),IOFF,IBYTE,0,NVAL)
713 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
|
| H A D | codegc.F | 267 IBYTE = 8
273 CALL SBYTES (IGRIB(IWORD),IBLOCK(1),IOFF,IBYTE,0,NVAL)
274 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
693 IBYTE = 8
696 CALL SBYTES (IGRIB(IWORD),IBLOCK(1),IOFF,IBYTE,0,NVAL)
697 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
|
| H A D | btcyber.special | 655 C ISKIP1+1+(IBYTE-1)*(IBSIZ+ISKIP2)
683 DO 75 IBYTE = 1 , NBYTES
686 C*** CALL GBYTE(S(IS),D(IBYTE),ISKIP,IBSIZ)
691 D(IBYTE) = AND( SHIFT(S(IS),SH1),SHIFT(MASK(IBSIZ),IBSIZ))
696 D(IBYTE) = OR(SHIFT(AND(S(IS),COMPL(MASK(ISKIP))),SH1)
795 DO 75 IBYTE = 1 , NBYTES
798 C** CALL SBYTE(D(ID),S(IBYTE),ISKIP,IBSIZ)
806 1 AND(S(IBYTE),SHIFT(MASK(IBSIZ),IBSIZ))),SH2)
812 1 AND(SHIFT(S(IBYTE),SH3),COMPL(MASK(ISKIP))))
815 2 SHIFT(AND(S(IBYTE),COMPL(MASK(SH3))),SH3-IGNORE))
|
| H A D | decogr.F | 197 IBYTE = 8
200 CALL GBYTES (IGRIB(1),IBLOCK(1),0,IBYTE,0,NVAL)
201 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
|
| H A D | codegr.F | 569 IBYTE = 8
573 CALL SBYTES (IGRIB(IWORD),IBLOCK(1),IOFF,IBYTE,0,NVAL)
574 CALL OFFSET (IOFF,NVAL,IWORD,IBYTE,NBIT,ILENG,IERR)
|
| H A D | btcray.special | 978 C ISKIP1+1+(IBYTE-1)*(IBSIZ+ISKIP2)
1003 DO 75 IBYTE = 1 , NBYTES
1006 C*** CALL GBYTE(S(IS),D(IBYTE),ISKIP,IBSIZ)
1011 D(IBYTE) = AND( SHIFT(S(IS),SH1),SHIFT(MASK(IBSIZ),IBSIZ))
1016 D(IBYTE) = OR(SHIFT(AND(S(IS),COMPL(MASK(ISKIP))),SH1)
1111 DO 75 IBYTE = 1 , NBYTES
1114 C** CALL SBYTE(D(ID),S(IBYTE),ISKIP,IBSIZ)
1122 1 AND(S(IBYTE),SHIFT(MASK(IBSIZ),IBSIZ))),SH2)
1128 1 AND(SHIFT(S(IBYTE),SH3),COMPL(MASK(ISKIP))))
1131 2 SHIFT(AND(S(IBYTE),COMPL(MASK(SH3))),SH3-IGNORE))
|
| /dports/editors/cudatext/CudaText-1.151.0/atsynedit/atsynedit/ |
| H A D | atstringproc_utf8decode.pas | 30 IBYTE: BYTE;
45 IBYTE:=byte(Source[InputUTF8]);
46 if (IBYTE and $80) = 0 then
48 Dest[OutputUnicode]:=WideChar(IBYTE);
54 TempByte:=IBYTE;
|
| /dports/science/libccp4/libccp4-6.5.1/fortran/ |
| H A D | testlib.f | 28 INTEGER I,IBYTE,IDAY,IER,ILENGTH,ILOOP,IMON,ISEC,ISEED,ISTAT,
135 CALL UBYTES(IBYTE,HANDLE)
136 WRITE (REPLY,FMT=6008) HANDLE,IBYTE
|
| /dports/editors/fpc-ide/fpc-3.2.2/rtl/inc/ |
| H A D | ustrings.inc | 1811 IBYTE: BYTE;
1833 if (IBYTE and $80) = 0 then
1836 if IBYTE = 10 then
1861 PreChar:=IBYTE;
1868 PreChar:=IBYTE;
1874 TempByte:=IBYTE;
1976 if (IBYTE and $80) = 0 then
1979 if IBYTE = 10 then
1992 PreChar:=IBYTE;
1998 PreChar:=IBYTE;
[all …]
|
| /dports/lang/fpc-source/fpc-3.2.2/rtl/inc/ |
| H A D | ustrings.inc | 1811 IBYTE: BYTE;
1833 if (IBYTE and $80) = 0 then
1836 if IBYTE = 10 then
1861 PreChar:=IBYTE;
1868 PreChar:=IBYTE;
1874 TempByte:=IBYTE;
1976 if (IBYTE and $80) = 0 then
1979 if IBYTE = 10 then
1992 PreChar:=IBYTE;
1998 PreChar:=IBYTE;
[all …]
|
| /dports/lang/fpc/fpc-3.2.2/rtl/inc/ |
| H A D | ustrings.inc | 1811 IBYTE: BYTE;
1833 if (IBYTE and $80) = 0 then
1836 if IBYTE = 10 then
1861 PreChar:=IBYTE;
1868 PreChar:=IBYTE;
1874 TempByte:=IBYTE;
1976 if (IBYTE and $80) = 0 then
1979 if IBYTE = 10 then
1992 PreChar:=IBYTE;
1998 PreChar:=IBYTE;
[all …]
|
| /dports/lang/fpc-utils/fpc-3.2.2/rtl/inc/ |
| H A D | ustrings.inc | 1811 IBYTE: BYTE;
1833 if (IBYTE and $80) = 0 then
1836 if IBYTE = 10 then
1861 PreChar:=IBYTE;
1868 PreChar:=IBYTE;
1874 TempByte:=IBYTE;
1976 if (IBYTE and $80) = 0 then
1979 if IBYTE = 10 then
1992 PreChar:=IBYTE;
1998 PreChar:=IBYTE;
[all …]
|