fmodule.h

Go to the documentation of this file.

 
 
#ifndef fmoduleH
#define fmoduleH
extern "C" struct
{
    // ---- Hydraulic volume values (indexed by hydro_v_obj) ----
    double liq_t[500];        
    double sys_pressure[500]; 
    double vap_t[500];        
    double sat_t[500];        
    double boron_d[500];      
    double quality[500];      
    double flow_reg[500];     
 
    // ---- Hydraulic junction values (indexed by hydro_j_obj) ----
    double mass_fr[500];      
    double liq_vel[500];      
    double vap_vel[500];      
 
    // ---- Trip values ----
    double vartrip_t[500];    
    double logtrip_t[500];    
 
    // ---- Interactive and control variable values ----
    double inter_val[500];    
    double ctrl_var_val[500]; 
 
    // ---- Heat structure values ----
    double mesh_t[100];       
 
    // ---- Simulation time ----
    double timesno;           
 
    // ---- Scenario/branch state ----
    long cnumsno;             
    long cncount;             
 
    // ---- Card number / object index pairs ----
    // C++ sets _cn[], Fortran R5ParFind() fills _obj[]
    int hydro_v_cn[500];      
    int hydro_v_obj[500];     
    int hydro_j_cn[500];      
    int hydro_j_obj[500];     
    int var_trip_cn[500];     
    int var_trip_obj[500];    
    int log_trip_cn[500];     
    int log_trip_obj[500];    
    int interact_cn[500];     
    int interact_obj[500];    
    int ctrl_var_cn[500];     
    int ctrl_var_obj[500];    
    int n_mesh[10];           
    int heat_str_cn[10];      
    int heat_str_obj[10];     
 
    // ---- Array size counters ----
    int n_hydrov;             
    int n_hydroj;             
    int n_vartrip;            
    int n_logtrip;            
    int n_interact;           
    int n_heatstr;            
    int n_ctrl_var;           
 
    // ---- Simulation control flags ----
    int csnostop;             
    int des_length;           
    int carg0len;             
    int carg1len;             
    int carg2len;             
    int carg3len;             
    int carg4len;             
    int carg5len;             
    int carg6len;             
    int rstnamelen;           
    int tsimmode;             
    int cnbranch;             
 
    // ---- String arguments for RELAP5 invocation ----
    char rst_name[80];        
    char carg0[100];          
    char carg1[100];          
    char carg2[100];          
    char carg3[100];          
    char carg4[100];          
    char carg5[100];          
    char carg6[100];          
    char th_es_des[255];      
 
    // ---- Boolean flags ----
    bool only_once;           
    bool si_unit;             
    bool sim_err;             
    bool cnewrst;             
    bool cgennode;            
    bool terminateall;        
    bool runcrew;             
    bool dopltwrt;            
    bool gendataout;          
} r5pars_;
#endif