1 c----------------------------------------------------------------------
2 c @(#)zdemenv.h version 1.2 created 02/16/99 09:46:39
3 c Last modified: 4-Jan-1999 16:07:34 klf
5 c----------------------------------------------------------------------
6 c---------------------------------------------------------------------
8 c This is the common
block for those variables which are determined
9 c by the device dependent routine getenvvr.f
12 c 08/12/97,
MLK, Changed inpfile variable to allow 100 characters
13 c Added base_filename variable to allow storage of
14 c filename without the extension
for DOS (otherwise
15 c it is the full filename)
16 c 06/09/95,
MLK, Commented out
use of sub1-sub4, zfile, date_time
18 c 2008-07-16
RBS: Cleaned up entire
file during gFortran conversion
20 c---------------------------------------------------------------------
22 character*100 inpfile, base_filename
23 character*30 scr_parmfile
24 common /env_var/ base_filename, scr_parmfile
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into use
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
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 it(branch ', i2, ')*****') c 17 format(' '
c This is a Fortran header MLK
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
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
c This is a Fortran header file