Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
gettblvl.f
Go to the documentation of this file.
1  subroutine get_tablem_value (time, tabnum, resistance, slope)
2 c
3 c-------Description--------------------------------------------------
4 c
5 c Source File: gettblvl.f
6 c
7 c Author/Date: Kelley Fugelso, 1265 (SEA) 04/89
8 c 2014-02-06 RBS: Changed real*4 to real
9 c 2014-03-24 RBS: Added the slope as a passed value.
10 c 2014-04-04 RBS: Added real definition for slope
11 c 2014-05-02 RBS: Changed integer*4 to integer
12 c
13 c Purpose: This subroutine determines the resistance (nductance) based on the
14 c time and variable resistance (inductance) table model number. The
15 c resistance (inductance) is calculated by interpolating using time
16 c as the independent variable.
17 c
18 c Called by: Program zdem
19 c
20 c Calls: Function CALC_RESISTANCE
21 c
22 c-------Include Files---------------------------------------------------
23 c
24  include 'zdemparm.h'
25  include 'zdemmax.h'
26  include 'zdemcomm.h'
27  include 'zdemwork.h'
28 c
29 c-------Input Parameters------------------------------------------------
30 c */
31  real time ! Current time of problem */
32  integer tabnum ! Variable resistor table model number */
33 c */
34 c-------Output Parameters---------------------------------------------*/
35 c */
36  real resistance, ! Interpolated resistance */
37  & slope ! Interpolated slope */
38 c */
39 c-------Local Variables-----------------------------------------------*/
40 c */
41  real scale, ! Scale factor */
42  + delay ! Time delay */
43  integer num_tpoints ! Number of points in table */
44 c */
45 c-------Subroutine Body-----------------------------------------------*/
46 c
47  scale = tablem_vals(1,tabnum)
48  delay = tablem_vals(2,tabnum)
49  num_tpoints = num_tablem_vals(tabnum) - 2
50  resistance = calc_resistance(time-delay, num_tpoints,
51  & tablem_vals(3,tabnum), lasttabm_time(tabnum))
52  resistance = resistance * scale
53  slope = calc_slope(time-delay, num_tpoints,
54  & tablem_vals(3,tabnum), lasttabm_time(tabnum))
55  slope = slope * scale
56 
57 c
58 c-------Subroutine End--------------------------------------------------
59 c
60  return
61  end
function calc_slope(time, npts, pts, ltime)
Definition: calcslope.f:1
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 time
Definition: zdemfmt.h:85
subroutine get_tablem_value(time, tabnum, resistance, slope)
Definition: gettblvl.f:1
function calc_resistance(time, npts, pts, ltime)
Definition: calcres.f:1
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 scale
Definition: zdemfmt.h:111