de/ddc/tst_linking_8f90-example.html

program tstlinking

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) :: libw1,libw2


call initialize

call build_types

if( node() /= 0 ) call finalize


call libw1%initialize(w14_e15_filepath)


!set to position 1 and check burnup

call libw1%set_pos(1)

expect_eq(0.0,libw1%get_burnup())

expect_eq(1,libw1%get_pos())

expect_eq(1,libw1%ref_count())


!set to position 2 and check burnup

call libw1%set_pos(2)

expect_eq(1040.0,libw1%get_burnup())

expect_eq(2,libw1%get_pos())

expect_eq(1,libw1%ref_count())


!now use assignment operation and show they point to same

libw2=libw1

!check reference counts

expect_eq(2,libw1%ref_count())

expect_eq(2,libw2%ref_count())

!check burnups

expect_eq(1040.0,libw1%get_burnup())

expect_eq(1040.0,libw2%get_burnup())

!check positions

expect_eq(2,libw1%get_pos())

expect_eq(2,libw2%get_pos())


!but if you change libw2, will it change libw1?

call libw2%set_pos(3)

!check burnups

expect_eq(1040.0,libw1%get_burnup())

expect_eq(3000.0,libw2%get_burnup())

!check positions

expect_eq(2,libw1%get_pos())

expect_eq(3,libw2%get_pos())


call libw1%destroy()


expect_eq(3,libw2%get_pos())

expect_eq(1,libw2%ref_count())

call libw2%destroy()


call finalize


end program