File: etsf_io_vars_free_f90.html

package info (click to toggle)
etsf-io 1.0.4-5
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye
  • size: 5,580 kB
  • sloc: f90: 26,717; sh: 466; makefile: 452; ansic: 23
file content (99 lines) | stat: -rw-r--r-- 6,279 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
 
<?xml version="1.0" encoding="ISO-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
                      "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html  xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<meta http-equiv="Content-Style-Type" content="text/css" />
<meta http-equiv="Content-type" content="text/html; charset=ISO-8859-1" />
<link rel="stylesheet" href="../robodoc.css" type="text/css" />
<title>./src/group_level/etsf_io_vars_free.f90</title>
<!-- Source: ./src/group_level/etsf_io_vars_free.f90 -->
<!-- Generated with ROBODoc Version 4.99.38 (May  3 2009) -->
</head>
<body>
<div id="logo">
<a name="robo_top_of_doc">ETSF_IO library - documentation pages</a>
</div> <!-- logo -->
<div id="navigation">
<a class="menuitem" href="../toc_index.html#top">Table of Contents</a>
<a class="menuitem" href="../robo_sourcefiles.html#top">Sourcefiles</a>
<a class="menuitem" href="../masterindex.html#top">Index</a>
<a class="menuitem" href="../robo_definitions.html#top">Definitions</a>
<a class="menuitem" href="../robo_tuto_cat.html#top">Tutorials</a>
<a class="menuitem" href="../robo_functions.html#top">Functions</a>
<a class="menuitem" href="../robo_sub_cat.html#top">Sub categories</a>
<a class="menuitem" href="../robo_modules.html#top">Modules</a>
<a class="menuitem" href="../robo_methods.html#top">Methods</a>
<a class="menuitem" href="../robo_strutures.html#top">Structures</a>
</div> <!-- navigation -->
<div id="content">
<h3>TABLE OF CONTENTS</h3>
<ul>
<li><a href="#robo121">etsf_io_vars_free</a></li>
</ul>
<hr />
<a name="etsf5fvars2fetsf5fio5fvars5ffree"></a>
<a name="robo121"></a><h2>etsf_io_vars_free</h2>

<p>[ <a href="#robo_top_of_doc">Top</a> ] [ <a href="./etsf_io_f90.html#robo125">etsf_vars</a> ] [ <a href="../robo_methods.html#robo_top_of_doc">Methods</a> ]</p>
<p class="item_name">NAME</p>
<p>  <strong>etsf_io_vars_free</strong>
</p>
<p class="item_name">FUNCTION</p>
<p>    Free the given variable list.
</p>
<p class="item_name">SIDE EFFECTS</p>
<ul><li> vars_infos &lt;type(<a href="./etsf_io_f90.html#robo125">etsf_vars</a>)&gt; = 
</li>
</ul>
<p></p>
<p class="item_name">NOTES</p>
<p>  This file has been automatically generated by the autogen_subroutines.py
  script. Any change you would bring to it will systematically be
  overwritten.
</p>
<p class="item_name">SOURCE</p>
<pre class="source"><span class="keyword">subroutine</span> <strong>etsf_io_vars_free</strong><span class="sign">(</span>vars_infos<span class="sign">)</span>

  <span class="comment">!Arguments ------------------------------------</span>
  <span class="keyword">type</span><span class="sign">(</span><a href="./etsf_io_f90.html#robo125">etsf_vars</a><span class="sign">)</span><span class="sign">,</span> <span class="keyword">intent</span><span class="sign">(</span><span class="keyword">inout</span><span class="sign">)</span> <span class="sign">:</span><span class="sign">:</span> vars_infos

  <span class="comment">!Local variables-------------------------------</span>
  <span class="keyword">character</span><span class="sign">(</span><span class="keyword">len</span> <span class="sign">=</span> <span class="sign">*</span><span class="sign">)</span><span class="sign">,</span> <span class="keyword">parameter</span> <span class="sign">:</span><span class="sign">:</span> my_name <span class="sign">=</span> <span class="squote">'<strong>etsf_io_vars_free</strong>'</span>


  <span class="comment">! *************************************************************************</span>

<span class="comment">!DEBUG</span>
<span class="comment">!write (*,*) '<strong>etsf_io_vars_free</strong> : enter'</span>
<span class="comment">!ENDDEBUG</span>

  <span class="comment">! Deallocate all associated pointers.</span>
  <span class="keyword">if</span> <span class="sign">(</span><span class="keyword">associated</span><span class="sign">(</span>vars_infos<span class="sign">%</span>parent<span class="sign">)</span><span class="sign">)</span> <span class="keyword">then</span>
    <span class="keyword">call</span> <a href="../low_level/etsf_io_low_level_f90.html#robo76">etsf_io_low_free_all_var_infos</a><span class="sign">(</span>vars_infos<span class="sign">%</span>parent<span class="sign">)</span>
  <span class="keyword">end</span> <span class="keyword">if</span>
  <span class="keyword">if</span> <span class="sign">(</span><span class="keyword">associated</span><span class="sign">(</span>vars_infos<span class="sign">%</span>group<span class="sign">)</span><span class="sign">)</span> <span class="keyword">then</span>
    <span class="keyword">deallocate</span><span class="sign">(</span>vars_infos<span class="sign">%</span>group<span class="sign">)</span>
  <span class="keyword">end</span> <span class="keyword">if</span>
  <span class="keyword">if</span> <span class="sign">(</span><span class="keyword">associated</span><span class="sign">(</span>vars_infos<span class="sign">%</span>varid<span class="sign">)</span><span class="sign">)</span> <span class="keyword">then</span>
    <span class="keyword">deallocate</span><span class="sign">(</span>vars_infos<span class="sign">%</span>varid<span class="sign">)</span>
  <span class="keyword">end</span> <span class="keyword">if</span>
  <span class="keyword">if</span> <span class="sign">(</span><span class="keyword">associated</span><span class="sign">(</span>vars_infos<span class="sign">%</span>split<span class="sign">)</span><span class="sign">)</span> <span class="keyword">then</span>
    <span class="keyword">deallocate</span><span class="sign">(</span>vars_infos<span class="sign">%</span>split<span class="sign">)</span>
  <span class="keyword">end</span> <span class="keyword">if</span>


<span class="comment">!DEBUG</span>
<span class="comment">!write (*,*) '<strong>etsf_io_vars_free</strong> : exit'</span>
<span class="comment">!ENDDEBUG</span>

<span class="keyword">end</span> <span class="keyword">subroutine</span> <strong>etsf_io_vars_free</strong>
</pre>

</div> <!-- content -->
<div id="footer">
<p>Generated from ./src/group_level/etsf_io_vars_free.f90 with <a href="http://www.xs4all.nl/~rfsber/Robo/robodoc.html">ROBODoc</a> V4.99.38 on Fri Nov 25 2011 14:02:55
</p>
</div> <!-- footer -->
</body>
</html>