ETS  \$Id: Doxyfile 2162 2020-02-26 14:16:09Z g2dpc $
 All Classes Files Functions Variables Pages
printcpo.f90
Go to the documentation of this file.
1 program printcom
2 !***********************************************************
3 ! This module has been automatically generated from the
4 ! ITM schemas.
5 ! Author: Edmondo Giovannozzi (2011) ENEA
6 ! The software is released under the ITM License.
7 !***********************************************************
8 
9  use itm_types
10  use euitm_schemas
11  use euitm_routines
12  use euitm_printcpo
13 
14  implicit none
15 
16  integer(itm_i4) :: shot, run, idx, i
17  character(len = 5)::treename
18  logical :: pscreen
19  character(len = 40) form
20 
21  type(type_amns) :: amns
22  type(type_antennas), pointer :: antennas(:) => null()
23  type(type_coredelta), pointer :: coredelta(:) => null()
24  type(type_coreimpur), pointer :: coreimpur(:) => null()
25  type(type_coreneutrals), pointer :: coreneutrals(:) => null()
26  type(type_coreprof), pointer :: coreprof(:) => null()
27  type(type_coresource), pointer :: coresource(:) => null()
28  type(type_coretransp), pointer :: coretransp(:) => null()
29  type(type_cxdiag), pointer :: cxdiag(:) => null()
30  type(type_distribution), pointer :: distribution(:) => null()
31  type(type_distsource), pointer :: distsource(:) => null()
32  type(type_ecediag), pointer :: ecediag(:) => null()
33  type(type_edge), pointer :: edge(:) => null()
34  type(type_equilibrium), pointer :: equilibrium(:) => null()
35  type(type_fusiondiag), pointer :: fusiondiag(:) => null()
36  type(type_interfdiag), pointer :: interfdiag(:) => null()
37  type(type_ironmodel), pointer :: ironmodel(:) => null()
38  type(type_langmuirdiag), pointer :: langmuirdiag(:) => null()
39  type(type_launchs), pointer :: launchs(:) => null()
40  type(type_limiter) :: limiter
41  type(type_magdiag), pointer :: magdiag(:) => null()
42  type(type_mhd), pointer :: mhd(:) => null()
43  type(type_msediag), pointer :: msediag(:) => null()
44  type(type_nbi), pointer :: nbi(:) => null()
45  type(type_neoclassic), pointer :: neoclassic(:) => null()
46  type(type_orbit), pointer :: orbit(:) => null()
47  type(type_pfsystems), pointer :: pfsystems(:) => null()
48  type(type_polardiag), pointer :: polardiag(:) => null()
49  type(type_reference), pointer :: reference(:) => null()
50  type(type_sawteeth), pointer :: sawteeth(:) => null()
51  type(type_scenario), pointer :: scenario(:) => null()
52  type(type_summary) :: summary
53  type(type_topinfo) :: topinfo
54  type(type_toroidfield), pointer :: toroidfield(:) => null()
55  type(type_tsdiag), pointer :: tsdiag(:) => null()
56  type(type_turbulence), pointer :: turbulence(:) => null()
57  type(type_vessel) :: vessel
58  type(type_waves), pointer :: waves(:) => null()
59 
60 ! shot = 3 ! Your choice
61 ! run = 2 ! Your choice
62 ! treename = 'euitm' ! Mandatory
63 ! xmloutput is defined in euITM_printcpo (not a very good design: so, pay attention)
64  call printcpoargs(shot, run, treename, pscreen, xmloutput)
65 
66  if (xmloutput) then
67  print '(A)', '<?xml version="1.0" encoding="utf-8"?>'
68  print '(A)', '<!--'
69  end if
70  write(*, *) 'Open shot in MDS !'
71  call euitm_open(treename, shot, run, idx)
72  write(*, *) 'Value of the idx:', idx
73  write(*, *) 'Reading the results :'
74 
75  call euitm_get(idx, 'amns', amns)
76  call euitm_get(idx, 'antennas', antennas)
77  call euitm_get(idx, 'coredelta', coredelta)
78  call euitm_get(idx, 'coreimpur', coreimpur)
79  call euitm_get(idx, 'coreneutrals', coreneutrals)
80  call euitm_get(idx, 'coreprof', coreprof)
81  call euitm_get(idx, 'coresource', coresource)
82  call euitm_get(idx, 'coretransp', coretransp)
83  call euitm_get(idx, 'cxdiag', cxdiag)
84  call euitm_get(idx, 'distribution', distribution)
85  call euitm_get(idx, 'distsource', distsource)
86  call euitm_get(idx, 'ecediag', ecediag)
87  call euitm_get(idx, 'edge', edge)
88  call euitm_get(idx, 'equilibrium', equilibrium)
89  call euitm_get(idx, 'fusiondiag', fusiondiag)
90  call euitm_get(idx, 'interfdiag', interfdiag)
91  call euitm_get(idx, 'ironmodel', ironmodel)
92  call euitm_get(idx, 'langmuirdiag', langmuirdiag)
93  call euitm_get(idx, 'launchs', launchs)
94  call euitm_get(idx, 'limiter', limiter)
95  call euitm_get(idx, 'magdiag', magdiag)
96  call euitm_get(idx, 'mhd', mhd)
97  call euitm_get(idx, 'msediag', msediag)
98  call euitm_get(idx, 'nbi', nbi)
99  call euitm_get(idx, 'neoclassic', neoclassic)
100  call euitm_get(idx, 'orbit', orbit)
101  call euitm_get(idx, 'pfsystems', pfsystems)
102  call euitm_get(idx, 'polardiag', polardiag)
103  call euitm_get(idx, 'reference', reference)
104  call euitm_get(idx, 'sawteeth', sawteeth)
105  call euitm_get(idx, 'scenario', scenario)
106  call euitm_get(idx, 'summary', summary)
107  call euitm_get(idx, 'topinfo', topinfo)
108  call euitm_get(idx, 'toroidfield', toroidfield)
109  call euitm_get(idx, 'tsdiag', tsdiag)
110  call euitm_get(idx, 'turbulence', turbulence)
111  call euitm_get(idx, 'vessel', vessel)
112  call euitm_get(idx, 'waves', waves)
113 
114  print *
115  if (xmloutput) then
116  print '(A)', '-->'
117  print '(A)', '<top>'
118  end if
119 
120  call printcpo(amns)
121  call printcpo(antennas)
122  call printcpo(coredelta)
123  call printcpo(coreimpur)
124  call printcpo(coreneutrals)
125  call printcpo(coreprof)
126  call printcpo(coresource)
127  call printcpo(coretransp)
128  call printcpo(cxdiag)
129  call printcpo(distribution)
130  call printcpo(distsource)
131  call printcpo(ecediag)
132  call printcpo(edge)
133  call printcpo(equilibrium)
134  call printcpo(fusiondiag)
135  call printcpo(interfdiag)
136  call printcpo(ironmodel)
137  call printcpo(langmuirdiag)
138  call printcpo(launchs)
139  call printcpo(limiter)
140  call printcpo(magdiag)
141  call printcpo(mhd)
142  call printcpo(msediag)
143  call printcpo(nbi)
144  call printcpo(neoclassic)
145  call printcpo(orbit)
146  call printcpo(pfsystems)
147  call printcpo(polardiag)
148  call printcpo(reference)
149  call printcpo(sawteeth)
150  call printcpo(scenario)
151  call printcpo(summary)
152  call printcpo(topinfo)
153  call printcpo(toroidfield)
154  call printcpo(tsdiag)
155  call printcpo(turbulence)
156  call printcpo(vessel)
157  call printcpo(waves)
158  call euitm_deallocate(amns)
159  call euitm_deallocate(antennas)
160  call euitm_deallocate(coredelta)
161  call euitm_deallocate(coreimpur)
162  call euitm_deallocate(coreneutrals)
163  call euitm_deallocate(coreprof)
164  call euitm_deallocate(coresource)
165  call euitm_deallocate(coretransp)
166  call euitm_deallocate(cxdiag)
167  call euitm_deallocate(distribution)
168  call euitm_deallocate(distsource)
169  call euitm_deallocate(ecediag)
170  call euitm_deallocate(edge)
171  call euitm_deallocate(equilibrium)
172  call euitm_deallocate(fusiondiag)
173  call euitm_deallocate(interfdiag)
174  call euitm_deallocate(ironmodel)
175  call euitm_deallocate(langmuirdiag)
176  call euitm_deallocate(launchs)
177  call euitm_deallocate(limiter)
178  call euitm_deallocate(magdiag)
179  call euitm_deallocate(mhd)
180  call euitm_deallocate(msediag)
181  call euitm_deallocate(nbi)
182  call euitm_deallocate(neoclassic)
183  call euitm_deallocate(orbit)
184  call euitm_deallocate(pfsystems)
185  call euitm_deallocate(polardiag)
186  call euitm_deallocate(reference)
187  call euitm_deallocate(sawteeth)
188  call euitm_deallocate(scenario)
189  call euitm_deallocate(summary)
190  call euitm_deallocate(topinfo)
191  call euitm_deallocate(toroidfield)
192  call euitm_deallocate(tsdiag)
193  call euitm_deallocate(turbulence)
194  call euitm_deallocate(vessel)
195  call euitm_deallocate(waves)
196 
197  if (xmloutput) then
198  print '(A)', '</top>'
199  end if
200 
201 end program
202 
printcom
program printcom
Definition: printcpo.f90:1
generic_sources::nbi
subroutine, public nbi(equilibrium, coreprof, coresource)
Definition: generic_sources.f90:237
printcpoargs
subroutine printcpoargs(shot, run, treename, pscreen, xmloutput)
Definition: printcpoargs.f90:6