Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
snsqfunc.f
Go to the documentation of this file.
1  function fsinsquared (time, amplitude, halfperiod, delay)
2 c
3 c Define passed variables
4 c
5  real time, amplitude, halfperiod, delay
6 c
7  real pi, deltime, alpha, sin_alpha
8  parameter(pi = 3.1415927)
9 c
10 c Change log
11 c
12 c 2014-02-06 RBS: Changed real*4 to real
13 c 2014-05-05 RBS: Define pi, alpha, sin_alpha as real
14 c
15 c Calulates the function:
16 c 2
17 c f(time) = amplitude * ( sin (alpha) ) ,
18 c where: alpha = ((time-delay)/halfperiod)*pi .
19 c
20 c Note: f is zero if time < delay and if time > delay + halfperiod
21 c
22  deltime = time - delay
23  if ((deltime .ge. 0.0) .and. (deltime .le. halfperiod)) then
24  alpha = (deltime/halfperiod) * pi
25  sin_alpha = sin(alpha)
26  fsinsquared = amplitude * sin_alpha * sin_alpha
27  else
28  fsinsquared = 0.0
29  end if
30 c
31  return
32  end
function fsinsquared(time, amplitude, halfperiod, delay)
Definition: snsqfunc.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