Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
rdscrdat.h
Go to the documentation of this file.
1 c----------------------------------------------------------------------
2 c @(#)rdscrdat.h version 1.0 created 06/15/2005 by Mathias Bavay
3 c----------------------------------------------------------------------
4 c---------------------------------------------------------------------
5 c
6 c This is the common block for those variables used by the processing of
7 c the input deck.
8 c
9 c Modifications:
10 c 2014-02-06 RBS: Changed real*4 to real
11 c Reorder common /rdscrnumbers/ 64 bit first
12 c---------------------------------------------------------------------
13 
14 c
15 c Various data types for this subroutine.
16 c
17  parameter (max_fields = 10)
18 
19  character field(max_fields)*80, label2*2, keychar*1,
20  & cbranch*2, cblock*2, branch_block*4
21  character trllabel*20, label18*18, labelout*23, labelplt*11,
22  & labelidr*8, ulabel*11, material*3
23  character currline*120, currdate*9, hostmach*80, date_mach*80
24  character keyword*(keyword_len), keywordsave*(keyword_len)
25 
26  common /rdscrstring1/ field, label2, keychar,
27  & cbranch, cblock, branch_block
28  common /rdscrstring2/ trllabel, label18, labelout, labelplt,
29  & labelidr, ulabel, material
30  common /rdscrstring3/ currline, currdate, hostmach, date_mach,
31  & keyword, keywordsave
32 
33  real l2, mode, massnum, numden, ibigpo
34  integer*4 flag, flag2, flag3, flag4, flag5,
35  & flag6, flag7, flag8, flag9, flag10,
36  & tstepflg, endtflg, nprtflg,
37  & ncyclflg, restflg, eofflg, lcirblk
38 
39  common /rdscrnumbers/ l2, mode, massnum, numden, ibigpo,
40  & flag, flag2, flag3, flag4, flag5,
41  & flag6, flag7, flag8, flag9, flag10,
42  & tstepflg, endtflg, nprtflg,
43  & ncyclflg, restflg, eofflg, lcirblk
44 
45  integer*4 nblks, nbrns, nublks, nvarl, nlines,
46  & numerr, nsaverr, nsecbrn, lastblk
47 
48  common /rdscrcounters/ nblks, nbrns, nublks, nvarl, nlines,
49  & numerr, nsaverr, nsecbrn, lastblk
50 
51 c
52 c Set various other parameters
53 c
54  character comment_key*1, diaglabel_key*1, diaglabel_altkey*1
55  parameter (comment_key = '!')
56  parameter (diaglabel_key = '$')
57  parameter (diaglabel_altkey = '%')
58  integer*4 err, noerr, k_found
59  parameter (err = 1, noerr = 0)
60  parameter (k_found = 10)
61  parameter (notext = 0)
62  parameter (lunit = 4)
63  parameter (abdratemax = 0.05) !max growth rate for applied-B diode
64 
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line corrected spelling errors in format added statement for Zflow Plasma Loss Model added format for CSV output type fixed more lines longer than characters added format for Measure Zflow Block and forward c reverse current directions in Zflow plasma loss c and Zflow POS models added format for SFC output type c RBS
Definition: zdemfmt.h:7
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line corrected spelling errors in format added statement for Zflow Plasma Loss Model added format for CSV output type fixed more lines longer than characters added format for Measure Zflow Block and forward c reverse current directions in Zflow plasma loss c and Zflow POS models added format for SFC output type c removed from all code calls c c c c c a80 c i10 c No grids on plots c Do not write files containing the plotted points c Execute only one cycle c Do not echo the setup parameters and indicies c c &exitting c a13 c c c c c c c c102 c &described as a function of time c c c &described as a function of time c c c &function of time c c shell c &min A K c &trapped field c153 c c c Sin c c c remaining calls in rdscrelem c Tabular a10 Cond c c c &used with this model c Exponential model of a resistive c c c Rise model of a resistive c c Z FLOW POS c c c c SW1 c c c158 MFI Insulator CB c c c c161 Z FLOW Plasma Loss Current c c c Applied B Diode c &Ion Ion c c c c Initial c PRINT Output Request for block
Definition: zdemfmt.h:192
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line c
Definition: zdemfmt.h:7