subscripted value is neither array nor pointer: 2 files

2 files very similar: the first works; the second give me a lot of "subscripted value is neither array nor pointer".

The only fidderence I see is that in the second one
DiscipulusCFunction calls DiscipulusCFunctionSubC0 /1/2 etc...

Thanks

THIS WORKS:

Code:

---

#include "math.h"
  #include "stdlib.h"
  #include "stdio.h"
  #include "string.h"
  #include "ctype.h"
  #include <float.h>

  #define TRUNC(x)(((x)>=0) ? floor(x) : ceil(x))
  #define C_FPREM (_finite(f[0]/f[1]) ? f[0]-(TRUNC(f[0]/f[1])*f[1]) : f[0]/f[1])
  #define C_F2XM1 (((fabs(f[0])<=1) && (!_isnan(f[0]))) ? (pow(2,f[0])-1) : ((!_finite(f[0]) && !_isnan(f[0]) && (f[0]<0)) ? -1 : f[0]))

  #define MAXLINE 100

  #define inputs    47
  #define hidden    13
  #define outputs    1


float DiscipulusCFunction(float v[])
{
  long double f[8];
  long double tmp = 0;
  int cflag = 0;

  f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;

  double Input000=v[0] ;
  double Input001=v[1] ;
  double Input002=v[2] ;
  double Input003=v[3] ;
  double Input004=v[4] ;
  double Input005=v[5] ;
  double Input006=v[6] ;
  double Input007=v[7] ;
  double Input008=v[8] ;
  double Input009=v[9] ;
  double Input010=v[10] ;
  double Input011=v[11] ;
  double Input012=v[12] ;
  double Input013=v[13] ;
  double Input014=v[14] ;
  double Input015=v[15] ;
  double Input016=v[16] ;
  double Input017=v[17] ;
  double Input018=v[18] ;
  double Input019=v[19] ;
  double Input020=v[20] ;
  double Input021=v[21] ;
  double Input022=v[22] ;
  double Input023=v[23] ;
  double Input024=v[24] ;
  double Input025=v[25] ;
  double Input026=v[26] ;
  double Input027=v[27] ;
  double Input028=v[28] ;
  double Input029=v[29] ;
  double Input030=v[30] ;
  double Input031=v[31] ;
  double Input032=v[32] ;
  double Input033=v[33] ;
  double Input034=v[34] ;
  double Input035=v[35] ;
  double Input036=v[36] ;
  double Input037=v[37] ;
  double Input038=v[38] ;
  double Input039=v[39] ;
  double Input040=v[40] ;
  double Input041=v[41] ;
  double Input042=v[42] ;
  double Input043=v[43] ;
  double Input044=v[44] ;
  double Input045=v[45] ;
  double Input046=v[46] ;

  L0:  f[0]=cos(f[0]);
  L1:  f[0]=cos(f[0]);
  L2:  f[0]=sqrt(f[0]);
  L3:  f[0]=-f[0];
  L4:  f[0]*=Input005;
  L5:  f[1]+=f[0];
  L6:  f[0]=sin(f[0]);
  L7:  f[0]=cos(f[0]);
  L8:  f[0]=cos(f[0]);
  L9:  f[0]*=Input005;
  L10:  f[0]*=Input045;
  L11:  f[1]/=f[0];
  L12:  f[1]/=f[0];
  L13:  if (!cflag) f[0] = f[1];
  L14:

  if (!_finite(f[0])) f[0]=0;

  return f[0];
}


float DiscipulusCRegressionFunction(float  v [])
{
  float ret = DiscipulusCFunction(v) ;
  return ret;
}


  main(argc,argv)
  int argc;
  char *argv[];
  {
    if (argc != 3)
    {
    printf("Syntax:  input_file  output_file\n");
    exit(1);
    }
    register i;
    double inp;

    double v[inputs];
    double f[outputs];

    FILE *II;
    FILE *OO;
    char line[MAXLINE];

    II=fopen(argv[1], "r");
    OO=fopen(argv[2], "w");

  while(fgets(line, MAXLINE, II)) {

    if (!( isascii(line[0]) )) break;

    for (i = 0; i < inputs; i++)
    {
      sscanf(line, "%lf", &inp);
      v[i] = inp;
    }

    for (i = 0; i < outputs; i++)
      {
      fprintf(OO, "%.3lf ", f[i]);
      }

    fprintf(OO, "\n");

    }

    fclose(II);
    fclose(OO);
    }

---

THIS NOT:

Code:

---

  #include "math.h"
  #include "stdlib.h"
  #include "stdio.h"
  #include "string.h"
  #include "ctype.h"
  #include <float.h>

  #define TRUNC(x)(((x)>=0) ? floor(x) : ceil(x))
  #define C_FPREM (_finite(f[0]/f[1]) ? f[0]-(TRUNC(f[0]/f[1])*f[1]) : f[0]/f[1])
  #define C_F2XM1 (((fabs(f[0])<=1) && (!_isnan(f[0]))) ? (pow(2,f[0])-1) : ((!_finite(f[0]) && !_isnan(f[0]) && (f[0]<0)) ? -1 : f[0]))

  #define inputs    36
  #define hidden    13
  #define outputs    1

  #define MAXLINE 100

  typedef enum {false = 0, true = 1} boolean;

float DiscipulusCFunctionSubC0(float v[])
{
  long double f[8];
  long double tmp = 0;
  int cflag = 0;

  f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;

  double open=v[0] ;
  double high=v[1] ;
  double low=v[2] ;
  double close=v[3] ;
  double volume=v[4] ;
  double q=v[5] ;
  double w=v[6] ;
  double e=v[7] ;
  double r=v[8] ;
  double t=v[9] ;
  double y=v[10] ;
  double u=v[11] ;
  double i=v[12] ;
  double o=v[13] ;
  double p=v[14] ;
  double a=v[15] ;
  double s=v[16] ;
  double d=v[17] ;
  double f=v[18] ;
  double g=v[19] ;
  double h=v[20] ;
  double j=v[21] ;
  double k=v[22] ;
  double l=v[23] ;
  double z=v[24] ;
  double x=v[25] ;
  double c=v[26] ;
  double v=v[27] ;
  double b=v[28] ;
  double n=v[29] ;
  double m=v[30] ;
  double qq=v[31] ;
  double ww=v[32] ;
  double ee=v[33] ;
  double rr=v[34] ;
  double tt=v[35] ;

  L0:        f[1]*=f[0];
  L1:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L2:        f[0]-=d;
  L3:        if (cflag) f[0] = f[0];
  L4:        f[1]*=f[0];
  L5:        f[0]=fabs(f[0]);
  L6:        f[0]=-f[0];
  L7:        f[0]/=x;
  L8:        f[0]=fabs(f[0]);
  L9:        f[1]+=f[0];
  L10:        f[0]/=0.7233922481536865f;
  L11:        f[0]-=d;
  L12:        f[0]+=x;
  L13:        f[0]=fabs(f[0]);
  L14:        f[0]/=b;
  L15:        f[1]/=f[0];
  L16:        f[1]/=f[0];
  L17:        f[0]=sqrt(f[0]);
  L18:        f[1]/=f[0];
  L19:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L20:        f[0]/=f[0];
  L21:        f[0]*=1.501374244689941f;
  L22:        if (cflag) f[0] = f[1];
  L23:        if (cflag) f[0] = f[1];
  L24:        f[0]=sqrt(f[0]);
  L25:        if (cflag) f[0] = f[0];
  L26:        f[0]-=p;
  L27:        f[0]+=f[0];
  L28:        f[0]*=low;
  L29:        f[0]=fabs(f[0]);
  L30:        f[0]*=pow(2,TRUNC(f[1]));
  L31:        f[0]-=q;
  L32:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L33:        f[0]-=d;
  L34:        f[0]+=f[0];
  L35:        f[0]*=pow(2,TRUNC(f[1]));
  L36:        f[0]+=f[0];
  L37:        f[0]=-f[0];
  L38:        f[0]/=0.6342074871063232f;
  L39:        f[0]/=0.6342074871063232f;
  L40:        f[0]+=e;
  L41:        f[0]+=t;
  L42:        f[0]+=u;
  L43:        f[0]=fabs(f[0]);
  L44:        f[0]/=x;
  L45:        f[0]/=c;
  L46:        f[0]+=t;
  L47:        f[0]*=b;
  L48:        if (!cflag) f[0] = f[0];
  L49:        f[0]/=c;
  L50:        f[0]+=w;
  L51:        f[0]/=c;
  L52:        f[0]*=v;
  L53:        f[0]/=c;
  L54:        f[0]*=v;
  L55:        f[0]/=c;
  L56:        f[0]*=v;
  L57:        f[0]=sin(f[0]);
  L58:        f[0]/=x;
  L59:        f[0]*=v;
  L60:        f[0]*=v;
  L61:        f[0]+=0.1058487892150879f;
  L62:        f[0]-=a;
  L63:        f[0]+=q;
  L64:        f[0]/=1.530829906463623f;
  L65:

  return f[0];
}


