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