PG ROUTINE 20-21(B)