FAST v8 S_function

/*
 *  TEMPLATE File: sfuntmpl_gate_fortran.c
 *  TEMPLATE Copyright 1990-2013 The MathWorks Inc.
 *
 * Modified by B. Jonkman National Renewable Energy Laboratory
 *   for use with FAST v8
 *   20-Jan-2015
 */


/*
 * You must specify the S_FUNCTION_NAME as the name of your S-function
 * （i.e. replace sfungate with the name of your S-function which has
 * to match the name of the final mex file e.g. if the S_FUNCTION_NAME
 * is my_sfuntmpl_gate_fortran the mex filename will have to be 
 * my_sfuntmpl_gate_fortran.mexXXX where XXX is the 3 letter 
 * mex extension code for your platform）.
 */

#define S_FUNCTION_LEVEL 2
#define S_FUNCTION_NAME  FAST_SFunc

/*
 * Need to include simstruc.h for the definition of the SimStruct and
 * its associated macro definitions.
 */
#include “simstruc.h“
#include “mex.h“     // for mexPutVariable
#include “matrix.h“  // for mxCreateDoubleScalar
#include “FAST_Library.h“


#define PARAM_FILENAME 0
#define PARAM_TMAX 1
#define PARAM_ADDINPUTS 2
#define NUM_PARAM 3

// two DWork arrays:
#define WORKARY_OUTPUT 0
#define WORKARY_INPUT 1


static double dt = 0;
static double TMax = 0;
static int NumInputs = NumFixedInputs;
static int NumAddInputs = 0;  // number of additional inputs
static int NumOutputs = 1;
static int ErrStat = 0;
static char ErrMsg[INTERFACE_STRING_LENGTH];        // make sure this is the same size as IntfStrLen in FAST_Library.f90
static char InputFileName[INTERFACE_STRING_LENGTH]; // make sure this is the same size as IntfStrLen in FAST_Library.f90
static int n_t_global = -2;  // counter to determine which fixed-step simulation time we are at currently （start at -2 for initialization）

// function definitions
static int checkError（SimStruct *S）;
static void mdlTerminate（SimStruct *S）; // defined here so I can call it from checkError
static void getInputs（SimStruct *S double *InputAry）;
static void setOutputs（SimStruct *S double *OutputAry）;


/* Error handling
* --------------
*
* You should use the following technique to report errors encountered within
* an S-function:
*
*       ssSetErrorStatus（S“Error encountered due to ...“）;
*       return;
*
* Note that the 2nd argument to ssSetErrorStatus must be persistent memory.
* It cannot be a local variable. 
*/
static int
checkError（SimStruct *S）{

   if （ErrStat >= AbortErrLev）{
      ssPrintf（“\n“）;
      ssSetErrorStatus（S ErrMsg）;
      mdlTerminate（S）;  // terminate on error （in case Simulink doesn‘t do so itself）
      return 1;
   }
   else if （ErrStat >= ErrID_Warn）{
      ssPrintf（“\n“）;
      ssWarning（S ErrMsg）;
   }
   else if （ErrStat != ErrID_None）{
      ssPrintf（“\n%s\n“ ErrMsg）;
   }
   return 0;

}

static void
getInputs（SimStruct *S double *InputAry）{

   int     k;
   InputRealPtrsType uPtrs = ssGetInputPortRealSignalPtrs（S 0）;

   for （k = 0; k < ssGetDWorkWidth（S WORKARY_INPUT）; k++） {
      InputAry[k] = （double）（