test_atan Subroutine

subroutine test_atan ()
  call lala( 'display(ones(80,1)''*61)')
  call lala( 'tally=[0];')
  call lala( [ character(len=256) :: &
   & 'help atan; display(ones(80,1)''*95)', &
   & 'PI=atan(1)*4;A=cos(PI);B=sin(PI);', &
   & 'if A-1<eps,tally=[tally,0];display(''test if near PI OK'');else,tally=[tally,1];display(''test if near PI FAILED'');', &
   & 'if B<eps,tally=[tally,0];display(''2nd test if near PI OK'');else,tally=[tally,1];display(''2nd test if near PI FAILED'');', &
   & 'if sum(tally)=0,display(''atan PASSED'');else,display(''atan FAILED'');tally ', &
   & ''])
end subroutine test_atan