tstStateSetIO.f90

./Core/io/f/tests/tstStateSetIO.f90

#include "ScaleDBCF/DBCF.h"
program tststatesetio

use origen_statesetio_m
use origen_fakefactory_m
use dbcf_m
!
use nemesis_comm, only: build_types, initialize, finalize, node

implicit none

type(origen_statesetio)  :: io
type(datacontainer)      :: opts
type(origen_stateset)    :: ss,ss2
type(origen_fakefactory) :: ff
logical :: loaded,status

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

call io % initialize()
call opts % initialize()
call ss % initialize()

call ff % initialize()
loaded = ff % StateSet_random1(ss,333)
if( .not. loaded )then
    insist(.false.,'could not load fake state set')
end if
call ff % destroy()

status = io % save(ss,"ss.f71",opts)
insist(status,"saved okay")

call ss2 % initialize()
status = io % load(ss2,"ss.f71",opts)
insist(status,"loaded okay")
insist(ss2%equals(ss),"roundtrip okay")

call ss2 % destroy()

call ss % destroy()
call opts % destroy()
call io % destroy()

call finalize
end program