float DiscipulusCFunctionSubC1(float v[])
{
  long double f[8];
  long double tmp = 0;
  int cflag = 0;

  f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;

  double open=v[0] ;
  double high=v[1] ;
  double low=v[2] ;
  double close=v[3] ;
  double volume=v[4] ;
  double q=v[5] ;
  double w=v[6] ;
  double e=v[7] ;
  double r=v[8] ;
  double t=v[9] ;
  double y=v[10] ;
  double u=v[11] ;
  double i=v[12] ;
  double o=v[13] ;
  double p=v[14] ;
  double a=v[15] ;
  double s=v[16] ;
  double d=v[17] ;
  double f=v[18] ;
  double g=v[19] ;
  double h=v[20] ;
  double j=v[21] ;
  double k=v[22] ;
  double l=v[23] ;
  double z=v[24] ;
  double x=v[25] ;
  double c=v[26] ;
  double v=v[27] ;
  double b=v[28] ;
  double n=v[29] ;
  double m=v[30] ;
  double qq=v[31] ;
  double ww=v[32] ;
  double ee=v[33] ;
  double rr=v[34] ;
  double tt=v[35] ;

  L0:        if (!cflag) f[0] = f[1];
  L1:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L2:        f[0]-=f[1];
  L3:        f[1]-=f[0];
  L4:        f[0]+=f[0];
  L5:        f[0]*=pow(2,TRUNC(f[1]));
  L6:        f[0]=-f[0];
  L7:        f[1]/=f[0];
  L8:        if (cflag) f[0] = f[0];
  L9:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L10:        f[0]+=f[0];
  L11:        f[0]=sin(f[0]);
  L12:        f[0]-=z;
  L13:        f[0]=fabs(f[0]);
  L14:        if (!cflag) f[0] = f[0];
  L15:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L16:        f[0]-=f[0];
  L17:        f[0]=-f[0];
  L18:        f[0]=-f[0];
  L19:        f[0]=fabs(f[0]);
  L20:        f[0]=fabs(f[0]);
  L21:        f[0]+=f[1];
  L22:        f[0]=sqrt(f[0]);
  L23:        if (cflag) f[0] = f[1];
  L24:        if (!cflag) f[0] = f[1];
  L25:        f[0]-=0.2877938747406006f;
  L26:        f[0]-=f[1];
  L27:        f[0]/=f[0];
  L28:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L29:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L30:        f[1]+=f[0];
  L31:        f[0]*=1.530829906463623f;
  L32:        f[1]*=f[0];
  L33:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L34:        f[0]=sin(f[0]);
  L35:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L36:        f[0]=fabs(f[0]);
  L37:        f[0]*=pow(2,TRUNC(f[1]));
  L38:        f[0]-=t;
  L39:        f[1]+=f[0];
  L40:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L41:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L42:        f[0]-=f[0];
  L43:        if (cflag) f[0] = f[1];
  L44:        if (!cflag) f[0] = f[1];
  L45:        f[0]=cos(f[0]);
  L46:        f[0]*=f[1];
  L47:        f[0]=-f[0];
  L48:        f[0]*=f[0];
  L49:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L50:        f[0]-=f[1];
  L51:        f[0]-=f[0];
  L52:        f[0]+=i;
  L53:        f[0]*=f[1];
  L54:        f[0]-=-1.063283443450928f;
  L55:        f[0]=cos(f[0]);
  L56:        f[0]/=f[1];
  L57:        f[0]*=f[0];
  L58:        f[0]/=f[0];
  L59:        f[0]+=f[1];
  L60:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L61:        f[0]*=f[0];
  L62:        f[0]=-f[0];
  L63:        f[0]=cos(f[0]);
  L64:        f[0]+=f[0];
  L65:        f[1]+=f[0];
  L66:        f[1]+=f[0];
  L67:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L68:        if (!cflag) f[0] = f[1];
  L69:        f[0]=fabs(f[0]);
  L70:        f[0]*=f[0];
  L71:        f[0]-=f[0];
  L72:        f[0]+=f[1];
  L73:        f[0]=sqrt(f[0]);
  L74:        f[0]/=x;
  L75:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L76:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L77:        f[0]-=1.744837045669556f;
  L78:        f[0]=fabs(f[0]);
  L79:        f[1]+=f[0];
  L80:        f[0]+=f[0];
  L81:        if (cflag) f[0] = f[0];
  L82:        f[0]-=y;
  L83:        f[0]/=volume;
  L84:        if (cflag) f[0] = f[0];
  L85:        f[1]-=f[0];
  L86:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L87:        f[0]=fabs(f[0]);
  L88:        f[0]+=d;
  L89:        f[1]*=f[0];
  L90:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L91:        f[0]=fabs(f[0]);
  L92:        f[1]+=f[0];
  L93:        f[0]-=a;
  L94:        f[0]=fabs(f[0]);
  L95:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L96:        f[0]=sqrt(f[0]);
  L97:        f[0]=fabs(f[0]);
  L98:        f[0]-=f[1];
  L99:        f[0]+=0.1387641429901123f;
  L100:        f[0]/=c;
  L101:        f[0]+=e;
  L102:        f[0]/=-1.063283443450928f;
  L103:        f[0]+=e;
  L104:        f[0]*=b;
  L105:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L106:        f[0]=sin(f[0]);
  L107:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L108:        if (cflag) f[0] = f[1];
  L109:        f[0]=fabs(f[0]);
  L110:        f[0]-=u;
  L111:        f[0]=fabs(f[0]);
  L112:        f[0]-=u;
  L113:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L114:        f[0]-=f[1];
  L115:        f[1]-=f[0];
  L116:        f[0]*=f[1];
  L117:        f[0]=cos(f[0]);
  L118:        f[0]+=f[0];
  L119:        f[0]+=f[1];
  L120:        f[0]=sin(f[0]);
  L121:        f[0]*=pow(2,TRUNC(f[1]));
  L122:        f[0]=sqrt(f[0]);
  L123:        if (cflag) f[0] = f[0];
  L124:        f[0]=-f[0];
  L125:        f[0]*=k;
  L126:        f[0]=fabs(f[0]);
  L127:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L128:        f[0]=-f[0];
  L129:        f[0]/=-1.063283443450928f;
  L130:        if (cflag) f[0] = f[0];
  L131:        f[0]=sqrt(f[0]);
  L132:        f[0]+=f[0];
  L133:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L134:        f[0]=-f[0];
  L135:        f[0]=fabs(f[0]);
  L136:        f[0]=-f[0];
  L137:        f[0]+=f[1];
  L138:        f[0]*=f[0];
  L139:        f[0]+=f[1];
  L140:        f[0]=sqrt(f[0]);
  L141:        f[0]*=pow(2,TRUNC(f[1]));
  L142:        f[0]=fabs(f[0]);
  L143:        if (cflag) f[0] = f[0];
  L144:        f[0]=sin(f[0]);
  L145:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L146:        f[0]-=y;
  L147:        f[0]-=y;
  L148:        f[0]+=u;
  L149:        f[0]=fabs(f[0]);
  L150:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L151:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L152:        f[0]+=r;
  L153:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L154:        f[1]+=f[0];
  L155:        f[0]+=r;
  L156:        f[0]=fabs(f[0]);
  L157:        f[0]=sin(f[0]);
  L158:        f[0]+=r;
  L159:        f[0]+=r;
  L160:        f[0]+=f[0];
  L161:        f[0]*=f[0];
  L162:

  return f[0];
}


