SUBROUTINE WORK C C WORK.SUB NAB 20-Mar-85/02-Apr-85. C C Description: C C Get a row of the image from the virtual array. Call a routine C to move the row of data, filter it, and return it. Replace the C row of image data into the virtual array. Loop back and repeat C the process until all rows are done. C #include "CNVL2D.DAT" C 1 FORMAT ('+ IROW =',I4) 2 FORMAT (/,' CNVL2D-F-IGTROW error #',I1,A1,/) 3 FORMAT (/,' CNVL2D-F-IPTROW error #',I1,A1,/) C C DO 100 IROW = 1,IR1 TYPE 1,IROW 100 CONTINUE DO 130 IROW = IR2,IR3 TYPE 1,IROW IRET = IGTROW (IROW) IF (IRET .EQ. 0) GO TO 110 TYPE 2,IRET,BEEP(1) ERRFLG = 1 GO TO 150 110 CONTINUE C CALL MOVDAT C IRET = IPTROW (IROW) IF (IRET .EQ. 0) GO TO 120 TYPE 2,IRET,BEEP(1) ERRFLG = 1 GO TO 150 120 CONTINUE 130 CONTINUE DO 140 IROW = IR4,NROW TYPE 1,IROW 140 CONTINUE C 150 CONTINUE RETURN END