C
      SUBROUTINE PGSETC (SIZE)
      REAL SIZE
      CALL PGSCH(SIZE)
      END