sourcery_object_s.f90 Source File

!
!     (c) 2019-2020 Guide Star Engineering, LLC
!     This Software was developed for the US Nuclear Regulatory Commission (US NRC) under contract
!     "Multi-Dimensional Physics Implementation into Fuel Analysis under Steady-state and Transients (FAST)",
!     contract # NRC-HQ-60-17-C-0007
!
submodule(sourcery_object_m) sourcery_object_s
  implicit none

contains

    module procedure mark_as_defined
      self%defined=.true.
    end procedure

    module procedure user_defined
      is_defined = self%defined
    end procedure

end submodule