write_out_solution Subroutine

  1. mod_io.f90
  2. mod_io
  3. write_out_solution

public subroutine write_out_solution(num_nodes, points, GlobalX)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: num_nodes
real(kind=wp), intent(in), dimension(:):: points
real(kind=wp), intent(in), dimension(:):: GlobalX

Called by

proc~~write_out_solution~~CalledByGraph proc~write_out_solution write_out_solution program~driver1d driver1D program~driver1d->proc~write_out_solution

Contents

Source Code

write_out_solution

Source Code

    subroutine write_out_solution(num_nodes, points, GlobalX)
        integer,  intent(in)                :: num_nodes
        real(wp), intent(in), dimension(:)  :: points, GlobalX

        integer :: ii, ios, myunit

        open(newunit=myunit, file='data.out', iostat=ios, status="replace", action="write")
        if ( ios /= 0 ) then
            print*, ios
            stop "Error opening file data.out"
        endif

        do ii = 1, num_nodes
            write(myunit,*) points(ii), GlobalX(ii)
        enddo

        close(unit=myunit, iostat=ios)
        if ( ios /= 0 ) then
            print*, ios
            stop "Error closing file unit data.out"
        endif


        return
    end subroutine write_out_solution