Changeset 12090

Show
Ignore:
Timestamp:
09/06/07 12:59:41 (10 months ago)
Author:
retsios
Message:

Increased portability regarding the use of rint().

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • spike/grib/degrib18/g2clib-1.0.4/compack.c

    r10748 r12090  
    109109        // 
    110110        if (idrstmpl[1] == 0) {        //  No binary scaling 
    111            imin=(g2int)rint(rmin*dscale); 
     111           imin=(g2int)RINT(rmin*dscale); 
    112112           //imax=(g2int)rint(rmax*dscale); 
    113113           rmin=(g2float)imin; 
    114114           for (j=0;j<ndpts;j++)  
    115               ifld[j]=(g2int)rint(fld[j]*dscale)-imin; 
     115              ifld[j]=(g2int)RINT(fld[j]*dscale)-imin; 
    116116        } 
    117117        else {                             //  Use binary scaling factor 
    …… 
    119119           //rmax=rmax*dscale; 
    120120           for (j=0;j<ndpts;j++)  
    121              ifld[j]=(g2int)rint(((fld[j]*dscale)-rmin)*bscale); 
     121             ifld[j]=(g2int)RINT(((fld[j]*dscale)-rmin)*bscale); 
    122122        } 
    123123        // 

  • spike/grib/degrib18/g2clib-1.0.4/grib2.h

    r10754 r12090  
    202202typedef struct gribfield gribfield; 
    203203 
    204 #define rint(d)   (floor(d+0.5)) 
     204#define RINT(d)   (floor(d+0.5)) 
    205205 
    206206/*  Prototypes for unpacking API  */ 

  • spike/grib/degrib18/g2clib-1.0.4/jpcpack.c

    r12077 r12090  
    9393      } 
    9494      if (idrstmpl[1] == 0)  
    95          maxdif = (g2int) (rint(rmax*dscale) - rint(rmin*dscale)); 
     95         maxdif = (g2int) (RINT(rmax*dscale) - RINT(rmin*dscale)); 
    9696      else 
    97          maxdif = (g2int)rint( (rmax-rmin)*dscale*bscale ); 
     97         maxdif = (g2int)RINT( (rmax-rmin)*dscale*bscale ); 
    9898// 
    9999//  If max and min values are not equal, pack up field. 
    …… 
    113113           //  bits in which the data will fit. 
    114114           // 
    115            imin=(g2int)rint(rmin*dscale); 
    116            imax=(g2int)rint(rmax*dscale); 
     115           imin=(g2int)RINT(rmin*dscale); 
     116           imax=(g2int)RINT(rmax*dscale); 
    117117           maxdif=imax-imin; 
    118118           temp=log((double)(maxdif+1))/alog2; 
    …… 
    121121           //   scale data 
    122122           for(j=0;j<ndpts;j++) 
    123              ifld[j]=(g2int)rint(fld[j]*dscale)-imin; 
     123             ifld[j]=(g2int)RINT(fld[j]*dscale)-imin; 
    124124        } 
    125125        else { 
    …… 
    130130           rmin=rmin*dscale; 
    131131           rmax=rmax*dscale; 
    132            maxdif=(g2int)rint((rmax-rmin)*bscale); 
     132           maxdif=(g2int)RINT((rmax-rmin)*bscale); 
    133133           temp=log((double)(maxdif+1))/alog2; 
    134134           nbits=(g2int)ceil(temp); 
    135135           //   scale data 
    136136           for (j=0;j<ndpts;j++) 
    137              ifld[j]=(g2int)rint(((fld[j]*dscale)-rmin)*bscale); 
     137             ifld[j]=(g2int)RINT(((fld[j]*dscale)-rmin)*bscale); 
    138138        } 
    139139        // 

  • spike/grib/degrib18/g2clib-1.0.4/misspack.c

    r10748 r12090  
    145145        nonmiss=0; 
    146146        if (idrstmpl[1] == 0) {        //  No binary scaling 
    147            imin=(g2int)rint(rmin*dscale); 
     147           imin=(g2int)RINT(rmin*dscale); 
    148148           //imax=(g2int)rint(rmax*dscale); 
    149149           rmin=(g2float)imin; 
    150150           for ( j=0; j<ndpts; j++) { 
    151151              if (ifldmiss[j] == 0) { 
    152                 jfld[nonmiss]=(g2int)rint(fld[j]*dscale)-imin; 
     152                jfld[nonmiss]=(g2int)RINT(fld[j]*dscale)-imin; 
    153153                nonmiss++; 
    154154              } 
    …… 
    160160           for ( j=0; j<ndpts; j++ ) { 
    161161              if (ifldmiss[j] == 0) { 
    162                 jfld[nonmiss]=(g2int)rint(((fld[j]*dscale)-rmin)*bscale); 
     162                jfld[nonmiss]=(g2int)RINT(((fld[j]*dscale)-rmin)*bscale); 
    163163                nonmiss++; 
    164164              } 

  • spike/grib/degrib18/g2clib-1.0.4/mkieee.c

    r10748 r12090  
    104104          else 
    105105            atemp=atemp*two126; 
    106           imant=(g2int)rint(atemp*two23); 
     106          imant=(g2int)RINT(atemp*two23); 
    107107        } 
    108108        else { 

  • spike/grib/degrib18/g2clib-1.0.4/pngpack.c

    r12075 r12090  
    7676        if (fld[j] < rmin) rmin=fld[j]; 
    7777      } 
    78       maxdif = (g2int)rint( (rmax-rmin)*dscale*bscale ); 
     78      maxdif = (g2int)RINT( (rmax-rmin)*dscale*bscale ); 
    7979// 
    8080//  If max and min values are not equal, pack up field. 
    …… 
    9494           //  bits in which the data will fit. 
    9595           // 
    96            imin=(g2int)rint(rmin*dscale); 
    97            imax=(g2int)rint(rmax*dscale); 
     96           imin=(g2int)RINT(rmin*dscale); 
     97           imax=(g2int)RINT(rmax*dscale); 
    9898           maxdif=imax-imin; 
    9999           temp=log((double)(maxdif+1))/alog2; 
    …… 
    102102           //   scale data 
    103103           for(j=0;j<ndpts;j++) 
    104              ifld[j]=(g2int)rint(fld[j]*dscale)-imin; 
     104             ifld[j]=(g2int)RINT(fld[j]*dscale)-imin; 
    105105        } 
    106106        else { 
    …… 
    111111           rmin=rmin*dscale; 
    112112           rmax=rmax*dscale; 
    113            maxdif=(g2int)rint((rmax-rmin)*bscale); 
     113           maxdif=(g2int)RINT((rmax-rmin)*bscale); 
    114114           temp=log((double)(maxdif+1))/alog2; 
    115115           nbits=(g2int)ceil(temp); 
    116116           //   scale data 
    117117           for (j=0;j<ndpts;j++) 
    118              ifld[j]=(g2int)rint(((fld[j]*dscale)-rmin)*bscale); 
     118             ifld[j]=(g2int)RINT(((fld[j]*dscale)-rmin)*bscale); 
    119119        } 
    120120        // 

  • spike/grib/degrib18/g2clib-1.0.4/simpack.c

    r10748 r12090  
    100100           //  bits in which the data will fit. 
    101101           // 
    102            imin=(g2int)rint(rmin*dscale); 
    103            imax=(g2int)rint(rmax*dscale); 
     102           imin=(g2int)RINT(rmin*dscale); 
     103           imax=(g2int)RINT(rmax*dscale); 
    104104           maxdif=imax-imin; 
    105105           temp=log((double)(maxdif+1))/alog2; 
    …… 
    108108           //   scale data 
    109109           for(j=0;j<ndpts;j++) 
    110              ifld[j]=(g2int)rint(fld[j]*dscale)-imin; 
     110             ifld[j]=(g2int)RINT(fld[j]*dscale)-imin; 
    111111        } 
    112112        else if (nbits!=0 && idrstmpl[1]==0) { 
    …… 
    123123           //   scale data 
    124124           for (j=0;j<ndpts;j++) 
    125              ifld[j]=(g2int)rint(((fld[j]*dscale)-rmin)*bscale); 
     125             ifld[j]=(g2int)RINT(((fld[j]*dscale)-rmin)*bscale); 
    126126        } 
    127127        else if (nbits==0 && idrstmpl[1]!=0) { 
    …… 
    132132           rmin=rmin*dscale; 
    133133           rmax=rmax*dscale; 
    134            maxdif=(g2int)rint((rmax-rmin)*bscale); 
     134           maxdif=(g2int)RINT((rmax-rmin)*bscale); 
    135135           temp=log((double)(maxdif+1))/alog2; 
    136136           nbits=(g2int)ceil(temp); 
    137137           //   scale data 
    138138           for (j=0;j<ndpts;j++) 
    139              ifld[j]=(g2int)rint(((fld[j]*dscale)-rmin)*bscale); 
     139             ifld[j]=(g2int)RINT(((fld[j]*dscale)-rmin)*bscale); 
    140140        } 
    141141        else if (nbits!=0 && idrstmpl[1]!=0) { 
    …… 
    149149           //   scale data 
    150150           for (j=0;j<ndpts;j++) 
    151              ifld[j]=(g2int)rint(((fld[j]*dscale)-rmin)*bscale); 
     151             ifld[j]=(g2int)RINT(((fld[j]*dscale)-rmin)*bscale); 
    152152        } 
    153153        //