program a1

!HPF$  REALIGN hj (*) WITH  bh
!HPF$  REALIGN WITH jh ::fgh,gh,cf,cfg


end
