72 lines
1.8 KiB
Fortran
72 lines
1.8 KiB
Fortran
! 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
|
|
|
|
interface
|
|
|
|
function build_info_length()
|
|
integer :: build_info_length
|
|
end function build_info_length
|
|
|
|
function latex_length()
|
|
integer :: latex_length
|
|
end function latex_length
|
|
|
|
end interface
|
|
|
|
CHARACTER(100) :: num1char = ""
|
|
|
|
character (len=8000) :: input_string = ""
|
|
|
|
character (len=8000) :: latex_string = ""
|
|
|
|
call cstr(input_string)
|
|
|
|
call eqnstr(latex_string)
|
|
|
|
|
|
!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(*,*) input_string(1:len_trim(input_string))
|
|
ELSE IF(num1char=="-x") THEN
|
|
WRITE(*,*) latex_string(1:len_trim(latex_string))
|
|
ELSE
|
|
WRITE(*,*) 'ERROR, OPTION NOT SUPPORTED ', num1char
|
|
END IF
|
|
|
|
STOP
|
|
|
|
ELSE
|
|
|
|
CALL m_openmpi_init
|
|
|
|
if (iammaster) write(*,*) input_string(1:len_trim(input_string))
|
|
|
|
CALL main
|
|
|
|
CALL m_openmpi_exit
|
|
|
|
ENDIF
|
|
|
|
END PROGRAM
|