Changeset 86 for altifloat/src


Ignore:
Timestamp:
04/01/13 19:31:21 (11 years ago)
Author:
leila_ocean
Message:

Friday's afternoon modifications

Location:
altifloat/src
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • altifloat/src/Yworkdir/Y2floater_delta.h

    r84 r86  
    28162816Ytps = Ytttt_pdt(0, YTemps, YidTraj); 
    28172817         Yting[15]=YS8_xinter( Yi, Ytps); 
    2818          Yting[16]=YS1_r_float_d( Yi, YTemps-1); 
    2819          Yting[17]=YS2_r_float_d( Yi, YTemps-1); 
     2818Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     2819         Yting[16]=YS1_r_float( Yi, Ytps); 
     2820Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     2821         Yting[17]=YS2_r_float( Yi, Ytps); 
    28202822         Yur_d(Yi)->forward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8], Yting[9], Yting[10], Yting[11], Yting[12], Yting[13], Yting[14], Yting[15], Yting[16], Yting[17] ); 
    28212823         Yting[0]=YS1_r_float_d( Yi, YTemps-1); 
    … …  
    28632865Ytps = Ytttt_pdt(0, YTemps, YidTraj); 
    28642866         Yting[15]=YS8_xinter( Yi, Ytps); 
    2865          Yting[16]=YS1_r_float_d( Yi, YTemps-1); 
    2866          Yting[17]=YS2_r_float_d( Yi, YTemps-1); 
     2867Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     2868         Yting[16]=YS1_r_float( Yi, Ytps); 
     2869Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     2870         Yting[17]=YS2_r_float( Yi, Ytps); 
    28672871         Ytbeta[0]=YG1_uinter_d( Yi, YTemps); 
    28682872         Ytbeta[1]=YG2_uinter_d( Yi, YTemps); 
    … …  
    28892893Ytps = Ytttt_pdt(0, YTemps, YidTraj); 
    28902894         Ytbeta[15]=YG8_xinter( Yi, Ytps); 
    2891          Ytbeta[16]=YG1_r_float_d( Yi, YTemps-1); 
    2892          Ytbeta[17]=YG2_r_float_d( Yi, YTemps-1); 
     2895Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     2896         Ytbeta[16]=YG1_r_float( Yi, Ytps); 
     2897Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     2898         Ytbeta[17]=YG2_r_float( Yi, Ytps); 
    28932899         memset(Yjac, 0, 36*sizeof(double)); 
    28942900         Yur_d(Yi)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8], Yting[9], Yting[10], Yting[11], Yting[12], Yting[13], Yting[14], Yting[15], Yting[16], Yting[17] ); 
    … …  
    29582964Ytps = Ytttt_pdt(0, YTemps, YidTraj); 
    29592965         Yting[15]=YS8_xinter( Yi, Ytps); 
    2960          Yting[16]=YS1_r_float_d( Yi, YTemps-1); 
    2961          Yting[17]=YS2_r_float_d( Yi, YTemps-1); 
     2966Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     2967         Yting[16]=YS1_r_float( Yi, Ytps); 
     2968Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     2969         Yting[17]=YS2_r_float( Yi, Ytps); 
    29622970        if (!strcmp(nmmod, "ur_d") || All) 
    29632971        { 
    … …  
    30233031Ytps = Ytttt_pdt(0, YTemps, YidTraj); 
    30243032         Yting[15]=YS8_xinter( Yi, Ytps); 
    3025          Yting[16]=YS1_r_float_d( Yi, YTemps-1); 
    3026          Yting[17]=YS2_r_float_d( Yi, YTemps-1); 
     3033Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     3034         Yting[16]=YS1_r_float( Yi, Ytps); 
     3035Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     3036         Yting[17]=YS2_r_float( Yi, Ytps); 
    30273037        if (!strcmp(nmmod, "ur_d") || All) 
    30283038        { 
    … …  
    31133123Ytps = Ytttt_pdt(0, YTemps, YidTraj); 
    31143124         Yting[15]=YS8_xinter( Yi, Ytps); 
    3115          Yting[16]=YS1_r_float_d( Yi, YTemps-1); 
    3116          Yting[17]=YS2_r_float_d( Yi, YTemps-1); 
     3125Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     3126         Yting[16]=YS1_r_float( Yi, Ytps); 
     3127Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     3128         Yting[17]=YS2_r_float( Yi, Ytps); 
    31173129         memset(Yjac, 0, 36*sizeof(double)); 
    31183130         Yur_d(Yi)->backward( Yting[0], Yting[1], Yting[2], Yting[3], Yting[4], Yting[5], Yting[6], Yting[7], Yting[8], Yting[9], Yting[10], Yting[11], Yting[12], Yting[13], Yting[14], Yting[15], Yting[16], Yting[17] ); 
    … …  
    31423154Ytps = Ytttt_pdt(0, YTemps, YidTraj); 
    31433155         YG8_xinter( Yi, Ytps) += Ytbeta[15]; 
    3144          YG1_r_float_d( Yi, YTemps-1) += Ytbeta[16]; 
    3145          YG2_r_float_d( Yi, YTemps-1) += Ytbeta[17]; 
     3156Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     3157         YG1_r_float( Yi, Ytps) += Ytbeta[16]; 
     3158Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     3159         YG2_r_float( Yi, Ytps) += Ytbeta[17]; 
    31463160         if (Ytestad_module) { 
    31473161                        Yting[0]=YD1_uinter_d( Yi, YTemps); 
    … …  
    31693183Ytps = Ytttt_pdt(0, YTemps, YidTraj); 
    31703184                        Yting[15]=YD8_xinter( Yi, Ytps); 
    3171                         Yting[16]=YD1_r_float_d( Yi, YTemps-1); 
    3172                         Yting[17]=YD2_r_float_d( Yi, YTemps-1); 
     3185Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     3186                        Yting[16]=YD1_r_float( Yi, Ytps); 
     3187Ytps = Ytttt_pdt(0, YTemps-1, YidTraj); 
     3188                        Yting[17]=YD2_r_float( Yi, Ytps); 
    31733189                        YLTRes = Yprosca(&YD1Y_ur_d, &YG1Y_ur_d, YNBS_ur_d); 
    31743190                        YAdRes = Yprosca(Yting, Ytbeta, YNBI_ur_d); 

  • altifloat/src/floater.h

    r84 r86  
    1414void adjust_target(){} 
    1515void after_it(int nit){ 
     16         
     17        printf("u_d(9,16)=%f %f %f %f\n",YS1_u_d(9,16),YS1_u_d(10,16),YS1_u_d(10,17),YS1_u_d(9,17)); 
    1618        } 
    1719void forward_before(int ctrp){ 

  • altifloat/src/floater_delta.d

    r84 r86  
    7070ctin ur_d       1..8   from uinter_d 1..8 i t 
    7171ctin ur_d       9..16  from xinter 1..8 i t 
    72 ctin ur_d       17..18 from r_float_d 1..2 i t-1 
     72ctin ur_d       17..18 from r_float 1..2 i t-1 
    7373 
    7474ctin locate_d   1..2   from r_float_d 1..2 i t-1 

  • altifloat/src/r_cout_d.h

    r84 r86  
    22{ 
    33        YS1=xd+YS1_r_float(Yi,YTemps); 
     4        printf("xd=%f x=%f\n",xd,YS1_r_float(Yi,YTemps)); 
    45        YS2=yd+YS2_r_float(Yi,YTemps); 
    56 
Note: See TracChangeset for help on using the changeset viewer.