&UPADJPPT
   DOADJPPT=.FALSE.
 /