/* CNVL2D.DAT NAB 20-Mar-85/02-Apr-85. Unlabeled COMMON for the CNVL2D.SAV modules. */ #define ncol 640 /* number of columns in image array */ #define nlen 320 /* nlen = ncol/2 */ #define nrow 480 /* number of rows in image array */ #define nsiz 1 /* size of a pixel in bytes */ /* #define skymnk 1 /* define for array processor */ C COMMON /* word aligned values */ * ACCUM, /* accumulator for sum of products */ * ERRFLG, /* error flag */ * FWTS, /* filter weights buffer */ * IBFPTR, /* INBUF pointer */ * IBFSIZ, /* INBUF dynamic size */ * IC1, /* column */ * IC2, /* index */ * IC3, /* values */ * IC4, /* for MOVDAT.SUB */ * ICOL, /* column number index */ * ILEN, /* length of a character string */ * ILUN, /* input file logical unit number */ * IR1, /* row */ * IR2, /* index */ * IR3, /* values */ * IR4, /* for WORK.SUB */ * IRET, /* temporary function return value */ * IROW, /* row number index */ * ITEMP, /* array processot templates */ * MSKSIZ, /* convolving mask size */ * MSKSQ, /* mask size squared */ * NCOL, /* number of columns in image array */ * NLEN, /* length of IINBUF, IIOBUF, and IOTBUF */ * NROW, /* number of rows in image array */ * NSIZ, /* size of image pixel in bytes */ * OBFPTR, /* OUTBUF pointer */ * OBFSIZ, /* OUTBUF dynamic size */ * OLUN, /* output file logical unit number */ * TSXFLG /* TSX-Plus flag, >0 for TSX-Plus, =0 for RT-11 */ COMMON /* byte aligned values */ * BEEP, /* the "bel" character followed by a "nul" */ * COMMA, /* the "comma" character followed by a "nul" */ * INBUF, /* input buffer for array columns or rows */ * INFIL, /* input file specification */ * IOBUF, /* I/O buffer for virtual array access */ * OUTFIL, /* output file specification */ * OUTBUF, /* output buffer for array columns or rows */ * STRING, /* temporary array for keyboard inputs */ * SBSTR /* temporary substring array */ C DIMENSION * BEEP (2), * COMMA (2), * FWTS (7,7), #ifdef skymnk * IINBUF (nlen,7), * IIOBUF (nlen), #endif * INFIL (20), * INBUF (ncol,7), * IOBUF (ncol), #ifdef skymnk * IOTBUF (nlen,4), #endif * ITEMP (14,4), * OUTBUF (ncol,4), * OUTFIL (20), * STRING (80), * SBSTR (20) C BYTE * INBUF, * IOBUF, * OUTBUF C INTEGER * ACCUM, * ERRFLG, * FWTS, * IBFPTR, * IBFSIZ, * IC1, * IC2, * IC3, * IC4, * ICOL, #ifdef skymnk * IINBUF, * IIOBUF, #endif * ILEN, * ILUN, #ifdef skymnk * IOTBUF, #endif * IR1, * IR2, * IR3, * IR4, * IRET, * IROW, * ITEMP, * MSKSIZ, * MSKSQ, * NCOL, * NLEN, * NROW, * NSIZ, * OBFPTR, * OBFSIZ, * OLUN, * TSXFLG C LOGICAL*1 * BEEP, * COMMA, * INFIL, * OUTFIL, * STRING, * SBSTR #ifdef skymnk C EQUIVALENCE * (INBUF,IINBUF), * (IOBUF,IIOBUF), * (OUTBUF,IOTBUF) #endif C DATA * ACCUM /0/, * BEEP /"007,"000/, * COMMA /"054,"000/, * ERRFLG /0/, * ILUN /10/, * NCOL /ncol/, * NLEN /nlen/, * NROW /nrow/, * NSIZ /nsiz/, * OLUN /20/ C /* End of file, CNVL2D.DAT */