fossil_test_load_save_ascii Program

  1. fossil_test_load_save_ascii.f90
  2. fossil_test_load_save_ascii
program~~fossil_test_load_save_ascii~~UsesGraph program~fossil_test_load_save_ascii fossil_test_load_save_ascii module~fossil fossil module~fossil->program~fossil_test_load_save_ascii penf penf penf->program~fossil_test_load_save_ascii 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 ASCII file.


Variables

Source Code

fossil_test_load_save_ascii

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_ascii
!< FOSSIL, test load and write ASCII file.

use fossil, only : file_stl_object
use penf, only : R8P

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-ascii.stl', is_ascii=.true.)
call file_1%load_from_file
are_tests_passed(1) = file_1%facets_number == 188
are_tests_passed(2) = file_1%facet(5)%vertex_2%x == 0.683601_R8P
are_tests_passed(3) = file_1%facet(5)%vertex_2%y == -0.00763869_R8P
are_tests_passed(4) = file_1%facet(5)%vertex_2%z == 0._R8P

call file_1%save_into_file(file_name='fossil_test_load_save-naca0012-ascii.stl')

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

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

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

All Programs