! 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(100) :: num1char = ""

     character (len=2000) :: input_string

     call cstr(input_string)


     !First, make sure the right number of inputs have been provided
     IF(COMMAND_ARGUMENT_COUNT() > 0) THEN

       CALL GET_COMMAND_ARGUMENT(1,num1char)   !first, read in the two values

       IF(num1char=="-h") THEN
         WRITE(*,*) "usage: x-edge-cold-bc-uPrime-hybrid [-h|-v]"
         WRITE(*,*) ""
         WRITE(*,*) "optional arguments:"
         WRITE(*,*) " -h                show this help message and exit"
         WRITE(*,*) " -v                print version information"
       ELSE IF(num1char=="-v") THEN
         WRITE(*,*) input_string
       ELSE
         WRITE(*,*) 'ERROR, OPTION NOT SUPPORTED ', num1char
       END IF

       STOP

     ELSE IF(COMMAND_ARGUMENT_COUNT() > 1) THEN

       WRITE(*,*) 'ERROR, TOO MANY COMMAND-LINE ARGUMENTS(MORE THAN ONE). STOPPING'
       STOP

     ELSE

     CALL m_openmpi_init

     if (iammaster) write(*,*) input_string

     CALL main
    
     CALL m_openmpi_exit

     ENDIF

    END PROGRAM