research/incomp-flame-post
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
incomp-flame-post/fortran_api/sourcefile/post_dns.f90.html
Forgejo Actions Bot eeff180818 Auto-deploy Docs (78fbedc9)
2026-06-05 13:27:38 +00:00

251 lines
No EOL
16 KiB
HTML
Raw Permalink Blame History

<!-- -*- mode: jinja2 -*- -->
<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="utf-8">
<meta http-equiv="X-UA-Compatible" content="IE=edge">
<meta name="viewport" content="width=device-width, initial-scale=1">
<meta name="description" content="Tridiagonal compact finite difference solver, mathematical operators, and MPI-IO drivers.">
<meta name="author" content="Google DeepMind Team & Ignis" >
<link rel="icon" href="../favicon.png">
<title>post_dns.f90 &ndash; HPC DNS Post-Processing Fortran Core</title>
<!-- Bootstrap -->
<link href="https://cdn.jsdelivr.net/npm/bootstrap@5.3.3/dist/css/bootstrap.min.css" rel="stylesheet"
integrity="sha384-QWTKZyjpPEjISv5WaRU9OFeRpok6YctnYmDr5pNlyT2bRjXh0JMhjY6hW+ALEwIH" crossorigin="anonymous">
<script src="https://cdn.jsdelivr.net/npm/bootstrap@5.3.3/dist/js/bootstrap.bundle.min.js"
integrity="sha384-YvpcrYf0tY3lHB60NNkmXc5s9fDVZLESaAA55NDzOxhy9GkcIdslK1eN7N6jIeHz" crossorigin="anonymous"></script>
<!-- Font Awesome -->
<link href="../css/fontawesome.min.css" rel="stylesheet">
<link href="../css/brands.min.css" rel="stylesheet">
<link href="../css/regular.min.css" rel="stylesheet">
<link href="../css/solid.min.css" rel="stylesheet">
<link href="../css/v4-font-face.min.css" rel="stylesheet">
<link href="../css/v4-shims.min.css" rel="stylesheet">
<!-- MathJax -->
<script type="text/x-mathjax-config">
MathJax.Hub.Config({
TeX: { equationNumbers: { autoNumber: "AMS" } }
});
</script>
<script src="https://cdn.jsdelivr.net/npm/mathjax@2.7.9/MathJax.js?config=TeX-AMS-MML_HTMLorMML" async
integrity="sha256-DViIOMYdwlM/axqoGDPeUyf0urLoHMN4QACBKyB58Uw=" crossorigin="anonymous"></script>
<!-- Other scripts and stylesheets -->
<link href="../css/local.css" rel="stylesheet">
<link href="../css/pygments.css" rel="stylesheet">
<script src="../js/svg-pan-zoom.min.js"></script>
</head>
<body>
<!-- Fixed navbar -->
<div class="container-fluid mb-sm-4 mb-xl-2">
<nav class="navbar navbar-expand-lg navbar-dark bg-dark fixed-top">
<div class="container">
<a class="navbar-brand" href="../index.html">HPC DNS Post-Processing Fortran Core <small>1.0.0</small></a>
<button type="button" class="navbar-toggler" data-bs-toggle="collapse" data-bs-target="#navbar"
aria-expanded="false" aria-controls="navbar" aria-label="Toggle navigation">
<span class="navbar-toggler-icon">
</button>
<div id="navbar" class="navbar-collapse collapse">
<ul class="navbar-nav">
<li class="nav-item">
<a class="nav-link" href="../lists/files.html">Source Files</a>
</li>
<li class="nav-item">
<a class="nav-link" href="../lists/modules.html">Modules</a>
</li>
<li class="nav-item">
<a class="nav-link" href="../lists/procedures.html">Procedures</a>
</li>
<li class="nav-item">
<a class="nav-link" href="../lists/programs.html">Programs</a>
</li>
</ul>
<div class="d-flex align-items-end flex-grow-1">
<form action="../search.html" role="search" class="ms-auto">
<input type="text" class="form-control" aria-label="Search" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
</form>
</div>
</div><!--/.nav-collapse -->
</div>
</nav>
</div>
<div class="container">
<div class="row">
<h1>post_dns.f90
<small>Source File</small>
</h1>
<div class="container p-2 mb-4 bg-light border rounded-3">
<div class="row align-items-center justify-content-between" id="info-bar">
<div class="col">
<ul class="list-inline" style="margin-bottom:0px;display:inline">
<li class="list-inline-item" id="statements"><i class="fa fa-list-ol"></i>
<a data-bs-toggle="tooltip" data-bs-placement="bottom" data-bs-html="true"
title=" 2.2% of total for source files.">34 statements</a>
</li>
<li class="list-inline-item" id="source-file">
<i class="fa fa-code"></i>
<a href="../src/post_dns.f90"> Source File</a>
</li>
</ul>
</div>
<div class="col">
<nav aria-label="breadcrumb">
<ol class="breadcrumb justify-content-end mb-0">
<li class="breadcrumb-item active" aria-current="page">post_dns.f90</li>
</ol>
</nav>
</div>
</div>
</div>
<script>
// Enable Bootstrap tooltips
(function () {
const tooltipTriggerList = document.querySelectorAll('[data-bs-toggle="tooltip"]')
const tooltipList = [...tooltipTriggerList].map(tooltipTriggerEl => new bootstrap.Tooltip(tooltipTriggerEl))
})();
</script>
</div>
<div class="row">
<div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
<div id="sidebar">
<h3>Contents</h3>
<div class="card mb-4">
<a data-bs-toggle="collapse" href="#progs-0"
aria-expanded="false" aria-controls="progs-0">
<h4 class="card-header bg-primary text-white">Programs</h4>
</a>
<div id="progs-0" class="collapse">
<div class="list-group list-group-flush">
<a class="list-group-item" href="../program/post_dns.html">post_dns</a>
</div>
</div>
</div>
<div class="card card-primary">
<div class="card-header text-left"><h3 class="card-title">Source Code</h3></div>
<div class="list-group">
<a class="list-group-item" href="../sourcefile/post_dns.f90.html#src">post_dns.f90</a>
</div>
</div>
</div>
</div>
<div class="col-md-9" id='text'>
<br>
<section>
<h2><span class="anchor" id="src"></span>Source Code</h2>
<div class="hl codehilite"><pre><span></span><a id="ln-1" name="ln-1" href="#ln-1"></a><span class="c">! This code has been written since 2011.01.08</span>
<a id="ln-2" name="ln-2" href="#ln-2"></a><span class="c">! This code is written by Dongkyu Lee (THDHRKDG)</span>
<a id="ln-3" name="ln-3" href="#ln-3"></a><span class="c">! Purpose of this code is to postprocess results of stagnating DNS code</span>
<a id="ln-4" name="ln-4" href="#ln-4"></a>
<a id="ln-5" name="ln-5" href="#ln-5"></a><span class="w"> </span><span class="k">PROGRAM </span><span class="n">post_dns</span>
<a id="ln-6" name="ln-6" href="#ln-6"></a><span class="w"> </span><span class="k">USE </span><span class="n">m_openmpi</span>
<a id="ln-7" name="ln-7" href="#ln-7"></a><span class="w"> </span><span class="k">USE </span><span class="n">post</span>
<a id="ln-8" name="ln-8" href="#ln-8"></a><span class="w"> </span><span class="k">USE </span><span class="n">Compact</span>
<a id="ln-9" name="ln-9" href="#ln-9"></a><span class="w"> </span><span class="k">USE </span><span class="n">m_build_info</span>
<a id="ln-10" name="ln-10" href="#ln-10"></a><span class="w"> </span><span class="k">IMPLICIT NONE</span>
<a id="ln-11" name="ln-11" href="#ln-11"></a>
<a id="ln-12" name="ln-12" href="#ln-12"></a><span class="k"> </span><span class="kt">CHARACTER</span><span class="p">(</span><span class="mi">100</span><span class="p">)</span><span class="w"> </span><span class="kd">::</span><span class="w"> </span><span class="n">num1char</span><span class="w"> </span><span class="o">=</span><span class="w"> </span><span class="s2">&quot;&quot;</span>
<a id="ln-13" name="ln-13" href="#ln-13"></a>
<a id="ln-14" name="ln-14" href="#ln-14"></a><span class="w"> </span><span class="c">!First, make sure the right number of inputs have been provided</span>
<a id="ln-15" name="ln-15" href="#ln-15"></a><span class="w"> </span><span class="k">IF</span><span class="p">(</span><span class="nb">COMMAND_ARGUMENT_COUNT</span><span class="p">()</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">1</span><span class="p">)</span><span class="w"> </span><span class="k">THEN</span>
<a id="ln-16" name="ln-16" href="#ln-16"></a>
<a id="ln-17" name="ln-17" href="#ln-17"></a><span class="k"> WRITE</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span><span class="w"> </span><span class="s1">&#39;ERROR, TOO MANY COMMAND-LINE ARGUMENTS(MORE THAN ONE). STOPPING&#39;</span>
<a id="ln-18" name="ln-18" href="#ln-18"></a><span class="w"> </span><span class="k">STOP</span>
<a id="ln-19" name="ln-19" href="#ln-19"></a>
<a id="ln-20" name="ln-20" href="#ln-20"></a><span class="k"> ELSE IF</span><span class="p">(</span><span class="nb">COMMAND_ARGUMENT_COUNT</span><span class="p">()</span><span class="w"> </span><span class="o">&gt;</span><span class="w"> </span><span class="mi">0</span><span class="p">)</span><span class="w"> </span><span class="k">THEN</span>
<a id="ln-21" name="ln-21" href="#ln-21"></a>
<a id="ln-22" name="ln-22" href="#ln-22"></a><span class="k"> CALL </span><span class="nb">GET_COMMAND_ARGUMENT</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">num1char</span><span class="p">)</span><span class="w"> </span><span class="c">!first, read in the two values</span>
<a id="ln-23" name="ln-23" href="#ln-23"></a>
<a id="ln-24" name="ln-24" href="#ln-24"></a><span class="w"> </span><span class="k">IF</span><span class="p">(</span><span class="n">num1char</span><span class="o">==</span><span class="s2">&quot;-h&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">THEN</span>
<a id="ln-25" name="ln-25" href="#ln-25"></a><span class="k"> WRITE</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span><span class="w"> </span><span class="s2">&quot;usage: x-edge-cold-bc-uPrime-hybrid [-h|-v]&quot;</span>
<a id="ln-26" name="ln-26" href="#ln-26"></a><span class="w"> </span><span class="k">WRITE</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span><span class="w"> </span><span class="s2">&quot;&quot;</span>
<a id="ln-27" name="ln-27" href="#ln-27"></a><span class="w"> </span><span class="k">WRITE</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span><span class="w"> </span><span class="s2">&quot;optional arguments:&quot;</span>
<a id="ln-28" name="ln-28" href="#ln-28"></a><span class="w"> </span><span class="k">WRITE</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span><span class="w"> </span><span class="s2">&quot; -h show this help message and exit&quot;</span>
<a id="ln-29" name="ln-29" href="#ln-29"></a><span class="w"> </span><span class="k">WRITE</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span><span class="w"> </span><span class="s2">&quot; -v print version information&quot;</span>
<a id="ln-30" name="ln-30" href="#ln-30"></a><span class="w"> </span><span class="k">WRITE</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span><span class="w"> </span><span class="s2">&quot; -x print latex equations&quot;</span>
<a id="ln-31" name="ln-31" href="#ln-31"></a><span class="w"> </span><span class="k">ELSE IF</span><span class="p">(</span><span class="n">num1char</span><span class="o">==</span><span class="s2">&quot;-v&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">THEN</span>
<a id="ln-32" name="ln-32" href="#ln-32"></a><span class="k"> WRITE</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">build_info_str</span><span class="p">)</span>
<a id="ln-33" name="ln-33" href="#ln-33"></a><span class="w"> </span><span class="k">ELSE IF</span><span class="p">(</span><span class="n">num1char</span><span class="o">==</span><span class="s2">&quot;-x&quot;</span><span class="p">)</span><span class="w"> </span><span class="k">THEN</span>
<a id="ln-34" name="ln-34" href="#ln-34"></a><span class="k"> WRITE</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">latex_equations_str</span><span class="p">)</span>
<a id="ln-35" name="ln-35" href="#ln-35"></a><span class="w"> </span><span class="k">ELSE</span>
<a id="ln-36" name="ln-36" href="#ln-36"></a><span class="k"> WRITE</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span><span class="w"> </span><span class="s1">&#39;ERROR, OPTION NOT SUPPORTED &#39;</span><span class="p">,</span><span class="w"> </span><span class="n">num1char</span>
<a id="ln-37" name="ln-37" href="#ln-37"></a><span class="w"> </span><span class="k">END IF</span>
<a id="ln-38" name="ln-38" href="#ln-38"></a>
<a id="ln-39" name="ln-39" href="#ln-39"></a><span class="k"> STOP</span>
<a id="ln-40" name="ln-40" href="#ln-40"></a>
<a id="ln-41" name="ln-41" href="#ln-41"></a><span class="k"> ELSE</span>
<a id="ln-42" name="ln-42" href="#ln-42"></a>
<a id="ln-43" name="ln-43" href="#ln-43"></a><span class="k"> CALL </span><span class="n">m_openmpi_init</span>
<a id="ln-44" name="ln-44" href="#ln-44"></a>
<a id="ln-45" name="ln-45" href="#ln-45"></a><span class="w"> </span><span class="k">if</span><span class="w"> </span><span class="p">(</span><span class="n">iammaster</span><span class="p">)</span><span class="w"> </span><span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span><span class="w"> </span><span class="nb">trim</span><span class="p">(</span><span class="n">build_info_str</span><span class="p">)</span>
<a id="ln-46" name="ln-46" href="#ln-46"></a>
<a id="ln-47" name="ln-47" href="#ln-47"></a><span class="w"> </span><span class="k">CALL </span><span class="n">main</span>
<a id="ln-48" name="ln-48" href="#ln-48"></a><span class="w"> </span>
<a id="ln-49" name="ln-49" href="#ln-49"></a><span class="w"> </span><span class="k">CALL </span><span class="n">m_openmpi_exit</span>
<a id="ln-50" name="ln-50" href="#ln-50"></a>
<a id="ln-51" name="ln-51" href="#ln-51"></a><span class="w"> </span><span class="k">ENDIF</span>
<a id="ln-52" name="ln-52" href="#ln-52"></a>
<a id="ln-53" name="ln-53" href="#ln-53"></a><span class="k"> END PROGRAM</span>
</pre></div>
</section>
</div>
</div>
<hr>
</div> <!-- /container -->
<footer>
<div class="container">
<div class="row justify-content-between">
<div class="col">
<p>
HPC DNS Post-Processing Fortran Core
was developed by Google DeepMind Team & Ignis<br> &copy; 2026
</p>
</div>
<div class="col">
<p class="text-end">
Documentation generated by
<a href="https://github.com/Fortran-FOSS-Programmers/ford">FORD</a>
</p>
</div>
</div>
<br>
</div> <!-- /container -->
</footer>
</body>
</html>
Reference in a new issue View git blame Copy permalink