float DiscipulusCFunctionSubC2(float v[])
{
  long double f[8];
  long double tmp = 0;
  int cflag = 0;

  f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;

  double open=v[0] ;
  double high=v[1] ;
  double low=v[2] ;
  double close=v[3] ;
  double volume=v[4] ;
  double q=v[5] ;
  double w=v[6] ;
  double e=v[7] ;
  double r=v[8] ;
  double t=v[9] ;
  double y=v[10] ;
  double u=v[11] ;
  double i=v[12] ;
  double o=v[13] ;
  double p=v[14] ;
  double a=v[15] ;
  double s=v[16] ;
  double d=v[17] ;
  double f=v[18] ;
  double g=v[19] ;
  double h=v[20] ;
  double j=v[21] ;
  double k=v[22] ;
  double l=v[23] ;
  double z=v[24] ;
  double x=v[25] ;
  double c=v[26] ;
  double v=v[27] ;
  double b=v[28] ;
  double n=v[29] ;
  double m=v[30] ;
  double qq=v[31] ;
  double ww=v[32] ;
  double ee=v[33] ;
  double rr=v[34] ;
  double tt=v[35] ;

  L0:        f[0]*=1.048232078552246f;
  L1:        cflag=((_isnan(f[0]) || _isnan(f[3])) ? true : (f[0] < f[3]));
  L2:        if (!cflag) f[0] = f[2];
  L3:        tmp=f[2]; f[2]=f[0]; f[0]=tmp;
  L4:        f[0]/=-1.364008665084839f;
  L5:        f[0]-=1.048232078552246f;
  L6:        f[3]-=f[0];
  L7:        f[0]*=pow(2,TRUNC(f[1]));
  L8:        tmp=f[3]; f[3]=f[0]; f[0]=tmp;
  L9:        f[0]+=1.744837045669556f;
  L10:        if (cflag) f[0] = f[3];
  L11:        f[1]/=f[0];
  L12:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L13:        f[0]*=f[1];
  L14:        f[0]*=f[2];
  L15:        f[0]+=m;
  L16:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L17:        f[0]/=f[0];
  L18:        f[0]-=f[2];
  L19:        f[0]-=f[1];
  L20:        f[0]*=b;
  L21:        f[0]+=q;
  L22:        if (cflag) f[0] = f[3];
  L23:        f[0]*=pow(2,TRUNC(f[1]));
  L24:        f[0]+=t;
  L25:        f[0]+=t;
  L26:        f[0]=fabs(f[0]);
  L27:        f[0]*=pow(2,TRUNC(f[1]));
  L28:        f[0]-=k;
  L29:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L30:        f[0]*=f[1];
  L31:        f[0]=sqrt(f[0]);
  L32:        f[0]-=f[3];
  L33:        f[0]*=f[0];
  L34:        f[0]=fabs(f[0]);
  L35:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L36:        f[0]*=rr;
  L37:        if (cflag) f[0] = f[0];
  L38:        if (!cflag) f[0] = f[1];
  L39:        f[0]+=i;
  L40:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L41:        f[3]/=f[0];
  L42:        cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
  L43:        if (!cflag) f[0] = f[1];
  L44:        if (!cflag) f[0] = f[0];
  L45:        f[0]*=f[1];
  L46:        f[3]-=f[0];
  L47:        tmp=f[3]; f[3]=f[0]; f[0]=tmp;
  L48:        f[0]*=f[2];
  L49:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L50:        f[0]+=0.1058487892150879f;
  L51:        f[0]=fabs(f[0]);
  L52:        cflag=((_isnan(f[0]) || _isnan(f[3])) ? true : (f[0] < f[3]));
  L53:        f[2]*=f[0];
  L54:        f[2]*=f[0];
  L55:        f[0]*=f[0];
  L56:        if (!cflag) f[0] = f[3];
  L57:        f[0]=fabs(f[0]);
  L58:        f[0]+=f[1];
  L59:        f[0]+=q;
  L60:        f[0]+=f[3];
  L61:        f[0]-=l;
  L62:        f[0]-=w;
  L63:        f[0]=fabs(f[0]);
  L64:        f[0]*=pow(2,TRUNC(f[1]));
  L65:        f[0]/=f[3];
  L66:        f[0]=cos(f[0]);
  L67:        if (!cflag) f[0] = f[3];
  L68:        f[0]-=i;
  L69:        cflag=((_isnan(f[0]) || _isnan(f[3])) ? true : (f[0] < f[3]));
  L70:        f[0]=fabs(f[0]);
  L71:        f[0]=sin(f[0]);
  L72:        f[0]+=0.1058487892150879f;
  L73:        f[0]+=close;
  L74:        f[0]-=l;
  L75:        f[0]+=q;
  L76:        f[0]+=q;
  L77:        f[0]*=0.6342074871063232f;
  L78:        f[0]+=close;
  L79:        f[0]-=l;
  L80:        f[1]-=f[0];
  L81:        f[2]*=f[0];
  L82:        f[0]=fabs(f[0]);
  L83:        f[0]*=pow(2,TRUNC(f[1]));
  L84:        f[0]+=t;
  L85:        cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
  L86:        f[0]+=close;
  L87:        f[0]-=low;
  L88:        f[0]+=i;
  L89:        f[1]+=f[0];
  L90:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L91:        f[0]=fabs(f[0]);
  L92:        f[1]*=f[0];
  L93:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L94:        f[0]*=pow(2,TRUNC(f[1]));
  L95:

  return f[0];
}


