Ignore:
Timestamp:
06/22/11 15:51:08 (14 years ago)
Author:
jschierm
Message:

Updated versions of Xy2ll and Ll2xy modules and x-layers.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • issm/trunk/src/mex/Ll2xy/Ll2xy.cpp

    r8681 r8689  
    1818        /* output: */
    1919        double  *x=NULL,*y=NULL;
     20        int     iret=0;
    2021
    2122        /*Boot module: */
     
    3839                if   (nlat == 1) printf("  lat=%g\n",lat[0]);
    3940                else             printf("  lat=[%d values]\n",nlat);
     41//      for (i=0; i<nlat; i++) printf("  lat[%d]=%g\n",i,lat[i]);
    4042        FetchData(&lon,&nlon,LON_IN);
    4143        if (verbose)
    4244                if   (nlon == 1) printf("  lon=%g\n",lon[0]);
    4345                else             printf("  lon=[%d values]\n",nlon);
     46//      for (i=0; i<nlon; i++) printf("  lon[%d]=%g\n",i,lon[i]);
    4447        FetchData(&sgn,SGN_IN);
    4548        if (verbose) printf("  sgn=%d\n",sgn);
     
    7174        if (verbose) printf("Calling core:\n");
    7275        if (options->GetOption("central_meridian") && options->GetOption("standard_parallel"))
    73                 Ll2xyx(x,y,
    74                            lat,lon,ncoord,
    75                            sgn,cm,sp);
     76                iret=Ll2xyx(x,y,
     77                                        lat,lon,ncoord,
     78                                        sgn,cm,sp);
    7679        else
    77                 Ll2xyx(x,y,
    78                            lat,lon,ncoord,
    79                            sgn);
     80                iret=Ll2xyx(x,y,
     81                                        lat,lon,ncoord,
     82                                        sgn);
     83        if (verbose) printf("  iret=%d\n",iret);
    8084
    8185        /*Write data: */
Note: See TracChangeset for help on using the changeset viewer.