fossil_test_load_save_binary Program

  1. fossil_test_load_save_binary.f90
  2. fossil_test_load_save_binary
program~~fossil_test_load_save_binary~~UsesGraph program~fossil_test_load_save_binary fossil_test_load_save_binary module~fossil fossil module~fossil->program~fossil_test_load_save_binary penf penf penf->program~fossil_test_load_save_binary module~fossil_file_stl_object fossil_file_stl_object penf->module~fossil_file_stl_object module~fossil_facet_object fossil_facet_object penf->module~fossil_facet_object module~fossil_aabb_tree_object fossil_aabb_tree_object penf->module~fossil_aabb_tree_object module~fossil_utils fossil_utils penf->module~fossil_utils module~fossil_aabb_node_object fossil_aabb_node_object penf->module~fossil_aabb_node_object module~fossil_aabb_object fossil_aabb_object penf->module~fossil_aabb_object module~fossil_file_stl_object->module~fossil module~fossil_facet_object->module~fossil module~fossil_facet_object->module~fossil_file_stl_object module~fossil_facet_object->module~fossil_aabb_tree_object module~fossil_facet_object->module~fossil_aabb_node_object module~fossil_facet_object->module~fossil_aabb_object module~fossil_aabb_tree_object->module~fossil_file_stl_object module~fossil_utils->module~fossil_file_stl_object module~fossil_utils->module~fossil_facet_object module~fossil_utils->module~fossil_aabb_object iso_fortran_env iso_fortran_env iso_fortran_env->module~fossil_file_stl_object iso_fortran_env->module~fossil_facet_object iso_fortran_env->module~fossil_aabb_tree_object iso_fortran_env->module~fossil_aabb_node_object iso_fortran_env->module~fossil_aabb_object vecfor vecfor vecfor->module~fossil_file_stl_object vecfor->module~fossil_facet_object vecfor->module~fossil_aabb_tree_object vecfor->module~fossil_aabb_node_object vecfor->module~fossil_aabb_object module~fossil_aabb_node_object->module~fossil_aabb_tree_object module~fossil_aabb_object->module~fossil_aabb_tree_object module~fossil_aabb_object->module~fossil_aabb_node_object
Help


FOSSIL, test load and write binary file.


Variables

Source Code

fossil_test_load_save_binary

Variables

Type AttributesNameInitial
type(file_stl_object) :: file_1

STL file.
type(file_stl_object) :: file_2

STL file.
integer :: file_unit

File unit.
logical :: are_tests_passed(8)

Result of tests check.

Source Code

program fossil_test_load_save_binary
!< FOSSIL, test load and write binary file.

use fossil, only : file_stl_object
use penf, only : R4P

implicit none

type(file_stl_object) :: file_1              !< STL file.
type(file_stl_object) :: file_2              !< STL file.
integer               :: file_unit           !< File unit.
logical               :: are_tests_passed(8) !< Result of tests check.

are_tests_passed = .false.

call file_1%initialize(file_name='src/tests/naca0012-binary.stl', is_ascii=.false.)
call file_1%load_from_file
are_tests_passed(1) = file_1%facets_number == 188
are_tests_passed(2) = real(file_1%facet(5)%vertex_2%x, R4P) == 0.683601_R4P
are_tests_passed(3) = real(file_1%facet(5)%vertex_2%y, R4P) == -0.00763869_R4P
are_tests_passed(4) = real(file_1%facet(5)%vertex_2%z, R4P) == 0._R4P
call file_1%save_into_file(file_name='fossil_test_load_save-naca0012-binary.stl')

call file_2%initialize(file_name='fossil_test_load_save-naca0012-binary.stl', is_ascii=.false.)
call file_2%load_from_file
are_tests_passed(5) = file_2%facets_number == 188
are_tests_passed(6) = real(file_2%facet(5)%vertex_2%x, R4P) == 0.683601_R4P
are_tests_passed(7) = real(file_2%facet(5)%vertex_2%y, R4P) == -0.00763869_R4P
are_tests_passed(8) = real(file_2%facet(5)%vertex_2%z, R4P) == 0._R4P

print '(A,L1)', 'Are all tests passed? ', all(are_tests_passed)

open(newunit=file_unit, file='fossil_test_load_save-naca0012-binary.stl')
close(unit=file_unit, status='delete')
endprogram fossil_test_load_save_binary

All Programs