Skip to content
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 4 additions & 3 deletions generic3g/registry/StateRegistry.F90
Original file line number Diff line number Diff line change
Expand Up @@ -321,7 +321,7 @@ function get_subregistry_by_name(this, name, rc) result(subregistry)
_RETURN(_SUCCESS)
end if

wrap => this%subregistries%at(name,_RC)
wrap => this%subregistries%at(name, _RC)
_ASSERT(associated(wrap%registry), 'null pointer encountered for subregistry.')

select type (q => wrap%registry)
Expand All @@ -343,7 +343,7 @@ function get_subregistry_by_conn_pt(this, conn_pt, rc) result(subregistry)

integer :: status

subregistry => this%get_subregistry(conn_pt%component_name,_RC)
subregistry => this%get_subregistry(conn_pt%component_name, _RC)

_RETURN(_SUCCESS)
end function get_subregistry_by_conn_pt
Expand Down Expand Up @@ -693,7 +693,8 @@ function filter(this, pattern) result(matches)

type(VirtualConnectionPt), pointer :: v_pt
type(VirtualPtFamilyMapIterator) :: iter


matches = VirtualConnectionPtVector()
associate (e => this%family_map%ftn_end())
iter = this%family_map%ftn_begin()
do while (iter /= e)
Expand Down
Loading