SUBROUTINE CVTWTS (IROW) C C CVTWTS.SUB NAB 21-Mar-85/. C C Description: C C Convert a row of convolution mask filter weights. C #include "CNVL2D.DAT" C 1 FORMAT (I4) 2 FORMAT (' ?CNVL2D-E-Weights value error, try again',A1,/) 3 FORMAT (' ?CNVL2D-E-No weights entered, try again',A1,/) C ILEN = LEN (STRING) IF (ILEN .EQ. 0) GO TO 410 ERRFLG = 0 ISTRT = 1 DO 400 I = 1,MSKSIZ IPOS = INDEX (STRING,COMMA,ISTRT) IF (IPOS .EQ. 0) IPOS = LEN (STRING) + 1 IEND = IPOS - 1 ILEN = IPOS - ISTRT CALL SUBSTR (STRING,SBSTR,ISTRT,IEND) DECODE (ILEN,1,SBSTR,ERR=430) FWTS(I,IROW) IF (FWTS(I,IROW)-127 .GT. 0) GO TO 420 IF (FWTS(I,IROW)+128 .LT. 0) GO TO 420 ERRFLG = ERRFLG + 1 400 CONTINUE GO TO 440 C 410 CONTINUE TYPE 3,BEEP(1) GO TO 430 C 420 CONTINUE TYPE 2,BEEP(1) 430 CONTINUE ERRFLG = -1 440 CONTINUE C do 499 irow = 1,msksiz type *,(fwts(icol),icol=1,msksiz) 499 continue RETURN END