SetName_Metadata Subroutine

public subroutine SetName_Metadata(mtd, name)

Arguments

TypeIntentOptionalAttributesName
class(Metadata), intent(inout) :: mtd
character, intent(in) :: name

Contents

Source Code


Source Code

  subroutine SetName_Metadata(mtd,name)
    implicit none
    class(Metadata),intent(inout) :: mtd
    character(*),intent(in) :: name

    mtd%name = name

  endsubroutine SetName_Metadata