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