read_binary_file_1d Subroutine

  1. mod_io.f90
  2. mod_io
  3. read_binary_file_1d

private subroutine read_binary_file_1d(filename, dtype, nrec, array)

Arguments

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

Called by

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

Contents

Source Code

read_binary_file_1d

Source Code

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