22 lines
431 B
Fortran
22 lines
431 B
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
|
|
|
|
character (len=2000) :: input_string
|
|
|
|
call cstr(input_string)
|
|
|
|
write(*,*) input_string
|
|
|
|
CALL m_openmpi_init
|
|
|
|
CALL main
|
|
|
|
CALL m_openmpi_exit
|
|
|
|
END PROGRAM
|