CALL RUPDT (rup, bup, sup, r, z <*>, b <*>, y <*>, ssq ) ;
CALL RUPDT
See the entry for the RDODT subroutine for details.