tstLibraryBuilder.f90

./Manager/libld/f/tests/tstLibraryBuilder.f90

program tstlibrarybuilder

#include "ScaleSTL/FortranTestMacros.h"

use origen_libraryio_m
use origen_librarybuilder_m
use stringlist_m
use datacontainer_m
use origen_definitions_m
use dbcf_m
use origen_testpaths_m
use iso_fortran_env, only: error_unit, output_unit
!
use nemesis_comm, only: build_types, initialize, finalize, node

implicit none

type(origen_libraryio) :: io
type(origen_librarybuilder) :: bld
type(origen_library) :: lib,lib2
type(origen_libraryheader) :: lh
type(origen_nuclideset) :: nucset
type(datacontainer) :: options

logical :: loaded
integer :: position

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

call options % initialize()
call io % initialize()
call lib % initialize()
loaded = io % load(lib,trim(decaylib_filepath),options)
write(error_unit,*)'loaded=',loaded
if( .not. loaded )stop 1
call io % destroy()

call lib % getptr_definition(lh)
call lh % getptr_nuclide_set(nucset)
expect_eq(1151,nucset % num_in_sublib(origen_sublib_3fp))
write(error_unit,*)'extracted the library'

call io % destroy()

call bld % initialize()

position = 1
!call bld % read(lib,position)
!write(ERROR_UNIT,*)'out of read'

call bld % destroy()
!call lib % destroy()
call options % destroy()

call finalize
end program