The results below are computed with .
Array on entry ( 'U' by default):
The call: CALL LA_HPEV( AP, W )