read_binary_file_2d Subroutine

  1. mod_io.f90
  2. mod_io
  3. read_binary_file_2d

private subroutine read_binary_file_2d(filename, dtype, dsize, nrec, array)

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: filename
integer(kind=ik), intent(in) :: dtype
integer(kind=ik), intent(in) :: dsize
integer(kind=ik), intent(in) :: nrec
real(kind=rk), intent(inout), allocatable:: array(:,:)

Called by

proc~~read_binary_file_2d~~CalledByGraph proc~read_binary_file_2d read_binary_file_2d interface~read_binary_file read_binary_file interface~read_binary_file->proc~read_binary_file_2d proc~load_mnist load_mnist proc~load_mnist->interface~read_binary_file

Contents

Source Code

read_binary_file_2d

Source Code

  subroutine read_binary_file_2d(filename, dtype, dsize, nrec, array)
    character(len=*), intent(in) :: filename
    integer(ik), intent(in) :: dtype, dsize, nrec
    real(rk), allocatable, intent(in out) :: array(:,:)
    integer(ik) :: fileunit, i
    allocate(array(dsize, nrec))
    open(newunit=fileunit, file=filename, access='direct',&
         action='read', recl=dtype * dsize, status='old')
    do i = 1, nrec
      read(fileunit, rec=i) array(:,i)
    end do
    close(fileunit)
  end subroutine read_binary_file_2d