new_BracketSpec_geom Function

public function new_BracketSpec_geom(field_spec, bracket_size) result(bracket_spec)

Arguments

Type IntentOptional Attributes Name
type(FieldSpec), intent(in), optional :: field_spec
integer, intent(in), optional :: bracket_size

Return Value type(BracketSpec)


Called by

proc~~new_bracketspec_geom~~CalledByGraph proc~new_bracketspec_geom new_BracketSpec_geom interface~bracketspec BracketSpec interface~bracketspec->proc~new_bracketspec_geom

Source Code

   function new_BracketSpec_geom(field_spec, bracket_size) result(bracket_spec)
      
      type(BracketSpec) :: bracket_spec
      type(FieldSpec), optional, intent(in) :: field_spec
      integer, optional, intent(in) :: bracket_size

      bracket_spec%reference_spec = field_spec
      if (present(bracket_size)) bracket_spec%bracket_size = bracket_size

   end function new_BracketSpec_geom