tstHeaderRead.f90

./Manager/wrap/tests/tstHeaderRead.f90

program tstheaderread
use origen_librarywrapper_m

#include "ScaleSTL/FortranTestMacros.h"

!Add dynamic path info for ARP library
use origen_testpaths_m
!
use nemesis_comm, only: build_types, initialize, finalize, node

implicit none

type(origen_librarywrapper) :: lib

logical :: file_exists

call initialize
call build_types
if ( node() /= 0 ) call finalize


inquire(file=w14_e15_filepath,exist=file_exists)
expect_true(file_exists)

!!! Initialize library, load the first burnup, and print some info.
call lib%initialize(w14_e15_filepath)
call lib%set_pos(1)
call lib%print_info()

expect_eq(2237, lib%get_itot())
expect_eq(54564, lib%get_non())
expect_eq(0, lib%get_nti())
expect_eq(30, lib%get_nfiso())

!destroy
call lib%destroy()

call finalize

end program