float DiscipulusCFunctionSubC3(float v[])
{
  long double f[8];
  long double tmp = 0;
  int cflag = 0;

  f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;

  double open=v[0] ;
  double high=v[1] ;
  double low=v[2] ;
  double close=v[3] ;
  double volume=v[4] ;
  double q=v[5] ;
  double w=v[6] ;
  double e=v[7] ;
  double r=v[8] ;
  double t=v[9] ;
  double y=v[10] ;
  double u=v[11] ;
  double i=v[12] ;
  double o=v[13] ;
  double p=v[14] ;
  double a=v[15] ;
  double s=v[16] ;
  double d=v[17] ;
  double f=v[18] ;
  double g=v[19] ;
  double h=v[20] ;
  double j=v[21] ;
  double k=v[22] ;
  double l=v[23] ;
  double z=v[24] ;
  double x=v[25] ;
  double c=v[26] ;
  double v=v[27] ;
  double b=v[28] ;
  double n=v[29] ;
  double m=v[30] ;
  double qq=v[31] ;
  double ww=v[32] ;
  double ee=v[33] ;
  double rr=v[34] ;
  double tt=v[35] ;

  L0:        f[0]+=y;
  L1:        f[0]+=f[1];
  L2:        if (cflag) f[0] = f[1];
  L3:        f[1]+=f[0];
  L4:        f[0]-=r;
  L5:        f[0]*=rr;
  L6:        f[0]-=f[0];
  L7:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L8:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L9:        f[0]-=e;
  L10:        f[0]-=-1.364008665084839f;
  L11:        f[0]/=b;
  L12:        f[0]=fabs(f[0]);
  L13:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L14:        f[0]=fabs(f[0]);
  L15:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L16:        f[0]-=1.530829906463623f;
  L17:        f[0]-=-1.238061666488648f;
  L18:        f[0]-=1.530829906463623f;
  L19:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L20:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L21:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L22:        f[0]*=f[0];
  L23:        f[0]*=f[0];
  L24:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L25:        f[0]-=0.1756083965301514f;
  L26:        f[0]/=m;
  L27:        f[0]*=v;
  L28:        f[0]=sqrt(f[0]);
  L29:        f[0]=-f[0];
  L30:        f[1]-=f[0];
  L31:        f[1]+=f[0];
  L32:        f[0]/=f[0];
  L33:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L34:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L35:        f[0]*=h;
  L36:        f[0]-=0.1387641429901123f;
  L37:        f[0]+=k;
  L38:        f[0]+=f[0];
  L39:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L40:        f[0]/=f[1];
  L41:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L42:        f[0]/=f[0];
  L43:        f[0]+=0.1387641429901123f;
  L44:        f[0]-=f[1];
  L45:        f[0]+=f[1];
  L46:        f[0]*=h;
  L47:        f[0]+=f[0];
  L48:        f[0]=sin(f[0]);
  L49:        f[0]/=b;
  L50:        f[1]+=f[0];
  L51:        f[0]-=f[1];
  L52:        if (!cflag) f[0] = f[0];
  L53:        f[0]/=f[1];
  L54:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L55:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L56:        f[0]/=m;
  L57:        f[0]-=d;
  L58:        f[0]*=rr;
  L59:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L60:        f[0]+=r;
  L61:        f[0]*=b;
  L62:        f[0]-=1.530829906463623f;
  L63:        f[0]-=h;
  L64:        f[0]/=b;
  L65:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L66:        f[0]-=l;
  L67:        f[0]/=b;
  L68:        f[0]*=0.6342074871063232f;
  L69:        f[0]*=h;
  L70:        f[0]*=f[0];
  L71:        f[0]/=b;
  L72:        f[0]*=0.6342074871063232f;
  L73:        f[0]/=b;
  L74:        f[0]+=-1.063283443450928f;
  L75:        f[1]*=f[0];
  L76:        f[1]-=f[0];
  L77:        f[1]-=f[0];
  L78:        f[0]+=-1.063283443450928f;
  L79:        f[0]-=open;
  L80:        f[0]-=-1.907608032226563f;
  L81:        f[0]*=pow(2,TRUNC(f[1]));
  L82:        f[0]=-f[0];
  L83:        f[0]-=f[1];
  L84:        f[1]/=f[0];
  L85:        f[0]-=f[0];
  L86:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L87:        f[0]*=f[1];
  L88:        f[0]+=f[0];
  L89:        if (cflag) f[0] = f[1];
  L90:        f[1]+=f[0];
  L91:        f[0]-=1.744837045669556f;
  L92:        f[0]*=pow(2,TRUNC(f[1]));
  L93:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L94:        f[0]=sin(f[0]);
  L95:        f[0]*=f[0];
  L96:        f[0]+=ee;
  L97:        f[0]+=f[1];
  L98:        f[0]*=f[0];
  L99:        f[0]*=f[0];
  L100:        f[0]/=f[0];
  L101:        f[0]-=h;
  L102:        f[0]*=f[1];
  L103:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L104:        f[0]-=f[1];
  L105:        f[1]-=f[0];
  L106:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L107:        f[0]+=-1.238061666488648f;
  L108:        f[0]-=0.1756083965301514f;
  L109:        f[0]-=c;
  L110:        f[0]/=0.9177978038787842f;
  L111:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L112:        if (cflag) f[0] = f[0];
  L113:        f[0]/=g;
  L114:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L115:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L116:        f[0]*=h;
  L117:        if (!cflag) f[0] = f[0];
  L118:        f[0]*=1.501374244689941f;
  L119:        f[0]-=h;
  L120:        f[0]/=b;
  L121:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L122:        f[0]-=h;
  L123:        f[0]/=b;
  L124:        f[0]-=0.1756083965301514f;
  L125:        f[0]+=r;
  L126:        f[0]/=k;
  L127:        f[0]*=open;
  L128:        f[0]+=1.744837045669556f;
  L129:        f[0]+=r;
  L130:        f[0]+=r;
  L131:        f[0]+=l;
  L132:        f[0]+=1.744837045669556f;
  L133:        if (cflag) f[0] = f[0];
  L134:        f[0]*=b;
  L135:        f[0]/=m;
  L136:        f[0]-=d;
  L137:        f[0]*=rr;
  L138:        f[0]+=0.1058487892150879f;
  L139:        f[0]/=1.248895406723023f;
  L140:        f[0]+=r;
  L141:

  return f[0];
}


float DiscipulusCFunctionSubC4(float v[])
{
  long double f[8];
  long double tmp = 0;
  int cflag = 0;

  f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;

  double open=v[0] ;
  double high=v[1] ;
  double low=v[2] ;
  double close=v[3] ;
  double volume=v[4] ;
  double q=v[5] ;
  double w=v[6] ;
  double e=v[7] ;
  double r=v[8] ;
  double t=v[9] ;
  double y=v[10] ;
  double u=v[11] ;
  double i=v[12] ;
  double o=v[13] ;
  double p=v[14] ;
  double a=v[15] ;
  double s=v[16] ;
  double d=v[17] ;
  double f=v[18] ;
  double g=v[19] ;
  double h=v[20] ;
  double j=v[21] ;
  double k=v[22] ;
  double l=v[23] ;
  double z=v[24] ;
  double x=v[25] ;
  double c=v[26] ;
  double v=v[27] ;
  double b=v[28] ;
  double n=v[29] ;
  double m=v[30] ;
  double qq=v[31] ;
  double ww=v[32] ;
  double ee=v[33] ;
  double rr=v[34] ;
  double tt=v[35] ;

  L0:        f[0]*=1.048232078552246f;
  L1:        cflag=((_isnan(f[0]) || _isnan(f[3])) ? true : (f[0] < f[3]));
  L2:        if (!cflag) f[0] = f[2];
  L3:        tmp=f[2]; f[2]=f[0]; f[0]=tmp;
  L4:        f[0]/=-1.364008665084839f;
  L5:        f[0]-=1.048232078552246f;
  L6:        f[3]-=f[0];
  L7:        f[0]*=pow(2,TRUNC(f[1]));
  L8:        tmp=f[3]; f[3]=f[0]; f[0]=tmp;
  L9:        f[0]+=1.744837045669556f;
  L10:        if (cflag) f[0] = f[3];
  L11:        f[1]/=f[0];
  L12:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L13:        f[0]*=f[1];
  L14:        f[0]*=f[2];
  L15:        f[0]+=m;
  L16:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L17:        f[0]/=f[0];
  L18:        f[0]-=f[2];
  L19:        f[0]-=f[1];
  L20:        f[0]*=b;
  L21:        f[0]+=q;
  L22:        if (cflag) f[0] = f[3];
  L23:        f[0]*=pow(2,TRUNC(f[1]));
  L24:        f[0]+=t;
  L25:        f[0]+=t;
  L26:        f[0]=fabs(f[0]);
  L27:        f[0]*=pow(2,TRUNC(f[1]));
  L28:        f[0]-=k;
  L29:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L30:        f[0]*=f[1];
  L31:        f[0]=sqrt(f[0]);
  L32:        f[0]-=f[3];
  L33:        f[0]*=f[0];
  L34:        f[0]=fabs(f[0]);
  L35:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L36:        f[0]*=rr;
  L37:        if (cflag) f[0] = f[0];
  L38:        if (!cflag) f[0] = f[1];
  L39:        f[0]+=i;
  L40:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L41:        f[3]/=f[0];
  L42:        cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
  L43:        if (!cflag) f[0] = f[1];
  L44:        if (!cflag) f[0] = f[0];
  L45:        f[0]*=f[1];
  L46:        f[3]-=f[0];
  L47:        tmp=f[3]; f[3]=f[0]; f[0]=tmp;
  L48:        f[0]*=f[2];
  L49:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L50:        f[0]+=0.1058487892150879f;
  L51:        f[0]=fabs(f[0]);
  L52:        cflag=((_isnan(f[0]) || _isnan(f[3])) ? true : (f[0] < f[3]));
  L53:        f[2]*=f[0];
  L54:        f[2]*=f[0];
  L55:        f[0]*=f[0];
  L56:        if (!cflag) f[0] = f[3];
  L57:        f[0]=fabs(f[0]);
  L58:        f[0]+=f[1];
  L59:        f[0]+=q;
  L60:        f[0]+=f[3];
  L61:        f[0]-=l;
  L62:        f[0]-=w;
  L63:        f[0]=fabs(f[0]);
  L64:        f[0]*=pow(2,TRUNC(f[1]));
  L65:        f[0]/=f[3];
  L66:        f[0]=cos(f[0]);
  L67:        if (!cflag) f[0] = f[3];
  L68:        f[0]-=i;
  L69:        cflag=((_isnan(f[0]) || _isnan(f[3])) ? true : (f[0] < f[3]));
  L70:        f[0]=fabs(f[0]);
  L71:        f[0]=sin(f[0]);
  L72:        f[0]+=0.1058487892150879f;
  L73:        f[0]+=close;
  L74:        f[0]-=l;
  L75:        f[0]+=q;
  L76:        f[0]+=q;
  L77:        f[0]*=0.6342074871063232f;
  L78:        f[0]+=close;
  L79:        f[0]-=l;
  L80:        f[1]-=f[0];
  L81:        f[2]*=f[0];
  L82:        f[0]=fabs(f[0]);
  L83:        f[0]*=pow(2,TRUNC(f[1]));
  L84:        f[0]+=t;
  L85:        cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
  L86:        f[0]+=close;
  L87:        f[0]-=low;
  L88:        f[0]+=i;
  L89:        f[1]+=f[0];
  L90:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L91:        f[0]=fabs(f[0]);
  L92:        f[1]*=f[0];
  L93:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L94:        f[0]*=pow(2,TRUNC(f[1]));
  L95:

  return f[0];
}


