program main !*****************************************************************************80 ! !! owen_test() tests owen(). ! ! Licensing: ! ! This code is distributed under the MIT license. ! ! Modified: ! ! 14 July 2017 ! ! Author: ! ! John Burkardt ! implicit none call timestamp ( ) write ( *, '(a)' ) ' ' write ( *, '(a)' ) 'owen_test():' write ( *, '(a)' ) ' FORTRAN90 version' write ( *, '(a)' ) ' Test owen().' call bivnor_test ( ) call t_test ( ) call znorm1_test ( ) call znorm2_test ( ) ! ! Terminate. ! write ( *, '(a)' ) ' ' write ( *, '(a)' ) 'owen_test():' write ( *, '(a)' ) ' Normal end of execution.' write ( *, '(a)' ) ' ' call timestamp ( ) stop 0 end