SUBROUTINE GETPMS C C GETPMS.SUB NAB 21-Mar-85/28-Mar-85. C C Description: C C Prompt for and accept the input and output image file specifi- C cations. Prompt for and accept the convolution mask size. C Call a routine to get the convolution mask filter weights. C #include "CNVL2D.DAT" C 1 FORMAT (I1) 2 FORMAT (/,' ?CNVL2D-E-No input file specification entered,', * ' try again',A1,/) 3 FORMAT (/,' ?CNVL2D-E-No output file specification entered,', * ' try again',A1,/) 4 FORMAT (/,' ?CNVL2D-E-No mask size entered, try again',A1,/) 5 FORMAT (/,' ?CNVL2D-E-Mask size error, try again',A1,/) C C CALL GTLIN (INFIL,'Enter the input image DEV:FILNAM.EXT') ILEN = LEN (INFIL) IF (ILEN .NE. 0) GO TO 200 TYPE 2,BEEP(1) GO TO 200 200 CONTINUE CALL GTLIN (OUTFIL,'Enter the output image DEV:FILNAM.EXT') ILEN = LEN (OUTFIL) IF (ILEN .NE. 0) GO TO 210 TYPE 3,BEEP(1) GO TO 200 210 CONTINUE C CALL GTLIN (STRING,'Enter the convolution mask size [3, 5, 7]') ILEN = LEN (STRING) IF (ILEN .NE. 0) GO TO 220 TYPE 4,BEEP(1) GO TO 210 220 CONTINUE DECODE (ILEN,1,STRING) MSKSIZ IF (MSKSIZ .EQ. 3) GO TO 230 IF (MSKSIZ .EQ. 5) GO TO 230 IF (MSKSIZ .EQ. 7) GO TO 230 TYPE 5,BEEP(1) GO TO 210 230 CONTINUE C CALL GETWTS C RETURN END