float DiscipulusCFunctionSubC5(float v[])
{
  long double f[8];
  long double tmp = 0;
  int cflag = 0;

  f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;

  double open=v[0] ;
  double high=v[1] ;
  double low=v[2] ;
  double close=v[3] ;
  double volume=v[4] ;
  double q=v[5] ;
  double w=v[6] ;
  double e=v[7] ;
  double r=v[8] ;
  double t=v[9] ;
  double y=v[10] ;
  double u=v[11] ;
  double i=v[12] ;
  double o=v[13] ;
  double p=v[14] ;
  double a=v[15] ;
  double s=v[16] ;
  double d=v[17] ;
  double f=v[18] ;
  double g=v[19] ;
  double h=v[20] ;
  double j=v[21] ;
  double k=v[22] ;
  double l=v[23] ;
  double z=v[24] ;
  double x=v[25] ;
  double c=v[26] ;
  double v=v[27] ;
  double b=v[28] ;
  double n=v[29] ;
  double m=v[30] ;
  double qq=v[31] ;
  double ww=v[32] ;
  double ee=v[33] ;
  double rr=v[34] ;
  double tt=v[35] ;

  L0:        if (!cflag) f[0] = f[1];
  L1:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L2:        f[0]-=f[1];
  L3:        f[1]-=f[0];
  L4:        f[0]+=f[0];
  L5:        f[0]*=pow(2,TRUNC(f[1]));
  L6:        f[0]=-f[0];
  L7:        f[1]/=f[0];
  L8:        if (cflag) f[0] = f[0];
  L9:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L10:        f[0]+=f[0];
  L11:        f[0]=sin(f[0]);
  L12:        f[0]-=z;
  L13:        f[0]=fabs(f[0]);
  L14:        if (!cflag) f[0] = f[0];
  L15:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L16:        f[0]-=f[0];
  L17:        f[0]=-f[0];
  L18:        f[0]=-f[0];
  L19:        f[0]=fabs(f[0]);
  L20:        f[0]=fabs(f[0]);
  L21:        f[0]+=f[1];
  L22:        f[0]=sqrt(f[0]);
  L23:        if (cflag) f[0] = f[1];
  L24:        if (!cflag) f[0] = f[1];
  L25:        f[0]-=0.2877938747406006f;
  L26:        f[0]-=f[1];
  L27:        f[0]/=f[0];
  L28:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L29:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L30:        f[1]+=f[0];
  L31:        f[0]*=1.530829906463623f;
  L32:        f[1]*=f[0];
  L33:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L34:        f[0]=sin(f[0]);
  L35:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L36:        f[0]=fabs(f[0]);
  L37:        f[0]*=pow(2,TRUNC(f[1]));
  L38:        f[0]-=t;
  L39:        f[1]+=f[0];
  L40:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L41:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L42:        f[0]-=f[0];
  L43:        if (cflag) f[0] = f[1];
  L44:        if (!cflag) f[0] = f[1];
  L45:        f[0]=cos(f[0]);
  L46:        f[0]*=f[1];
  L47:        f[0]=-f[0];
  L48:        f[0]*=f[0];
  L49:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L50:        f[0]-=f[1];
  L51:        f[0]-=f[0];
  L52:        f[0]+=i;
  L53:        f[0]*=f[1];
  L54:        f[0]-=-1.063283443450928f;
  L55:        f[0]=cos(f[0]);
  L56:        f[0]/=f[1];
  L57:        f[0]*=f[0];
  L58:        f[0]/=f[0];
  L59:        f[0]+=f[1];
  L60:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L61:        f[0]*=f[0];
  L62:        f[0]=-f[0];
  L63:        f[0]=cos(f[0]);
  L64:        f[0]+=f[0];
  L65:        f[1]+=f[0];
  L66:        f[1]+=f[0];
  L67:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L68:        if (!cflag) f[0] = f[1];
  L69:        f[0]=fabs(f[0]);
  L70:        f[0]*=f[0];
  L71:        f[0]-=f[0];
  L72:        f[0]+=f[1];
  L73:        f[0]=sqrt(f[0]);
  L74:        f[0]/=x;
  L75:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L76:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L77:        f[0]-=1.744837045669556f;
  L78:        f[0]=fabs(f[0]);
  L79:        f[1]+=f[0];
  L80:        f[0]+=f[0];
  L81:        if (cflag) f[0] = f[0];
  L82:        f[0]-=y;
  L83:        f[0]/=volume;
  L84:        if (cflag) f[0] = f[0];
  L85:        f[1]-=f[0];
  L86:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L87:        f[0]=fabs(f[0]);
  L88:        f[0]+=d;
  L89:        f[1]*=f[0];
  L90:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L91:        f[0]=fabs(f[0]);
  L92:        f[1]+=f[0];
  L93:        f[0]-=a;
  L94:        f[0]=fabs(f[0]);
  L95:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L96:        f[0]=sqrt(f[0]);
  L97:        f[0]=fabs(f[0]);
  L98:        f[0]-=f[1];
  L99:        f[0]+=0.1387641429901123f;
  L100:        f[0]/=c;
  L101:        f[0]+=e;
  L102:        f[0]/=-1.063283443450928f;
  L103:        f[0]+=e;
  L104:        f[0]*=b;
  L105:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L106:        f[0]=sin(f[0]);
  L107:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L108:        if (cflag) f[0] = f[1];
  L109:        f[0]=fabs(f[0]);
  L110:        f[0]-=u;
  L111:        f[0]=fabs(f[0]);
  L112:        f[0]-=u;
  L113:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L114:        f[0]-=f[1];
  L115:        f[1]-=f[0];
  L116:        f[0]*=f[1];
  L117:        f[0]=cos(f[0]);
  L118:        f[0]+=f[0];
  L119:        f[0]+=f[1];
  L120:        f[0]=sin(f[0]);
  L121:        f[0]*=pow(2,TRUNC(f[1]));
  L122:        f[0]=sqrt(f[0]);
  L123:        if (cflag) f[0] = f[0];
  L124:        f[0]=-f[0];
  L125:        f[0]*=k;
  L126:        f[0]=fabs(f[0]);
  L127:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L128:        f[0]=-f[0];
  L129:        f[0]/=-1.063283443450928f;
  L130:        if (cflag) f[0] = f[0];
  L131:        f[0]=sqrt(f[0]);
  L132:        f[0]+=f[0];
  L133:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L134:        f[0]=-f[0];
  L135:        f[0]=fabs(f[0]);
  L136:        f[0]=-f[0];
  L137:        f[0]+=f[1];
  L138:        f[0]*=f[0];
  L139:        f[0]+=f[1];
  L140:        f[0]=sqrt(f[0]);
  L141:        f[0]*=pow(2,TRUNC(f[1]));
  L142:        f[0]=fabs(f[0]);
  L143:        if (cflag) f[0] = f[0];
  L144:        f[0]=sin(f[0]);
  L145:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L146:        f[0]-=y;
  L147:        f[0]-=y;
  L148:        f[0]+=u;
  L149:        f[0]=fabs(f[0]);
  L150:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L151:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L152:        f[0]+=r;
  L153:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L154:        f[1]+=f[0];
  L155:        f[0]+=r;
  L156:        f[0]=fabs(f[0]);
  L157:        f[0]=sin(f[0]);
  L158:        f[0]+=r;
  L159:        f[0]+=r;
  L160:        f[0]+=f[0];
  L161:        f[0]*=f[0];
  L162:

  return f[0];
}


