research/incomp-flame-post
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added conditional call to main and main_lb

Browse source
This commit is contained in:
ignis 2019-06-14 19:47:01 +09:00
parent 9cfb2af9ac
commit a0c1558d28
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
code/post_dns.f90
View file

@ -44,7 +44,11 @@
if (iammaster) write(*,*) input_string(1:lnblnk(input_string)) if (iammaster) write(*,*) input_string(1:lnblnk(input_string))
if (numprocs > 1) then
CALL main_lb
else
CALL main CALL main
end if
CALL m_openmpi_exit CALL m_openmpi_exit