test_hess Subroutine

subroutine test_hess ()
   call lala( 'display(ones(80,1)''*61)')
   call lala( 'help hess')
   call lala( 'tally=[0];')
   call lala( [ character(len=256) :: &
     & 'A=magic(5);                                                              ', &
     & '<P,H>=hess(A);                                                           ', &
     & 'B=P*H*P'';                                                                ', &
     & 'if A=B, ...                                                              ', &
     & '   tally=[tally,0];display(''got back the original'');  ...                ', &
     & 'else,  ...                                                               ', &
     & '   tally=[tally,1];display(''does not match original'');                   ', &
     & 'if sum(tally)=0,display(''hess PASSED'');else,display(''hess FAILED'');tally ', &
     & ''])
end subroutine test_hess