fixed paths
This commit is contained in:
196
Sapfor/projects/dvm/fdvm/trunk/InlineExpansion/intrinsic.h
Normal file
196
Sapfor/projects/dvm/fdvm/trunk/InlineExpansion/intrinsic.h
Normal file
@@ -0,0 +1,196 @@
|
||||
intrinsic_type[ICHAR] = 1;
|
||||
intrinsic_type[CHAR] = 7;
|
||||
intrinsic_type[INT] = 1; //
|
||||
intrinsic_type[IFIX] = 1;
|
||||
intrinsic_type[IDINT] = 1;
|
||||
intrinsic_type[FLOAT] = 3;
|
||||
intrinsic_type[REAL] = 3; //
|
||||
intrinsic_type[SNGL] = 3;
|
||||
intrinsic_type[DBLE] = 4; //
|
||||
intrinsic_type[CMPLX] = 5; //
|
||||
intrinsic_type[DCMPLX]= 6;
|
||||
intrinsic_type[AINT] = 3; //
|
||||
intrinsic_type[DINT] = 4;
|
||||
intrinsic_type[ANINT] = 3; //
|
||||
intrinsic_type[DNINT] = 4;
|
||||
intrinsic_type[NINT] = 1; //
|
||||
intrinsic_type[IDNINT]= 1;
|
||||
intrinsic_type[ABS] =-1; //3
|
||||
intrinsic_type[IABS] = 1;
|
||||
intrinsic_type[DABS] = 4;
|
||||
intrinsic_type[CABS] = 5;
|
||||
intrinsic_type[MOD] =-1; //1
|
||||
intrinsic_type[AMOD] = 3;
|
||||
intrinsic_type[DMOD] = 4;
|
||||
intrinsic_type[SIGN] =-1; //3
|
||||
intrinsic_type[ISIGN] = 1;
|
||||
intrinsic_type[DSIGN] = 4;
|
||||
intrinsic_type[DIM] =-1; //3
|
||||
intrinsic_type[IDIM] = 1;
|
||||
intrinsic_type[DDIM] = 4;
|
||||
intrinsic_type[MAX] =-1;
|
||||
intrinsic_type[MAX0] = 1;
|
||||
intrinsic_type[AMAX1] = 3;
|
||||
intrinsic_type[DMAX1] = 4;
|
||||
intrinsic_type[AMAX0] = 3;
|
||||
intrinsic_type[MAX1] = 1;
|
||||
intrinsic_type[MIN] =-1; //
|
||||
intrinsic_type[MIN0] = 1;
|
||||
intrinsic_type[AMIN1] = 3;
|
||||
intrinsic_type[DMIN1] = 4;
|
||||
intrinsic_type[AMIN0] = 3;
|
||||
intrinsic_type[MIN1] = 1;
|
||||
intrinsic_type[LEN] = 1;
|
||||
intrinsic_type[INDEX] = 1;
|
||||
intrinsic_type[AIMAG] =-1; //3
|
||||
intrinsic_type[DIMAG] = 4;
|
||||
intrinsic_type[CONJG] =-1; //5
|
||||
intrinsic_type[DCONJG]= 6;
|
||||
intrinsic_type[SQRT] =-1; //3
|
||||
intrinsic_type[DSQRT] = 4;
|
||||
intrinsic_type[CSQRT] = 5;
|
||||
intrinsic_type[EXP] =-1; //3
|
||||
intrinsic_type[DEXP] = 4;
|
||||
intrinsic_type[CEXP] = 5;
|
||||
intrinsic_type[LOG] =-1; //
|
||||
intrinsic_type[ALOG] = 3;
|
||||
intrinsic_type[DLOG] = 4;
|
||||
intrinsic_type[CLOG] = 5;
|
||||
intrinsic_type[LOG10] =-1; //
|
||||
intrinsic_type[ALOG10]= 3;
|
||||
intrinsic_type[DLOG10]= 4;
|
||||
intrinsic_type[SIN] =-1; //3
|
||||
intrinsic_type[DSIN] = 4;
|
||||
intrinsic_type[CSIN] = 5;
|
||||
intrinsic_type[COS] =-1; //3
|
||||
intrinsic_type[DCOS] = 4;
|
||||
intrinsic_type[CCOS] = 5;
|
||||
intrinsic_type[TAN] =-1; //3
|
||||
intrinsic_type[DTAN] = 4;
|
||||
intrinsic_type[ASIN] =-1; //3
|
||||
intrinsic_type[DASIN] = 4;
|
||||
intrinsic_type[ACOS] =-1; //3
|
||||
intrinsic_type[DACOS] = 4;
|
||||
intrinsic_type[ATAN] =-1; //3
|
||||
intrinsic_type[DATAN] = 4;
|
||||
intrinsic_type[ATAN2] =-1; //3
|
||||
intrinsic_type[DATAN2]= 4;
|
||||
intrinsic_type[SINH] =-1; //3
|
||||
intrinsic_type[DSINH] = 4;
|
||||
intrinsic_type[COSH] =-1; //3
|
||||
intrinsic_type[DCOSH] = 4;
|
||||
intrinsic_type[TANH] =-1; //3
|
||||
intrinsic_type[DTANH] = 4;
|
||||
intrinsic_type[LGE] = 2;
|
||||
intrinsic_type[LGT] = 2;
|
||||
intrinsic_type[LLE] = 2;
|
||||
intrinsic_type[LLT] = 2;
|
||||
//intrinsic_type[] = ;
|
||||
//intrinsic_type[] = ;
|
||||
|
||||
|
||||
//{ICHAR, CHAR,INT,IFIX,IDINT,FLOAT,REAL,SNGL,DBLE,CMPLX,DCMPLX,AINT,DINT,ANINT,DNINT,NINT,IDNINT,ABS,IABS,DABS,CABS,
|
||||
// MOD,AMOD,DMOD, SIGN,ISIGN, DSIGN, DIM,IDIM,DDIM, MAX,MAX0, AMAX1,DMAX1, AMAX0,MAX1, MIN,MIN0,
|
||||
// AMIN1,DMIN1,AMIN0,MIN1,LEN,INDEX,AIMAG,DIMAG,CONJG,DCONJG,SQRT,DSQRT,CSQRT,EXP,DEXP.CEXP,LOG,ALOG,DLOG,CLOG,
|
||||
// LOG10,ALOG10,DLOG10,SIN,DSIN,CSIN,COS,DCOS,CCOS,TAN,DTAN,ASIN,DASIN,ACOS,DACOS,ATAN,DATAN,
|
||||
// ATAN2,DATAN2,SINH,DSINH,COSH,DCOSH,TANH,DTANH, LGE,LGT,LLE,LLT};
|
||||
//universal: ANINT,NINT,ABS, MOD,SIGN,DIM,MAX,MIN,SQRT,EXP,LOG,LOG10,SIN,COS,TAN,ASIN,ACOS,ATAN,ATAN2,SINH,COSH,TANH
|
||||
|
||||
//universal name - -1
|
||||
//integer - 1
|
||||
//logical - 2
|
||||
//real - 3
|
||||
//double precision - 4
|
||||
//complex - 5
|
||||
//complex*16 - 6
|
||||
//character - 7
|
||||
|
||||
intrinsic_name[ICHAR] = "ichar";
|
||||
intrinsic_name[CHAR] = "char";
|
||||
intrinsic_name[INT] = "int"; //
|
||||
intrinsic_name[IFIX] = "ifix";
|
||||
intrinsic_name[IDINT] = "idint";
|
||||
intrinsic_name[FLOAT] = "float";
|
||||
intrinsic_name[REAL] = "real"; //
|
||||
intrinsic_name[SNGL] = "sngl";
|
||||
intrinsic_name[DBLE] = "dble"; //
|
||||
intrinsic_name[CMPLX] = "cmplx"; //
|
||||
intrinsic_name[DCMPLX]= "dcmplx";
|
||||
intrinsic_name[AINT] = "aint"; //
|
||||
intrinsic_name[DINT] = "dint";
|
||||
intrinsic_name[ANINT] = "anint"; //
|
||||
intrinsic_name[DNINT] = "dnint";
|
||||
intrinsic_name[NINT] = "nint"; //
|
||||
intrinsic_name[IDNINT]= "idnint";
|
||||
intrinsic_name[ABS] = "abs"; //
|
||||
intrinsic_name[IABS] = "iabs";
|
||||
intrinsic_name[DABS] = "dabs";
|
||||
intrinsic_name[CABS] = "cabs";
|
||||
intrinsic_name[MOD] = "mod"; //
|
||||
intrinsic_name[AMOD] = "amod";
|
||||
intrinsic_name[DMOD] = "dmod";
|
||||
intrinsic_name[SIGN] = "sign"; //
|
||||
intrinsic_name[ISIGN] = "isign";
|
||||
intrinsic_name[DSIGN] = "dsign";
|
||||
intrinsic_name[DIM] = "dim"; //
|
||||
intrinsic_name[IDIM] = "idim";
|
||||
intrinsic_name[DDIM] = "ddim";
|
||||
intrinsic_name[MAX] = "max";
|
||||
intrinsic_name[MAX0] = "max0";
|
||||
intrinsic_name[AMAX1] = "amax1";
|
||||
intrinsic_name[DMAX1] = "dmax1";
|
||||
intrinsic_name[AMAX0] = "amax0";
|
||||
intrinsic_name[MAX1] = "max1";
|
||||
intrinsic_name[MIN] = "min"; //
|
||||
intrinsic_name[MIN0] = "min0";
|
||||
intrinsic_name[AMIN1] = "amin1";
|
||||
intrinsic_name[DMIN1] = "dmin1";
|
||||
intrinsic_name[AMIN0] = "amin0";
|
||||
intrinsic_name[MIN1] = "min1";
|
||||
intrinsic_name[LEN] = "len";
|
||||
intrinsic_name[INDEX] = "index";
|
||||
intrinsic_name[AIMAG] = "AIMAG"; //
|
||||
intrinsic_name[DIMAG] = "DIMAG";
|
||||
intrinsic_name[CONJG] = "conjg"; //
|
||||
intrinsic_name[DCONJG]= "dconjg";
|
||||
intrinsic_name[SQRT] = "sqrt"; //
|
||||
intrinsic_name[DSQRT] = "dsqrt";
|
||||
intrinsic_name[CSQRT] = "csqrt";
|
||||
intrinsic_name[EXP] = "exp"; //
|
||||
intrinsic_name[DEXP] = "dexp";
|
||||
intrinsic_name[CEXP] = "cexp";
|
||||
intrinsic_name[LOG] = "log"; //
|
||||
intrinsic_name[ALOG] = "alog";
|
||||
intrinsic_name[DLOG] = "dlog";
|
||||
intrinsic_name[CLOG] = "clog";
|
||||
intrinsic_name[LOG10] = "log10"; //
|
||||
intrinsic_name[ALOG10]= "alog10";
|
||||
intrinsic_name[DLOG10]= "dlog10";
|
||||
intrinsic_name[SIN] = "sin"; //
|
||||
intrinsic_name[DSIN] = "dsin";
|
||||
intrinsic_name[CSIN] = "csin";
|
||||
intrinsic_name[COS] = "cos"; //
|
||||
intrinsic_name[DCOS] = "dcos";
|
||||
intrinsic_name[CCOS] = "ccos";
|
||||
intrinsic_name[TAN] = "tan"; //
|
||||
intrinsic_name[DTAN] = "dtan";
|
||||
intrinsic_name[ASIN] = "asin"; //
|
||||
intrinsic_name[DASIN] = "dasin";
|
||||
intrinsic_name[ACOS] = "acos"; //
|
||||
intrinsic_name[DACOS] = "dacos";
|
||||
intrinsic_name[ATAN] = "atan"; //
|
||||
intrinsic_name[DATAN] = "datan";
|
||||
intrinsic_name[ATAN2] = "atan2"; //
|
||||
intrinsic_name[DATAN2]= "datan2";
|
||||
intrinsic_name[SINH] = "sinh"; //
|
||||
intrinsic_name[DSINH] = "dsinh";
|
||||
intrinsic_name[COSH] = "cosh"; //
|
||||
intrinsic_name[DCOSH] = "dcosh";
|
||||
intrinsic_name[TANH] = "tanh"; //
|
||||
intrinsic_name[DTANH] = "dtanh";
|
||||
intrinsic_name[LGE] = "lge";
|
||||
intrinsic_name[LGT] = "lgt";
|
||||
intrinsic_name[LLE] = "lle";
|
||||
intrinsic_name[LLT] = "llt";
|
||||
|
||||
|
||||
Reference in New Issue
Block a user