float DiscipulusCFunctionSubC6(float v[])
{
  long double f[8];
  long double tmp = 0;
  int cflag = 0;

  f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;

  double open=v[0] ;
  double high=v[1] ;
  double low=v[2] ;
  double close=v[3] ;
  double volume=v[4] ;
  double q=v[5] ;
  double w=v[6] ;
  double e=v[7] ;
  double r=v[8] ;
  double t=v[9] ;
  double y=v[10] ;
  double u=v[11] ;
  double i=v[12] ;
  double o=v[13] ;
  double p=v[14] ;
  double a=v[15] ;
  double s=v[16] ;
  double d=v[17] ;
  double f=v[18] ;
  double g=v[19] ;
  double h=v[20] ;
  double j=v[21] ;
  double k=v[22] ;
  double l=v[23] ;
  double z=v[24] ;
  double x=v[25] ;
  double c=v[26] ;
  double v=v[27] ;
  double b=v[28] ;
  double n=v[29] ;
  double m=v[30] ;
  double qq=v[31] ;
  double ww=v[32] ;
  double ee=v[33] ;
  double rr=v[34] ;
  double tt=v[35] ;

  L0:        f[0]-=r;
  L1:        f[0]+=f[0];
  L2:        f[0]=fabs(f[0]);
  L3:        f[0]+=0.2877938747406006f;
  L4:        f[0]*=f[0];
  L5:        tmp=f[3]; f[3]=f[0]; f[0]=tmp;
  L6:        f[0]=cos(f[0]);
  L7:        f[0]/=open;
  L8:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L9:        f[2]-=f[0];
  L10:        tmp=f[3]; f[3]=f[0]; f[0]=tmp;
  L11:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L12:        tmp=f[2]; f[2]=f[0]; f[0]=tmp;
  L13:        f[0]=-f[0];
  L14:        f[0]-=f[3];
  L15:        f[0]*=0.9177978038787842f;
  L16:        f[0]=sqrt(f[0]);
  L17:        f[0]=fabs(f[0]);
  L18:        f[0]/=f[2];
  L19:        f[0]+=r;
  L20:        f[2]+=f[0];
  L21:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L22:        f[2]+=f[0];
  L23:        f[0]=fabs(f[0]);
  L24:        tmp=f[3]; f[3]=f[0]; f[0]=tmp;
  L25:        f[0]+=f[2];
  L26:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L27:        f[0]-=c;
  L28:        f[0]+=b;
  L29:        cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
  L30:        f[0]*=pow(2,TRUNC(f[1]));
  L31:        f[0]+=f[0];
  L32:        f[0]*=f[0];
  L33:        if (cflag) f[0] = f[2];
  L34:        f[3]+=f[0];
  L35:        f[0]=fabs(f[0]);
  L36:        cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
  L37:        f[0]-=f[2];
  L38:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L39:        cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
  L40:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L41:        f[2]-=f[0];
  L42:        tmp=f[3]; f[3]=f[0]; f[0]=tmp;
  L43:        f[0]-=p;
  L44:        f[0]+=f[0];
  L45:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L46:        f[0]/=g;
  L47:        f[0]/=v;
  L48:        f[0]=sin(f[0]);
  L49:        cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
  L50:        f[0]+=-0.494312047958374f;
  L51:        if (cflag) f[0] = f[2];
  L52:        f[0]=cos(f[0]);
  L53:        f[0]-=x;
  L54:        f[0]+=l;
  L55:        f[2]*=f[0];
  L56:        f[2]*=f[0];
  L57:        f[1]+=f[0];
  L58:        f[0]-=f[0];
  L59:        f[0]*=f[0];
  L60:        tmp=f[3]; f[3]=f[0]; f[0]=tmp;
  L61:        f[0]=sin(f[0]);
  L62:        f[0]*=0.9177978038787842f;
  L63:        f[0]=sqrt(f[0]);
  L64:        f[0]-=f[3];
  L65:        if (!cflag) f[0] = f[3];
  L66:        f[0]=fabs(f[0]);
  L67:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L68:        f[0]+=f[3];
  L69:        f[0]*=pow(2,TRUNC(f[1]));
  L70:        f[0]-=d;
  L71:        f[0]-=-1.360518217086792f;
  L72:        cflag=((_isnan(f[0]) || _isnan(f[3])) ? true : (f[0] < f[3]));
  L73:        if (!cflag) f[0] = f[2];
  L74:        f[0]+=1.501374244689941f;
  L75:        f[0]=sqrt(f[0]);
  L76:        f[1]-=f[0];
  L77:        if (!cflag) f[0] = f[2];
  L78:        if (cflag) f[0] = f[2];
  L79:        f[1]*=f[0];
  L80:        tmp=f[2]; f[2]=f[0]; f[0]=tmp;
  L81:        f[0]=fabs(f[0]);
  L82:        f[0]-=f[2];
  L83:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L84:        f[2]+=f[0];
  L85:        tmp=f[3]; f[3]=f[0]; f[0]=tmp;
  L86:        f[0]-=o;
  L87:        f[0]*=-0.494312047958374f;
  L88:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L89:        f[0]=-f[0];
  L90:        f[0]+=f[3];
  L91:        f[0]*=f[0];
  L92:        f[0]=sin(f[0]);
  L93:        cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
  L94:        f[0]+=i;
  L95:        f[0]+=p;
  L96:        f[0]-=x;
  L97:        f[0]+=close;
  L98:        f[0]-=z;
  L99:        f[0]+=high;
  L100:        f[3]+=f[0];
  L101:        cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
  L102:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L103:        if (cflag) f[0] = f[2];
  L104:        f[0]-=l;
  L105:        f[0]+=close;
  L106:        f[0]-=l;
  L107:        f[0]+=close;
  L108:        f[0]*=pow(2,TRUNC(f[1]));
  L109:        f[0]=fabs(f[0]);
  L110:        f[0]-=j;
  L111:        f[0]+=low;
  L112:        f[0]=sin(f[0]);
  L113:        cflag=((_isnan(f[0]) || _isnan(f[2])) ? true : (f[0] < f[2]));
  L114:        if (cflag) f[0] = f[2];
  L115:        f[0]=fabs(f[0]);
  L116:        f[0]-=l;
  L117:        f[0]+=close;
  L118:

  return f[0];
}


