! Copyright (c) 2016 Harald Klimach <harald.klimach@uni-siegen.de> ! ! Parts of this file were written by Harald Klimach for University of Siegen. ! ! Permission to use, copy, modify, and distribute this software for any ! purpose with or without fee is hereby granted, provided that the above ! copyright notice and this permission notice appear in all copies. ! ! THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHORS DISCLAIM ALL WARRANTIES ! WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF ! MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ! ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES ! WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ! ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF ! OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ! **************************************************************************** ! program ply_transfer_test use env_module, only: stdOutUnit use ply_transfer_test_module implicit none logical :: test_ok logical :: passed_tests call ply_test_transfer_1d( success = test_ok, & & lu = stdOutUnit ) passed_tests = test_ok call ply_test_transfer_2d( success = test_ok, & & lu = stdOutUnit ) passed_tests = passed_tests .and. test_ok call ply_test_transfer_3d( success = test_ok, & & lu = stdOutUnit ) passed_tests = passed_tests .and. test_ok if (passed_tests) write(*,*) 'PASSED' end program ply_transfer_test