! This code has been written since 2011.01.08
! This code is written by Dongkyu Lee (THDHRKDG)
! Purpose of this code is to postprocess results of stagnating DNS code

    PROGRAM post_dns
     USE m_openmpi
     USE post
     USE Compact

     character (len=2000) :: input_string

     call cstr(input_string)

     write(*,*) input_string

     CALL m_openmpi_init

     CALL main
    
     CALL m_openmpi_exit

    END PROGRAM