6 subroutine ExportZMX(lu)
10 function LowerCase(str)
11 character(*),intent(in) :: str
12 character(len(str)) :: LowerCase
13 end function LowerCase
15 character(*),parameter :: UNAME(1:1)=(/'XXX'/)
16 write(lu,'(a)') 'UNIT '//UpperCase(UNAME(1))
17 write(lu,'(a)') 'Unit '//LowerCase(UNAME(1))
20 function UpperCase(str) result(res)
21 character(*),intent(in) :: str
22 character(len(str)) res