int_array_to_char_array Function

public pure function int_array_to_char_array(iarray) result(carray)

integer array to Character array

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(:,:) :: iarray

Return Value character(len=1), dimension(:,:), allocatable


Source Code

    pure function int_array_to_char_array(iarray) result(carray)
        integer,dimension(:,:),intent(in) :: iarray
        character(len=1),dimension(:,:),allocatable :: carray
        integer :: i,j

        allocate(carray(size(iarray,1),size(iarray,2)))
        do i = 1, size(iarray,1)
            do j = 1, size(iarray,2)
                write(carray(i,j),'(I1)') iarray(i,j)
            end do
        end do
    end function int_array_to_char_array