Load Text Data

mod_io.f90

  subroutine load_txt_data_1d_d(d, f)
    implicit none
    real*8, intent(out)      :: d(:) ! array of text data
    character(*), intent(in) :: f    ! chanel file name

    open(51, file=trim(f), status='old', action='read')
    read(51, *) d
    close(51)
  endsubroutine

  subroutine load_txt_data_2d_d(d, f)
    implicit none
    real*8, intent(out)      :: d(:,:) ! array of text data
    character(*), intent(in) :: f      ! chanel file name

    real*8 :: dt(size(d,2),size(d,1))

    open(51, file=trim(f), status='old', action='read')
    read(51, *) dt
    close(51)
    d = transpose(dt)
  endsubroutine