&UPADJPPT
   DOADJPPT=.TRUE.
 /