      SUBROUTINE PUFWCA ( CCHAR, IATT, IROW, ICOL, NCOLS, NROWS )
C
      CHARACTER CCHAR*(*)
C
      DO 100 J = IROW, IROW+NROWS-1
      CALL PUFCA ( CCHAR, IATT, NCOLS, J, ICOL )
  100 CONTINUE
C
      RETURN
      END
