FieldBundleType_Flag Derived Type

type, public :: FieldBundleType_Flag


Constructor

public interface FieldBundleType_Flag

  • private function new_FieldBundleType_Flag(name) result(type_flag)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: name

    Return Value type(FieldBundleType_Flag)


Type-Bound Procedures

procedure, public :: to_string

  • private function to_string(this) result(s)

    Arguments

    Type IntentOptional Attributes Name
    class(FieldBundleType_Flag), intent(in) :: this

    Return Value character(len=:), allocatable

Source Code

   type :: FieldBundleType_Flag
      private
      integer :: id = -1
      character(32) :: name = "FIELDBUNDLETYPE_INVALID"
   contains
      procedure :: to_string
   end type Fieldbundletype_Flag