Changeset 87 for altifloat


Ignore:
Timestamp:
04/07/13 10:33:17 (11 years ago)
Author:
leila_ocean
Message:

correction of scalar product

File:
1 edited

Legend:

Unmodified
Added
Removed
  • altifloat/src/r_float_d.h

    r85 r87  
    11forward(YREAL xd, YREAL yd, YREAL ud, YREAL vd) 
    22{ 
    3         YS1=xd+rdtflo*ud+xd*rdtflo*(ur_dx+ur_dy);//mot cle YS1: yao sortie 1 
     3         
     4        //what we had up to 01/04 
     5        /*YS1=xd+rdtflo*ud+xd*rdtflo*(ur_dx+ur_dy);//mot cle YS1: yao sortie 1 
    46        printf("xd=%f 2term=%f 3term=%f\n",xd,rdtflo*ud,xd*rdtflo*(ur_dx+ur_dy)); 
    5         YS2=yd+rdtflo*vd+yd*rdtflo*(vr_dx+vr_dy); 
     7        YS2=yd+rdtflo*vd+yd*rdtflo*(vr_dx+vr_dy);*/ 
     8         
     9        //what we should have corrected on 04/04 
     10        YS1=xd+rdtflo*ud+rdtflo*(xd*ur_dx+yd*ur_dy); 
     11        YS2=yd+rdtflo*vd+rdtflo*(xd*vr_dx+yd*vr_dy); 
    612} 
    713 
    814backward(YREAL xd, YREAL yd, YREAL ud, YREAL vd) 
    915{ 
    10         YJ1I1=1+rdtflo*(ur_dx+ur_dy);   //mot cle, les entrees du gradient du out par rapport au in, dYs1/dx,y,u,v 
     16        /*YJ1I1=1+rdtflo*(ur_dx+ur_dy);   //mot cle, les entrees du gradient du out par rapport au in, dYs1/dx,y,u,v 
    1117        YJ1I2=0; 
    1218        YJ1I3=rdtflo; 
     
    1622        YJ2I2=1+rdtflo*(vr_dx+vr_dy); 
    1723        YJ2I3=0; 
     24        YJ2I4=rdtflo;*/ 
     25         
     26         
     27        //what we sould have corrected on 04/04 
     28        YJ1I1=1+rdtflo*ur_dx;    
     29    YJ1I2=rdtflo*ur_dy; 
     30        YJ1I3=rdtflo; 
     31        YJ1I4=0; 
     32         
     33        YJ2I1=rdtflo*vr_dx;  
     34        YJ2I2=1+rdtflo*vr_dy; 
     35        YJ2I3=0; 
    1836        YJ2I4=rdtflo; 
    1937         
Note: See TracChangeset for help on using the changeset viewer.