! 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 USE m_build_info IMPLICIT NONE CHARACTER(100) :: num1char = "" !First, make sure the right number of inputs have been provided IF(COMMAND_ARGUMENT_COUNT() > 1) THEN WRITE(*,*) 'ERROR, TOO MANY COMMAND-LINE ARGUMENTS(MORE THAN ONE). STOPPING' STOP ELSE 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" WRITE(*,*) " -x print latex equations" ELSE IF(num1char=="-v") THEN WRITE(*,*) trim(build_info_str) ELSE IF(num1char=="-x") THEN WRITE(*,*) trim(latex_equations_str) ELSE WRITE(*,*) 'ERROR, OPTION NOT SUPPORTED ', num1char END IF STOP ELSE CALL m_openmpi_init if (iammaster) write(*,*) trim(build_info_str) CALL main CALL m_openmpi_exit ENDIF END PROGRAM