| 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