524 lines
19 KiB
C
Executable file
524 lines
19 KiB
C
Executable file
|
|
#ifndef _meteoLib_h
|
|
#define _meteoLib_h
|
|
|
|
#include "ExtFtn.h"
|
|
|
|
static int VortFun __UNUSED =1;
|
|
static int DivFun __UNUSED =2;
|
|
static int VadvFun __UNUSED =3;
|
|
static int ParDivFun __UNUSED =4;
|
|
static int AdvFun __UNUSED =5;
|
|
static int LaplFun __UNUSED =6;
|
|
static int GradFun __UNUSED =7;
|
|
static int GeoFun __UNUSED =8;
|
|
static int DefFun __UNUSED =9;
|
|
static int DefVecFun __UNUSED =10;
|
|
/*static int GeoDefFun __UNUSED =11;*/
|
|
/*static int GeoDefVecFun __UNUSED =12;*/
|
|
/*static int AgeoFun __UNUSED =13;*/
|
|
static int RidgeFun __UNUSED =14;
|
|
static int VcontFun __UNUSED =17;
|
|
|
|
/* Not called from Fortran or implemented in Fortran */
|
|
//extern "C" {
|
|
|
|
float adiabatic_te (const float * temp, const float * press);
|
|
|
|
float calcHeatIndex (float temp, float dewPoint);
|
|
|
|
float calcWindChill (float temp, float windSpd);
|
|
|
|
void heliComp(const float ** u, const float ** v, float * umot, float * vmot,
|
|
int mnx, int nx, int ny, int nz,
|
|
float * heli);
|
|
|
|
void defineSlice(const float ** vc3d, const float ** param3d,
|
|
int mnx, int nx, int ny, int nz, float param, int sense,
|
|
float * vc2d);
|
|
|
|
void createSlice(const float ** vc3d, float * vc2d, const float ** slice3d,
|
|
int mnx, int nx, int ny, int nz, int sense,
|
|
float * slice);
|
|
|
|
void sampleSlice(const float ** vc3d, float * vc2d, const float ** slice3d,
|
|
int mnx, int nx, int ny, int nz, int sense, int hyb,
|
|
float * slice);
|
|
|
|
void defineSlices(float * vc3d, int senseA,
|
|
float * param3d, int senseB,
|
|
int nx, int ny, int nz,
|
|
float * paramC, int nc, float * vcC);
|
|
|
|
void createSlices(float * vc3d, float * param3d, int sense,
|
|
int nx, int ny, int nz,
|
|
float * vcC, int nc, float * paramC);
|
|
|
|
int capeFunc(float usetv, const float ** p_dat, const float ** tve_dat,
|
|
float * p0, float * th0, float * sh0,
|
|
int mnx, int nx, int ny, int nz,
|
|
float * cape_dat, float * cin_dat);
|
|
|
|
int dcapeFunc(float usetv, const float ** p_dat, const float ** t_dat, const float **
|
|
td_dat, float * p0, float * th0, float * sh0,
|
|
int mnx, int nx, int ny, int nz,
|
|
float max_evap, float max_rh, float * dcape_dat);
|
|
//}
|
|
EXT_FTN (void, g2gkinematics, (float * Udx, float * Vdy, float * Par,
|
|
float * SpaX, float * SpaY,
|
|
int * mnx, int * mny, int * nx, int * ny,
|
|
int * choice, float * Scalar))
|
|
|
|
EXT_FTN (void, alt2press, (float * alt, float * z,
|
|
int * mni, int * ni, int * nj, float * p))
|
|
|
|
EXT_FTN (void, hgt2pres, (float * z, float * p,
|
|
int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, add_by_cnst, (float * a, float * cnst, float * result,
|
|
int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, mult_by_cnst, (float * a, float * cnst, float * result,
|
|
int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, max_min, (float * a, float * b, float * result,
|
|
int * mni, int * ni, int * nj, int * mode))
|
|
|
|
EXT_FTN (void, add_aray, (float * a, float * b, float * result,
|
|
int * mni, int * ni, int * nj, int * mode))
|
|
|
|
EXT_FTN (void, sub_aray, (float * inp, float * b, float * result,
|
|
int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, ver_pts, (float * a, float * count, int * init,
|
|
int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, lintrans, (float * a, float * mult, float * add, float * result,
|
|
int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, replinrange, (float * a, int * tsttyp, float * lo, float * hi,
|
|
float * repl,
|
|
float * result, int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, dist_filter, (float * a, float * npts, float * result,
|
|
int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, calccondpr, (float * p, float * t, float * rh,
|
|
int * mni, int * ni, int * nj, float * q))
|
|
|
|
EXT_FTN (void, calccondprdef, (float * p, float * t, float * rh,
|
|
int * mni, int * ni, int * nj, float * q))
|
|
|
|
EXT_FTN (void, calcdpd, (float * t, float * rh,
|
|
int * mni, int * ni, int * nj, float * dpd))
|
|
|
|
EXT_FTN (void, calctd, (float * t, float * rh,
|
|
int * mni, int * ni, int * nj, float * td))
|
|
|
|
EXT_FTN (void, calctd2, (float * p, float * t, float * q,
|
|
int * mni, int * ni, int * nj, float * td))
|
|
|
|
EXT_FTN (void, calctw, (float * p, float * t, float * rh,
|
|
int * mni, int * ni, int * nj, float * tw))
|
|
|
|
EXT_FTN (float, mytw, (float * t, float * td, float * p));
|
|
|
|
EXT_FTN (void, spechum, (float * p, float * t, float * rh,
|
|
int * mni, int * ni, int * nj, float * q))
|
|
|
|
EXT_FTN (void, mixrat, (float * p, float * t, float * rh,
|
|
int * mni, int * ni, int * nj, float * q))
|
|
|
|
EXT_FTN (void, spechum2, (float * p, float * td,
|
|
int * mni, int * ni, int * nj, float * q))
|
|
|
|
EXT_FTN (void, calcthetae, (float * p, float * t, float * rh,
|
|
int * mni, int * ni, int * nj, float * q))
|
|
|
|
EXT_FTN (void, calcthetae2, (float * p, float * t, float * td,
|
|
int * mni, int * ni, int * nj, float * q))
|
|
|
|
EXT_FTN (void, calcrh, (float * t, float * td,
|
|
int * mni, int * ni, int * nj, float * rh))
|
|
|
|
EXT_FTN (void, calcrh2, (float * p, float * t, float * q,
|
|
int * mni, int * ni, int * nj, float * rh))
|
|
|
|
EXT_FTN (void, windspeed, (float * u, float * v, float * ff,
|
|
int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, winddir, (float * u, float * v, float * ff,
|
|
int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, temp2theta, (float * p, int * aflgp, float * t, int * aflgt,
|
|
float * theta, int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, theta2temp, (float * p, int * aflgp, float * theta,
|
|
int * aflgth,
|
|
float * t, int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, tv2temp, (float * tv, float * q,
|
|
int * mni, int * ni, int * nj, float * t))
|
|
|
|
EXT_FTN (void, calctv, (float * p, float * t, float * rh,
|
|
int * mni, int * ni, int * nj, float * tv))
|
|
|
|
EXT_FTN (void, calctv2, (float * t, float * q,
|
|
int * mni, int * ni, int * nj, float * tv))
|
|
|
|
EXT_FTN (void, calcpv, (float * p_up, float * p_low,
|
|
float * o_up, float * o_low, float * pvort,
|
|
int * mni, int * ni, int * nj,
|
|
float * u_up, float * v_up, float * u_low,float *v_low,
|
|
float * avort1, float * avort2,
|
|
float * dx, float * dy, float * coriolis))
|
|
|
|
EXT_FTN (void, pvpres, (float * t_up, float * t_low, float * p_up,float* p_low,
|
|
float * pvort, int * mni, int * ni, int * nj,
|
|
float * u_up, float * v_up, float * u_low,
|
|
float * v_low,
|
|
float * avort1, float * avort2,
|
|
float * dtdx1, float * dtdy1, float * dtdx2,
|
|
float * dtdy2,
|
|
float * dx, float * dy, float * coriolis))
|
|
|
|
EXT_FTN (void, lapserate, (float * tlo, float * pzlo, float * thi,
|
|
float * pzhi,
|
|
int * vc, int * mnx, int * nx, int * ny,
|
|
float * lapse))
|
|
|
|
EXT_FTN (void, calcli, (float * p, float * t, float * rh,
|
|
float * t5, float * p5,
|
|
int * mni, int * ni, int * nj, float * li))
|
|
|
|
EXT_FTN (void, sweatidx, (float * tt, float * td8,
|
|
float * u8, float * v8, float * u5, float * v5,
|
|
int * mni, int * ni, int * nj, float * q))
|
|
|
|
EXT_FTN (void, derivative, (float * a1, float * a2, float * b1, float * b2,
|
|
float * result, int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, div_aray, (float * a, float * b,
|
|
float * result, int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, mult_aray, (float * a, float * b,
|
|
float * result, int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, dotvectors, (float * aX, float * aY, float * bX, float * bY,
|
|
float * result, int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, crossvectors, (float * aX, float * aY, float * bX, float * bY,
|
|
float * result, int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, rotvectors, (float * aX, float * aY,
|
|
float * angle, float * bX, float * bY,
|
|
int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, exp_aray, (float * a, float * b,
|
|
int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, natlog, (float * a, float * b,
|
|
int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, powercalc, (float * a, float * b,
|
|
float * result, int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, mslp2thkns, (float * mslp, float * hgt,
|
|
float * thkns, int * mni, int * ni, int * nj))
|
|
|
|
EXT_FTN (void, nadgdt, (float * u, float * v, float * a,
|
|
int * mni, int * ni, int * nj,
|
|
float * dx, float * dy,
|
|
float * dadxdt, float * dadydt))
|
|
|
|
EXT_FTN (void, comp_by, (float * u, float * v, float * uu, float * vv,
|
|
int * mni, int * ni, int * nj, float * control,
|
|
float * comp, float * comp2))
|
|
|
|
EXT_FTN (void, setqsmooth, (int * npass, float * smthwgt))
|
|
|
|
EXT_FTN (void, slqvect, (float * z, float * t, float * p,
|
|
float * dx, float * dy, float * coriolis,
|
|
int * mni, int * ni, int * nj,
|
|
float * slqx, float * slqy,
|
|
float * dugdx, float * dugdy, float * dvgdx,
|
|
float * dvgdy,
|
|
float * dtdx, float * dtdy))
|
|
|
|
EXT_FTN (void, qvector, (float * zmid, float * ztop, float * zbot,
|
|
float * ptop, float * pbot,
|
|
int * mni, int * ni, int * nj,
|
|
float * dx, float * dy, float * f,
|
|
float * dugdx, float * dvgdx, float * dugdy,
|
|
float * dvgdy,
|
|
float * dtdx, float * dtdy, float * qx, float * qy))
|
|
|
|
EXT_FTN (void, slfront, (float * z, float * t, float * p,
|
|
float * dx, float * dy, float * coriolis,
|
|
int * mni, int * ni, int * nj, float * fgen,
|
|
float * slqx, float * slqy,
|
|
float * w1, float * w2, float * w3,
|
|
float * dtdx, float * dtdy))
|
|
|
|
EXT_FTN (void, frontogen, (float * zmid, float * ztop, float * zbot,
|
|
float * ptop, float * pbot,
|
|
int * mni, int * ni, int * nj,
|
|
float * dx, float * dy, float * f,
|
|
float * w1, float * w2, float * w3,
|
|
float * dtdx, float * dtdy, float * qx, float * qy,
|
|
float * fgen))
|
|
|
|
EXT_FTN (void, fndiverg, (float * zmid, float * ztop, float * zbot,
|
|
float * ptop, float * pbot,
|
|
int * mni, int * ni, int * nj,
|
|
float * dx, float * dy, float * f,
|
|
float * fnx, float * fny, float * w1,
|
|
float * dtdx, float * dtdy, float * qx, float * qy,
|
|
float * fndiv))
|
|
|
|
EXT_FTN (void, fsdiverg, (float * zmid, float * ztop, float * zbot,
|
|
float * ptop, float * pbot,
|
|
int * mni, int * ni, int * nj,
|
|
float * dx, float * dy, float * f,
|
|
float * fsx, float * fsy, float * w1,
|
|
float * dtdx, float * dtdy, float * qx, float * qy,
|
|
float * fsdiv))
|
|
|
|
EXT_FTN (float, ptozsa, (float *))
|
|
|
|
EXT_FTN (float, ztopsa, (float *))
|
|
|
|
EXT_FTN (void, interp, ( float p1, float p2, float temp1, float temp2,
|
|
float td1, float td2, float levelP,
|
|
float * interT, float * interTd ))
|
|
|
|
EXT_FTN (void, calckidx, (float * press, float * temp, float * td,
|
|
int numOfLevel, float * K ))
|
|
|
|
EXT_FTN (void, calctotidx, (float * press, float * temp, float * td,
|
|
int numOfLevel, float * total ))
|
|
|
|
EXT_FTN (void, radiation, (float * lat, float * lng, float * lsm, int * jd,
|
|
float * hr, float * bext, float * od,
|
|
float * solrad ))
|
|
|
|
EXT_FTN (void, richno, (float * HT, float * HW, float * UW, float * VW,
|
|
float * RHO,
|
|
int * NLVLS, int * NW, float * BUOY, float * RICHNUM))
|
|
|
|
EXT_FTN (void, wndrho, (float * RHO, float * HT, int * NLVLS,
|
|
float * HW, int * NW, float * RHOW))
|
|
|
|
EXT_FTN (void, density, (float * P, float * TVIR, int * NLVLS, float * RHO))
|
|
|
|
EXT_FTN (float, interp1, (float *, float *, float *, float *, float *))
|
|
|
|
EXT_FTN (float, dzdlnp, (float *, float *, float *))
|
|
|
|
EXT_FTN (float, rang2d, (const float * data, int * mnx, int * nx, int * ny,
|
|
float * minData, float * maxData))
|
|
|
|
EXT_FTN (void, avwind, (float * ELEV, float * TOP, float * BOT, float * HW,
|
|
float * PW, float * TW, float * UW, float * VW,
|
|
int * NW,
|
|
float * UAVG, float * VAVG, float * AVDIR,
|
|
float * AVSPD))
|
|
|
|
EXT_FTN (void, ctop, (float * P, float * HT, float * VV,
|
|
float * PEQLEV, int * NPAR, float * CLDTOP))
|
|
|
|
EXT_FTN (void, eqlev, (float * P, float * HT, float * TP, float * TE,
|
|
float * PLFC,
|
|
float * EPTPAR, int * NPAR, float * PEQLEV,
|
|
float * HEQLEV, float * TEQLEV))
|
|
|
|
EXT_FTN (void, hailsiz, (float * VVMAX, float * HSIZE))
|
|
|
|
EXT_FTN (void, mxtp, (float * ANSOL, float * DELTAP,
|
|
float * SFCP, float * P2, float * TL,
|
|
float * DELTAZ, int * LVL, float * CTMAX))
|
|
|
|
EXT_FTN (void, liftedp, (float * P, float * T, float * HT,
|
|
float * TVIR, int * NLVLS,
|
|
int * NPAR, float * PCB, float * HCB,
|
|
float * TCB, float * WCB,
|
|
float * THDPAR, float * EPTPAR,
|
|
float * PL, float * TL,
|
|
float * PP, float * HTP, float * TP,
|
|
float * TVIRP, float * TE,
|
|
float * TVIRE, int * NPARCEL))
|
|
|
|
EXT_FTN (void, sweat, (float * P, float * T, float * TD,
|
|
int * NLVLS, float * PW, float * UW,
|
|
float * VW, int * NW, float * SWIDX))
|
|
|
|
EXT_FTN (void, uvcomp, (float * DIR, float * SPD,
|
|
float * U, float * V, int * NLVLS))
|
|
|
|
EXT_FTN (void, cclpar, (float * MIX, float * P,
|
|
float * HT, float * T, int * NLVLS,
|
|
float * PCCL, float * TCCL, float * HCCL))
|
|
|
|
EXT_FTN (void, lclpar, (float * MIX, float * TS,
|
|
float * P, float * HT, float * T, float * TD,
|
|
int * NLVLS, float * PLCL, float * TLCL, float * HLCL))
|
|
|
|
EXT_FTN (void, lfcpar, (float * EPTPAR, float * PCB,
|
|
float * TCB, float * HCB, float * T1, float * T2,
|
|
float * P1, float * HT1, int * NPAR,
|
|
float * PLFC1, float * HLFC1, float * TLFC1,
|
|
float * PLFC2, float * HLFC2, float * TLFC2))
|
|
|
|
EXT_FTN (void, ddff, (float * U, float * V, float * DIR,
|
|
float * SPD, int * NLVLS))
|
|
|
|
EXT_FTN (void, frzlev, (float * ELEV, float * P,
|
|
float * HT, float * T, int * NLVLS,
|
|
float * PFRZ, float * HFRZ))
|
|
|
|
EXT_FTN (void, intpos, (float * VDIF, float * HT,
|
|
float * P, float * T, int * NLVLS))
|
|
|
|
EXT_FTN (void, negarea, (float * PCB, float * TCB, float * HCB, float * PLFC,
|
|
float * HLFC, float * TLFC,
|
|
float * THDPAR, float * EPTPAR,
|
|
float * P, float * HT, float * TE,
|
|
float * TP, int * NPAR,
|
|
float * CINFRMCAPE, float * NEGBUOY))
|
|
|
|
EXT_FTN (void, posarea, (float * PLFC, float * PEQLEV,
|
|
float * TLFC, float * TEQLEV,
|
|
float * HLFC, float * HEQLEV,
|
|
float * EPTPAR, float * P,
|
|
float * HT, float * TE,
|
|
float * TP, int * NPAR, float * BUOY, float * CIN))
|
|
|
|
EXT_FTN (void, totals, (float * P, float * T, float * TD,
|
|
int * NLVLS, float * TOTIDX,
|
|
float * CRSTOT, float * VERTOT))
|
|
|
|
EXT_FTN (void, vvel, (float * pcb, float * PEQLEV,
|
|
float * P, float * HT, float * TP,
|
|
float * TVE, float * TVP, float * WLCL, int * NPAR,
|
|
float * VV, float * VVMAX))
|
|
|
|
EXT_FTN (float, esat, (float * T))
|
|
|
|
EXT_FTN (void, temp_mixratio, ( float * press, float * mixratio,
|
|
float * tempmr ))
|
|
|
|
EXT_FTN (void, solax, (int * JULDAY, int * MONTH, float * SLAT, int * TYMINC,
|
|
int * TSTART, int * TSTOP, float * TSRAD))
|
|
|
|
EXT_FTN (void, eqp, (float * DELTAP, float * P, float * HT,
|
|
float * T, float * TD,
|
|
int * N, float * PP, float * HTT,
|
|
float * TT, float * TTD, int * NN))
|
|
|
|
EXT_FTN (void, rhbar, (float * ENDLVL, int * MRH,
|
|
int * NCLYR, float * SFCP,
|
|
float * P, float * TL, float * TDL))
|
|
|
|
EXT_FTN (void, forecast, (int * yr, int * mon, int * day,
|
|
int * hour, int * min,
|
|
char * stnid, int * snow,
|
|
float * slat, float * slon,
|
|
float * p, float * ht,
|
|
float * t, float * td, int * nlvls,
|
|
float * ftmax, int * status))
|
|
|
|
EXT_FTN (void, cv_date2jul, (int * YR, int * MON,
|
|
int * DAY, int * JD, int * ISTATUS))
|
|
|
|
EXT_FTN (float, virttemp, (float * T, float * Td, float * P))
|
|
|
|
EXT_FTN (void, virtualt, (float * T, float * TD, float * P,
|
|
int * NLVLS, float * TVIR))
|
|
|
|
EXT_FTN (void, wbzero, (float * ELEV, float * P, float *HT,
|
|
float *Tt, float * TD,
|
|
int * NLVLS, float * PWBZ,
|
|
float * HWBZ, float * TWBZ))
|
|
|
|
EXT_FTN (void, tsoar, (float * elev, float * p, float * z,
|
|
float * t, float * theta, int * nl,
|
|
float * Tpmax, float * PTLXEC,
|
|
float * zlnec, float * tlnec,
|
|
float * zlxec, float * tlxec,
|
|
float * soarindx, float * Trigtemp))
|
|
|
|
EXT_FTN (void, gusts, (float * p, float * t, float * td,
|
|
int * np, int * gstpot))
|
|
|
|
EXT_FTN (void, deftrk, (float * tcb, float * pcb,
|
|
float * thdpar, float * eptpar))
|
|
|
|
EXT_FTN (void, pvalue, (float * pres, float * p,
|
|
int * np, float * param, float * value))
|
|
|
|
EXT_FTN (void, cvgust, (float * dd7, float * ui, int * gstpot))
|
|
|
|
EXT_FTN (float, thetawa, (float * temp, float * dwpt,
|
|
float * pres, int * iw, int * ier))
|
|
|
|
EXT_FTN (int, cgp, (float * tempip, float * dwptip,
|
|
float * presip, float * thetawip,
|
|
float * sfcpres, float * toppres,
|
|
int * iw, float * deltap))
|
|
|
|
EXT_FTN (void, tpzlcl, (float * tk, float * tdk, float * pinit, int * iw,
|
|
float * tl, float * pl, float * zl, int * ier))
|
|
|
|
EXT_FTN (float, pottemp, (float * temp, float * dwpt, float * pres, int * iw))
|
|
|
|
EXT_FTN (float, dmixr, (float * temp, float * pres, int * iw))
|
|
|
|
EXT_FTN (void, pseudolift, (int * n, float * pstart,
|
|
float * pfinish, float * soln))
|
|
|
|
EXT_FTN (float, vp, (float * tk, int * iw))
|
|
|
|
EXT_FTN (void, calchelicity, (float * HW, float * PW,
|
|
float * UW, float * VW, int * NW,
|
|
float * elev, float * ztop,
|
|
float * ghx, float * ghy,
|
|
float * diravg, float * spdavg,
|
|
float * stmdir, float * stmspd,
|
|
float * helicity, float * SRHel))
|
|
|
|
EXT_FTN (void, tplcl, (float * tk,float * td,
|
|
float * pinit,float * tl,float * pl,int * ier))
|
|
|
|
EXT_FTN (float, temp_of_te, ( const float * te, const float * press))
|
|
|
|
EXT_FTN (float, ept, (float * t, float * td, float * p))
|
|
|
|
EXT_FTN (float, tsa, (float * os, float * pres))
|
|
|
|
EXT_FTN (void, fortconbuf, (float * Array, int * Work,
|
|
int * mnx, int * nx, int * ny,
|
|
float * scale, float * offset,
|
|
int * mode, float * seed,
|
|
float * xpoints, float * ypoints, int * npoints,
|
|
float * badlo, float * badhi, int * status))
|
|
|
|
EXT_FTN (void, strmpak, (const float * U, const float * V, int * work, const int * mnx,
|
|
const int * nx, const int * ny, const float * asize, const float *
|
|
xpoints, const float * ypoints, const int * npoints, const float *
|
|
minspc, const float * maxspc, const float * badlo, const float *
|
|
badhi));
|
|
|
|
EXT_FTN (void, strmsmth, (float * smoothness, int * npass));
|
|
|
|
|
|
|
|
EXT_FTN (void, matsln, (float * Array, float * yVector,
|
|
int * work, float * soln,
|
|
int * mn, int * n, int * ok))
|
|
|
|
#if 1
|
|
EXT_FTN (int, scaleless_analysis, (float * xind, float * yind, float * values,
|
|
int * nv, int * nx, int * ny, float * grid))
|
|
#endif
|
|
|
|
#endif
|