float DiscipulusCFunctionSubC7(float v[])
{
  long double f[8];
  long double tmp = 0;
  int cflag = 0;

  f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;

  double open=v[0] ;
  double high=v[1] ;
  double low=v[2] ;
  double close=v[3] ;
  double volume=v[4] ;
  double q=v[5] ;
  double w=v[6] ;
  double e=v[7] ;
  double r=v[8] ;
  double t=v[9] ;
  double y=v[10] ;
  double u=v[11] ;
  double i=v[12] ;
  double o=v[13] ;
  double p=v[14] ;
  double a=v[15] ;
  double s=v[16] ;
  double d=v[17] ;
  double f=v[18] ;
  double g=v[19] ;
  double h=v[20] ;
  double j=v[21] ;
  double k=v[22] ;
  double l=v[23] ;
  double z=v[24] ;
  double x=v[25] ;
  double c=v[26] ;
  double v=v[27] ;
  double b=v[28] ;
  double n=v[29] ;
  double m=v[30] ;
  double qq=v[31] ;
  double ww=v[32] ;
  double ee=v[33] ;
  double rr=v[34] ;
  double tt=v[35] ;

  L0:        if (!cflag) f[0] = f[1];
  L1:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L2:        f[0]-=f[1];
  L3:        f[1]-=f[0];
  L4:        f[0]+=f[0];
  L5:        f[0]*=pow(2,TRUNC(f[1]));
  L6:        f[0]=-f[0];
  L7:        f[1]/=f[0];
  L8:        if (cflag) f[0] = f[0];
  L9:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L10:        f[0]+=f[0];
  L11:        f[0]=sin(f[0]);
  L12:        f[0]-=z;
  L13:        f[0]=fabs(f[0]);
  L14:        if (!cflag) f[0] = f[0];
  L15:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L16:        f[0]-=f[0];
  L17:        f[0]=-f[0];
  L18:        f[0]=-f[0];
  L19:        f[0]=fabs(f[0]);
  L20:        f[0]=fabs(f[0]);
  L21:        f[0]+=f[1];
  L22:        f[0]=sqrt(f[0]);
  L23:        if (cflag) f[0] = f[1];
  L24:        if (!cflag) f[0] = f[1];
  L25:        f[0]-=0.2877938747406006f;
  L26:        f[0]-=f[1];
  L27:        f[0]/=f[0];
  L28:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L29:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L30:        f[1]+=f[0];
  L31:        f[0]*=1.530829906463623f;
  L32:        f[1]*=f[0];
  L33:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L34:        f[0]=sin(f[0]);
  L35:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L36:        f[0]=fabs(f[0]);
  L37:        f[0]*=pow(2,TRUNC(f[1]));
  L38:        f[0]-=t;
  L39:        f[1]+=f[0];
  L40:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L41:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L42:        f[0]-=f[0];
  L43:        if (cflag) f[0] = f[1];
  L44:        if (!cflag) f[0] = f[1];
  L45:        f[0]=cos(f[0]);
  L46:        f[0]*=f[1];
  L47:        f[0]=-f[0];
  L48:        f[0]*=f[0];
  L49:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L50:        f[0]-=f[1];
  L51:        f[0]-=f[0];
  L52:        f[0]+=i;
  L53:        f[0]*=f[1];
  L54:        f[0]-=-1.063283443450928f;
  L55:        f[0]=cos(f[0]);
  L56:        f[0]/=f[1];
  L57:        f[0]*=f[0];
  L58:        f[0]/=f[0];
  L59:        f[0]+=f[1];
  L60:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L61:        f[0]*=f[0];
  L62:        f[0]=-f[0];
  L63:        f[0]=cos(f[0]);
  L64:        f[0]+=f[0];
  L65:        f[1]+=f[0];
  L66:        f[1]+=f[0];
  L67:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L68:        if (!cflag) f[0] = f[1];
  L69:        f[0]=fabs(f[0]);
  L70:        f[0]*=f[0];
  L71:        f[0]-=f[0];
  L72:        f[0]+=f[1];
  L73:        f[0]=sqrt(f[0]);
  L74:        f[0]/=x;
  L75:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L76:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L77:        f[0]-=1.744837045669556f;
  L78:        f[0]=fabs(f[0]);
  L79:        f[1]+=f[0];
  L80:        f[0]+=f[0];
  L81:        if (cflag) f[0] = f[0];
  L82:        f[0]-=y;
  L83:        f[0]/=volume;
  L84:        if (cflag) f[0] = f[0];
  L85:        f[1]-=f[0];
  L86:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L87:        f[0]=fabs(f[0]);
  L88:        f[0]+=d;
  L89:        f[1]*=f[0];
  L90:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L91:        f[0]=fabs(f[0]);
  L92:        f[1]+=f[0];
  L93:        f[0]-=a;
  L94:        f[0]=fabs(f[0]);
  L95:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L96:        f[0]=sqrt(f[0]);
  L97:        f[0]=fabs(f[0]);
  L98:        f[0]-=f[1];
  L99:        f[0]+=0.1387641429901123f;
  L100:        f[0]/=c;
  L101:        f[0]+=e;
  L102:        f[0]/=-1.063283443450928f;
  L103:        f[0]+=e;
  L104:        f[0]*=b;
  L105:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L106:        f[0]=sin(f[0]);
  L107:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L108:        if (cflag) f[0] = f[1];
  L109:        f[0]=fabs(f[0]);
  L110:        f[0]-=u;
  L111:        f[0]=fabs(f[0]);
  L112:        f[0]-=u;
  L113:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L114:        f[0]-=f[1];
  L115:        f[1]-=f[0];
  L116:        f[0]*=f[1];
  L117:        f[0]=cos(f[0]);
  L118:        f[0]+=f[0];
  L119:        f[0]+=f[1];
  L120:        f[0]=sin(f[0]);
  L121:        f[0]*=pow(2,TRUNC(f[1]));
  L122:        f[0]=sqrt(f[0]);
  L123:        if (cflag) f[0] = f[0];
  L124:        f[0]=-f[0];
  L125:        f[0]*=k;
  L126:        f[0]=fabs(f[0]);
  L127:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L128:        f[0]=-f[0];
  L129:        f[0]/=-1.063283443450928f;
  L130:        if (cflag) f[0] = f[0];
  L131:        f[0]=sqrt(f[0]);
  L132:        f[0]+=f[0];
  L133:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L134:        f[0]=-f[0];
  L135:        f[0]=fabs(f[0]);
  L136:        f[0]=-f[0];
  L137:        f[0]+=f[1];
  L138:        f[0]*=f[0];
  L139:        f[0]+=f[1];
  L140:        f[0]=sqrt(f[0]);
  L141:        f[0]*=pow(2,TRUNC(f[1]));
  L142:        f[0]=fabs(f[0]);
  L143:        if (cflag) f[0] = f[0];
  L144:        f[0]=sin(f[0]);
  L145:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L146:        f[0]-=y;
  L147:        f[0]-=y;
  L148:        f[0]+=u;
  L149:        f[0]=fabs(f[0]);
  L150:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L151:        tmp=f[0]; f[0]=f[0]; f[0]=tmp;
  L152:        f[0]+=r;
  L153:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L154:        f[1]+=f[0];
  L155:        f[0]+=r;
  L156:        f[0]=fabs(f[0]);
  L157:        f[0]=sin(f[0]);
  L158:        f[0]+=r;
  L159:        f[0]+=r;
  L160:        f[0]+=f[0];
  L161:        f[0]*=f[0];
  L162:

  return f[0];
}


