dclsubf.F,202
      SUBROUTINE RSET0 6,142
      SUBROUTINE CLADJ 30,766
      INTEGER FUNCTION LENB 58,1400
      INTEGER FUNCTION LENC 84,1984
      SUBROUTINE MSGDMP 111,2581
      SUBROUTINE CHVAL(165,4254