DC_CHARS(3F)

名前

書式

use dc_chars

function char_array_to_char(array) 
	character, intent(in):: array(:) 
	character(len = size(array)):: char_array_to_char
end function

function char_7array_to_char(array)
	character, intent(in):: array(:, :, :, :, :, :, :)
	character(len = size(array)):: char_7array_to_char
end function

function char_to_char_7array(chars, d)
	character(len = *), intent(in):: chars 
	integer, intent(in):: d(7)
	character:: result(d(1), d(2), d(3), d(4), d(5), d(6), d(7))
end function

説明