Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Metadata), | intent(inout) | :: | mtd | |||
character, | intent(in) | :: | name |
subroutine SetName_Metadata(mtd,name)
implicit none
class(Metadata),intent(inout) :: mtd
character(*),intent(in) :: name
mtd%name = name
endsubroutine SetName_Metadata