SUBROUTINE INIT C C INIT.SUB NAB 20-Mar-85/02-Apr-85. C C Description: C C Control the performance of the initialization functions for C CNVL2D.SAV. Call a routine to get the several parameters from C the keyboard. Call a routine to lock the job into the lowest C possible position in memory and turn on high efficiency termi- C nal mode if running under TSX-Plus. Create and initialize the C virtual array in upper memory. Call a routine to read in the C input image file into the virtual array. Compute the dynamic C sizes of the INBUF, the OUTBUF, and the MSKSQ. Compute the C column and row index values. Initialize the array processor. C #include "CNVL2D.DAT" C 1 FORMAT (/,' ?CNVL2D-F-IVINIT error #',I2,A1,/) C C CALL GETPMS C CALL TSTTSX IF (ERRFLG .NE. 0) GO TO 110 C IRET = IVINIT (NROW,NCOL,NSIZ,IOBUF) IF (IRET .EQ. 0) GO TO 100 TYPE 1,IRET,BEEP(1) ERRFLG = 1 GO TO 110 100 CONTINUE C CALL RDFIL C IBFSIZ = MSKSIZ OBFSIZ = 1 + MSKSIZ/2 MSKSQ = MSKSIZ * MSKSIZ C IC1 = MSKSIZ/2 IC2 = 1 + MSKSIZ/2 IC3 = NCOL - MSKSIZ/2 IC4 = 1 + NCOL - MSKSIZ/2 IR1 = MSKSIZ/2 IR2 = 1 + MSKSIZ/2 IR3 = NROW - MSKSIZ/2 IR4 = 1 + NROW - MSKSIZ/2 C #ifdef skymnk CALL VINIT (ITEMP,4) #endif C 110 CONTINUE RETURN END