float DiscipulusCFunctionSubC8(float v[])
{
  long double f[8];
  long double tmp = 0;
  int cflag = 0;

  f[0]=f[1]=f[2]=f[3]=f[4]=f[5]=f[6]=f[7]=0;

  double open=v[0] ;
  double high=v[1] ;
  double low=v[2] ;
  double close=v[3] ;
  double volume=v[4] ;
  double q=v[5] ;
  double w=v[6] ;
  double e=v[7] ;
  double r=v[8] ;
  double t=v[9] ;
  double y=v[10] ;
  double u=v[11] ;
  double i=v[12] ;
  double o=v[13] ;
  double p=v[14] ;
  double a=v[15] ;
  double s=v[16] ;
  double d=v[17] ;
  double f=v[18] ;
  double g=v[19] ;
  double h=v[20] ;
  double j=v[21] ;
  double k=v[22] ;
  double l=v[23] ;
  double z=v[24] ;
  double x=v[25] ;
  double c=v[26] ;
  double v=v[27] ;
  double b=v[28] ;
  double n=v[29] ;
  double m=v[30] ;
  double qq=v[31] ;
  double ww=v[32] ;
  double ee=v[33] ;
  double rr=v[34] ;
  double tt=v[35] ;

  L0:        f[0]*=y;
  L1:        f[0]-=f[1];
  L2:        f[0]=sin(f[0]);
  L3:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L4:        tmp=f[1]; f[1]=f[0]; f[0]=tmp;
  L5:        f[0]+=f[0];
  L6:        if (!cflag) f[0] = f[0];
  L7:        f[0]-=x;
  L8:        f[0]+=0.1058487892150879f;
  L9:        f[0]=cos(f[0]);
  L10:        f[0]-=-1.360518217086792f;
  L11:        f[1]*=f[0];
  L12:        f[1]+=f[0];
  L13:        f[0]*=f[0];
  L14:        f[0]*=pow(2,TRUNC(f[1]));
  L15:        f[0]*=d;
  L16:        f[0]+=0.1058487892150879f;
  L17:        f[0]-=-1.360518217086792f;
  L18:        f[0]*=b;
  L19:        f[0]*=f[1];
  L20:        f[1]*=f[0];
  L21:        f[0]=sqrt(f[0]);
  L22:        if (!cflag) f[0] = f[1];
  L23:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L24:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L25:        f[0]=sin(f[0]);
  L26:        if (cflag) f[0] = f[0];
  L27:        f[1]+=f[0];
  L28:        f[0]=fabs(f[0]);
  L29:        f[0]*=b;
  L30:        f[0]*=pow(2,TRUNC(f[1]));
  L31:        f[0]+=f[0];
  L32:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L33:        f[0]+=ee;
  L34:        f[0]*=-1.907608032226563f;
  L35:        f[1]/=f[0];
  L36:        cflag=((_isnan(f[0]) || _isnan(f[1])) ? true : (f[0] < f[1]));
  L37:        f[0]*=1.252994060516357f;
  L38:        f[0]*=0.2877938747406006f;
  L39:        f[0]*=d;
  L40:        f[0]+=0.1058487892150879f;
  L41:        f[0]/=-1.238061666488648f;
  L42:        cflag=((_isnan(f[0]) || _isnan(f[0])) ? true : (f[0] < f[0]));
  L43:        f[0]=sin(f[0]);
  L44:        if (cflag) f[0] = f[0];
  L45:        f[1]+=f[0];
  L46:        f[0]=fabs(f[0]);
  L47:

  return f[0];
}


float DiscipulusCFunction(float v[])
{
        float f[1];
        float fltTmp;
        long lngValidPredictions;

        f[0]=0;
        lngValidPredictions=0;

        fltTmp=DiscipulusCFunctionSubC0(v);
        if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
        {
                f[0]+=fltTmp;
                ++lngValidPredictions;
        };
        fltTmp=DiscipulusCFunctionSubC1(v);
        if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
        {
                f[0]+=fltTmp;
                ++lngValidPredictions;
        };
        fltTmp=DiscipulusCFunctionSubC2(v);
        if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
        {
                f[0]+=fltTmp;
                ++lngValidPredictions;
        };
        fltTmp=DiscipulusCFunctionSubC3(v);
        if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
        {
                f[0]+=fltTmp;
                ++lngValidPredictions;
        };
        fltTmp=DiscipulusCFunctionSubC4(v);
        if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
        {
                f[0]+=fltTmp;
                ++lngValidPredictions;
        };
        fltTmp=DiscipulusCFunctionSubC5(v);
        if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
        {
                f[0]+=fltTmp;
                ++lngValidPredictions;
        };
        fltTmp=DiscipulusCFunctionSubC6(v);
        if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
        {
                f[0]+=fltTmp;
                ++lngValidPredictions;
        };
        fltTmp=DiscipulusCFunctionSubC7(v);
        if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
        {
                f[0]+=fltTmp;
                ++lngValidPredictions;
        };
        fltTmp=DiscipulusCFunctionSubC8(v);
        if (_finite(fltTmp) && (fltTmp>=-10000.000000 && fltTmp<=10000.000000))
        {
                f[0]+=fltTmp;
                ++lngValidPredictions;
        };
        if (lngValidPredictions)
        {
                f[0]/=lngValidPredictions;
        }
        else
        {
                f[0]=0.000000;
        }

  return f[0];
}

float DiscipulusCRegressionFunction(float  v [])
{
  float ret = DiscipulusCFunction(v) ;
  return ret;
}


  main(argc,argv)
  int argc;
  char *argv[];
  {
          if (argc != 3)
          {
          printf("Syntax:  input_file  output_file\n");
          exit(1);
          }
    register i;
    double inp;

    double v[inputs];
    double f[outputs];

    FILE *II;
    FILE *OO;
    char line[MAXLINE];

    II=fopen(argv[1], "r");
    OO=fopen(argv[2], "w");

  while(fgets(line, MAXLINE, II)) {

    if (!( isascii(line[0]) )) break;

    for (i = 0; i < inputs; i++)
    {
      sscanf(line, "%lf", &inp);
      v[i] = inp;
    }

    for (i = 0; i < outputs; i++)
      {
      fprintf(OO, "%.3lf ", f[i]);
      }

    fprintf(OO, "\n");

    }

    fclose(II);
    fclose(OO);
    }

---

If you're going to post a thousand lines of code, you need to tell us where all these error messages you claim you are getting come from.

Perhaps you should have tried compiling it when the code was a lot smaller, before digging such a large hole for yourself.

And WTF are all those labels for?

Ok, this is going to sound harsh... but you really need to open a C language textbook and start reading.

What you have there is .... well... it's never going to work.

You don't even have your main function constructed properly.
You redefine argv preventing you from using it for command line inputs
You never call any of those ridiculously long functions you wrote.
You are reading and writing unopened files that won't open no matter what you type on the command line.


Anyway... I trust you get the point.

Quote:

---

Originally Posted by CommonTater

You don't even have your main function constructed properly.
You redefine argv preventing you from using it for command line inputs

---

This is the original C method for defining a function, which is still accepted in C because the committee is a bunch of packrats that doesn't throw anything away. Plus: "register"!

Quote:

---

Originally Posted by CommonTater

You never call any of those ridiculously long functions you wrote.

---

This is true, though that doesn't affect whether or not the thing will compile.

Quote:

---

Originally Posted by tabstop

This is the original C method for defining a function, which is still accepted in C because the committee is a bunch of packrats that doesn't throw anything away. Plus: "register"!

This is true, though that doesn't affect whether or not the thing will compile.

---

Yes, I knew that... in fact that's why I suggested the textbook... to get up to date...

I like how he made a huge list of variables by walking across the keyboard: qwerty instead of just typing the alphabet. (Or just using a 2D array.)

Quote:

---

Originally Posted by Salem

And WTF are all those labels for?

---

Maybe he thinks they're line numbers. :D Or he heard goto was bad, but not labels!


Quzah.