CWnd* CcsTest::Calculate ()
{
int status;
CWnd* errorPtr;
struct cs_Csprm_ *srcPtr;
struct cs_Csprm_ *trgPtr;
struct cs_Dtcprm_ *dtcPtr;
double xy [3], ll [3];
char ctemp [512];
errorPtr = FetchSource ();
if (errorPtr != NULL) goto error;
xy [0] = m_SourceXY [0];
xy [1] = m_SourceXY [1];
if (m_ThreeDCalc) xy [2] = m_SourceXY [2];
else xy [2] = 0.0;
// Set up the conversion.
srcPtr = CSbcclu (m_SrcKeyName);
if (srcPtr == NULL)
{
errorPtr = GetDlgItem (IDC_CSTST_SRCKEYNM);
goto error;
}
trgPtr = CSbcclu (m_TrgKeyName);
if (trgPtr == NULL)
{
errorPtr = GetDlgItem (IDC_CSTST_TRGKEYNM);
goto error;
}
dtcPtr = CSbdclu (srcPtr,trgPtr,cs_DTCFLG_DAT_W,cs_DTCFLG_BLK_10);
if (dtcPtr == NULL)
{
errorPtr = GetDlgItem (IDC_CSTST_SRCKEYNM);
goto error;
}
// Do the conversion
if (m_ThreeDCalc)
{
status = CS_cs3ll (srcPtr,ll,xy);
}
else
{
status = CS_cs2ll (srcPtr,ll,xy);
}
if (status == cs_CNVRT_OK)
{
m_SrcStatus = "OK";
}
else if (status == cs_CNVRT_USFL)
{
m_SrcStatus = "Range";
}
else if (status == cs_CNVRT_DOMN)
{
m_SrcStatus = "Domain";
}
else if (status = cs_CNVRT_DEMO)
{
m_SrcStatus = "Demo";
}
else
{
m_SrcStatus = "???";
}
// Source Grid Scale and Convergence.
m_SourceScale = CS_csscl (srcPtr,ll);
m_SourceConvergence = CS_cscnv (srcPtr,ll);
UpdateSource ();
// Do the datum shift.
if (m_ThreeDCalc)
{
status = CS_dtcvt3D (dtcPtr,ll,ll);
}
else
{
status = CS_dtcvt (dtcPtr,ll,ll);
}
if (status == 0)
{
m_TrgStatus.Empty ();
}
else if (status < 0)
{
m_TrgStatus = "DtErr";
errorPtr = GetDlgItem (IDC_CSTST_SRCKEYNM);
goto error;
}
else
{
m_TrgStatus = "DtRng";
CS_errmsg (ctemp,sizeof (ctemp));
AfxMessageBox (ctemp);
}
// Target conversion
if (m_ThreeDCalc)
{
status = CS_ll3cs (trgPtr,xy,ll);
}
else
{
status = CS_ll2cs (trgPtr,xy,ll);
}
if (m_TrgStatus.IsEmpty ())
{
if (status == cs_CNVRT_OK)
{
m_TrgStatus = "OK";
}
else if (status == cs_CNVRT_USFL)
{
m_TrgStatus = "Range";
}
else if (status == cs_CNVRT_DOMN)
{
m_TrgStatus = "Domain";
}
else if (status = cs_CNVRT_DEMO)
{
m_TrgStatus = "Demo";
}
else
{
m_TrgStatus = "???";
}
}
m_TargetXY [0] = xy [0];
m_TargetXY [1] = xy [1];
if (m_ThreeDCalc) m_TargetXY [2] = xy [2];
else m_TargetXY [2] = 0.0;
// Target Grid Scale and Convergence.
m_TargetScale = CS_csscl (trgPtr,ll);
m_TargetConvergence = CS_cscnv (trgPtr,ll);
// Update the display
UpdateTarget ();
UpdateData (FALSE);
return NULL;
error:
m_TrgStatus = "Error";
m_TargetXY [0] = 0.0;
m_TargetXY [1] = 0.0;
m_TargetXY [2] = 0.0;
UpdateTarget ();
UpdateData (FALSE);
return errorPtr;
}
/**********************************************************************
** st = CS_cnvrt3D (src_cs,dst_cs,coord);
**
** char *src_cs; name of the source coordinate system.
** char *dst_cs; name of the destination coordinate system.
** double coord [3]; an array of double in which the coordinate
** to be converted is supplied, and the
** converted result is returned.
**
** The functions in this module rely on a cache of previously
** initialized coordinate system definitions and datum conversions.
** These caches are searched for each conversion.
**********************************************************************/
int EXP_LVL1 CS_cnvrt3D (Const char *src_cs,Const char *dst_cs,double coord [3])
{
extern int cs_Error;
extern csFILE* csDiagnostic;
static char modl_name [] = "CS_cnvrt3D";
struct cs_Csprm_ *src_ptr;
struct cs_Csprm_ *dst_ptr;
struct cs_Dtcprm_ *dtc_ptr;
int st;
int status;
int dt_st;
double my_ll [3];
status = 0;
/* Get a pointer to the two coordinate systems involved. */
if (csDiagnostic != 0) fprintf (csDiagnostic,"%s[%d] %s->%s\n",modl_name,__LINE__,src_cs,dst_cs);
src_ptr = CSbcclu (src_cs);
if (src_ptr == NULL) goto error;
dst_ptr = CSbcclu (dst_cs);
if (dst_ptr == NULL) goto error;
if (csDiagnostic != 0) fprintf (csDiagnostic,"%s[%d] %p & %p\n",modl_name,__LINE__,src_ptr,dst_ptr);
/* Get a pointer to the datum conversion required. */
dtc_ptr = CSbdclu (src_ptr,dst_ptr,cs_DTCFLG_DAT_F,cs_DTCFLG_BLK_W);
if (csDiagnostic != 0) fprintf (csDiagnostic,"%s[%d] %p\n",modl_name,__LINE__,dtc_ptr);
if (dtc_ptr == NULL) goto error;
/* Convert the coordinate and return the result to the user. */
st = CS_cs3ll (src_ptr,my_ll,coord);
if (csDiagnostic != 0) fprintf (csDiagnostic,"%s[%d] %d\n",modl_name,__LINE__,st);
if (st != cs_CNVRT_NRML)
{
status |= cs_BASIC_SRCRNG;
}
dt_st = CS_dtcvt3D (dtc_ptr,my_ll,my_ll);
if (csDiagnostic != 0) fprintf (csDiagnostic,"%s[%d] %d\n",modl_name,__LINE__,dt_st);
if (dt_st != 0)
{
if (dt_st < 0) goto error;
status |= cs_BASIC_DTCWRN;
}
st = CS_ll3cs (dst_ptr,coord,my_ll);
if (csDiagnostic != 0) fprintf (csDiagnostic,"%s[%d] %d\n",modl_name,__LINE__,st);
if (st != cs_CNVRT_NRML)
{
status |= cs_BASIC_DSTRNG;
}
/* That's it. */
if (csDiagnostic != 0) fprintf (csDiagnostic,"%s[%d] %d\n",modl_name,__LINE__,status);
return (status);
error:
return (-cs_Error);
}
int CStestT (bool verbose,long32_t duration)
{
int err_cnt = 0;
#ifdef __SKIP__
double xyz [3];
xyz [0] = 0.0;
xyz [1] = 20000000.000;
xyz [2] = 0.0;
int st = CS_cnvrt ("WGS84.PseudoMercator","LL",xyz);
if (st != 0)
{
err_cnt += 1;
}
#endif
#ifndef __SKIP__
char wktOne [1024] = "GEOGCS [ \"NAD83\", DATUM [\"NAD 83\", SPHEROID [\"GRS 80\", 6378137.000000, 298.257222]], PRIMEM [ \"Greenwich\", 0.000000 ], UNIT [\"Degrees\", 0.01745329251994330]]";
// char wktOne [1024] = "PROJCS[\"DHDN / Gauss-Kruger zone 5\",GEOGCS[\"DHDN\",DATUM[\"Deutsches_Hauptdreiecksnetz\",SPHEROID[\"Bessel 1841\",6377397.155,299.1528128,AUTHORITY[\"EPSG\",\"7004\"]],AUTHORITY[\"EPSG\",\"6314\"]],PRIMEM[\"Greenwich\",0,AUTHORITY[\"EPSG\",\"8901\"]],UNIT[\"degree\",0.01745329251994328,AUTHORITY[\"EPSG\",\"9122\"]],AUTHORITY[\"EPSG\",\"4314\"]],UNIT[\"metre\",1,AUTHORITY[\"EPSG\",\"9001\"]],PROJECTION[\"Transverse_Mercator\"],PARAMETER[\"latitude_of_origin\",0],PARAMETER[\"central_meridian\",15],PARAMETER[\"scale_factor\",1],PARAMETER[\"false_easting\",5500000],PARAMETER[\"false_northing\",0],AUTHORITY[\"EPSG\",\"31469\"]]";
char wktTwo [1024] = "GEOGCS[\"LL84\",DATUM[\"WGS84\",SPHEROID[\"WGS84\",6378137.000,298.25722293]],PRIMEM[\"Greenwich\",0],UNIT[\"Degree\",0.01745329251994]]";
char wktThree [1024] = "PROJCS[\"NAD83 / California zone 3 (ftUS)\",GEOGCS[\"NAD83\",DATUM[\"North_American_Datum_1983\",SPHEROID[\"GRS 1980\",6378137,298.257222101,AUTHORITY[\"EPSG\",\"7019\"]],AUTHORITY[\"EPSG\",\"6269\"]],PRIMEM[\"Greenwich\",0,AUTHORITY[\"EPSG\",\"8901\"]],UNIT[\"degree\",0.01745329251994328,AUTHORITY[\"EPSG\",\"9122\"]],AUTHORITY[\"EPSG\",\"4269\"]],UNIT[\"US survey foot\",0.3048006096012192,AUTHORITY[\"EPSG\",\"9003\"]],PROJECTION[\"Lambert_Conformal_Conic_2SP\"],PARAMETER[\"standard_parallel_1\",38.43333333333333],PARAMETER[\"standard_parallel_2\",37.06666666666667],PARAMETER[\"latitude_of_origin\",36.5],PARAMETER[\"central_meridian\",-120.5],PARAMETER[\"false_easting\",6561666.667],PARAMETER[\"false_northing\",1640416.667],AUTHORITY[\"EPSG\",\"2227\"],AXIS[\"X\",EAST],AXIS[\"Y\",NORTH]]";
char wktFour [1024] = "PROJCS[\"DHDN.Berlin/Cassini\",GEOGCS[\"DHDN.LL\",DATUM[\"DHDN\",SPHEROID[\"BESSEL\",6377397.155,299.15281535],TOWGS84[582.0000,105.0000,414.0000,-1.040000,-0.350000,3.080000,8.30000000]],PRIMEM[\"Greenwich\",0],UNIT[\"Degree\",0.017453292519943295]],PROJECTION[\"Cassini-Soldner\"],PARAMETER[\"false_easting\",40000.000],PARAMETER[\"false_northing\",10000.000],PARAMETER[\"central_meridian\",13.62720366666667],PARAMETER[\"latitude_of_origin\",52.41864827777778],UNIT[\"Meter\",1.00000000000000]]";
char wktFive [1024] = "PROJCS[\"NAD83 / UTM zone 19N\",GEOGCS[\"NAD83\",DATUM[\"North_American_Datum_1983\",SPHEROID[\"GRS 1980\",6378137,298.257222101,AUTHORITY[\"EPSG\",\"7019\"]],AUTHORITY[\"EPSG\",\"6269\"]],PRIMEM[\"Greenwich\",0,AUTHORITY[\"EPSG\",\"8901\"]],UNIT[\"degree\",0.01745329251994328,AUTHORITY[\"EPSG\",\"9122\"]],AUTHORITY[\"EPSG\",\"4269\"]],UNIT[\"metre\",1,AUTHORITY[\"EPSG\",\"9001\"]],PROJECTION[\"Transverse_Mercator\"],PARAMETER[\"latitude_of_origin\",0],PARAMETER[\"central_meridian\",-69],PARAMETER[\"scale_factor\",0.9996],PARAMETER[\"false_easting\",500000],PARAMETER[\"false_northing\",0],AUTHORITY[\"EPSG\",\"26919\"],AXIS[\"Easting\",EAST],AXIS[\"Northing\",NORTH]]";
char wktSix [1024] = "PROJCS[\"NAD_1983_HARN_StatePlane_Hawaii_3_FIPS_5103_Feet\",GEOGCS[\"GCS_North_American_1983_HARN\",DATUM[\"D_North_American_1983_HARN\",SPHEROID[\"GRS_1980\",6378137.0,298.257222101]],PRIMEM[\"Greenwich\",0.0],UNIT[\"Degree\",0.0174532925199433]],PROJECTION[\"Transverse_Mercator\"],PARAMETER[\"False_Easting\",1640416.666666667],PARAMETER[\"False_Northing\",0.0],PARAMETER[\"Central_Meridian\",-158.0],PARAMETER[\"Scale_Factor\",0.99999],PARAMETER[\"Latitude_Of_Origin\",21.16666666666667],UNIT[\"Foot_US\",0.3048006096012192]]";
char wktSeven [1024] = "PROJCS[\"NAD_1983_UTM_Zone_12N\",GEOGCS[\"GCS_North_American_1983\",DATUM[\"D_North_American_1983\",SPHEROID[\"GRS_1980\",6378137.0,298.257222101]],PRIMEM[\"Greenwich\",0.0],UNIT[\"Degree\",0.0174532925199433]],PROJECTION[\"Transverse_Mercator\"],PARAMETER[\"False_Easting\",500000.0],PARAMETER[\"False_Northing\",0.0],PARAMETER[\"Central_Meridian\",-111.0],PARAMETER[\"Scale_Factor\",0.9996],PARAMETER[\"Latitude_Of_Origin\",0.0],UNIT[\"Meter\",1.0]]";
char wktEight [1024] = "PROJCS[\"Italian National System (Gauss-Boaga), Zone 1 (West) Peninsular\",GEOGCS [\"Rome 1940\",DATUM [\"Rome 1940\",SPHEROID [\"International 1924\", 6378388, 297], -104.1, -49.1, -9.9, 0.971, -2.917, 0.714, -11.68],PRIMEM [ \"Greenwich\", 0.000000 ],UNIT [\"Decimal Degree\", 0.01745329251994330]],PROJECTION [\"Transverse Mercator\"],PARAMETER [\"Scale_Factor\", 0.999600],PARAMETER [\"Central_Meridian\", 9.000000],PARAMETER [\"False_Easting\", 150000000],UNIT [\"Centimeter\", 0.01]]";
char wktNine [1024] = "PROJCS[\"ENEL GB\",GEOGCS[\"ROME1940-IT-7P\",DATUM[\"ROME1940-IT-7P\",SPHEROID[\"International 1924 (EPSG ID 7022)\",6378388.000,297.00000000],TOWGS84[-104.1000,-49.1000,-9.9000,0.971000,-2.917000,0.714000,-11.68000000]],PRIMEM[\"Greenwich\",0],UNIT[\"Decimal Degree\",0.017453292519943295]],PROJECTION[\"Transverse Mercator\"],PARAMETER[\"False_Easting\",1500000.000],PARAMETER[\"False_Northing\",0.000],PARAMETER[\"Scale_Factor\",1.000000000000],PARAMETER[\"Central_Meridian\",9.00000000000000],PARAMETER[\"Latitude_Of_Origin\",0.00000000000000],UNIT[\"Centimeter\",0.01000000000000]]";
int stOne;
struct cs_Csdef_ csDefOne;
struct cs_Dtdef_ dtDefOne;
struct cs_Eldef_ elDefOne;
int stTwo;
struct cs_Csdef_ csDefTwo;
struct cs_Dtdef_ dtDefTwo;
struct cs_Eldef_ elDefTwo;
int stThree;
struct cs_Csdef_ csDefThree;
struct cs_Dtdef_ dtDefThree;
struct cs_Eldef_ elDefThree;
int stFour;
struct cs_Csdef_ csDefFour;
struct cs_Dtdef_ dtDefFour;
struct cs_Eldef_ elDefFour;
int stFive;
struct cs_Csdef_ csDefFive;
struct cs_Dtdef_ dtDefFive;
struct cs_Eldef_ elDefFive;
int stSix;
struct cs_Csdef_ csDefSix;
struct cs_Dtdef_ dtDefSix;
struct cs_Eldef_ elDefSix;
int stSeven;
struct cs_Csdef_ csDefSeven;
struct cs_Dtdef_ dtDefSeven;
struct cs_Eldef_ elDefSeven;
int stEight;
struct cs_Csdef_ csDefEight;
struct cs_Dtdef_ dtDefEight;
struct cs_Eldef_ elDefEight;
int stNine;
struct cs_Csdef_ csDefNine;
struct cs_Dtdef_ dtDefNine;
struct cs_Eldef_ elDefNine;
csErrmsg [0] = '\0';
stOne = CS_wktToCsEx (&csDefOne,&dtDefOne,&elDefOne,wktFlvrOgc,wktOne,TRUE);
if (verbose && stOne < 0)
{
printf ("WKT1 processing failed! Status = %d; Reason: %s\n",stOne,csErrmsg);
}
csErrmsg [0] = '\0';
stTwo = CS_wktToCsEx (&csDefTwo,&dtDefTwo,&elDefTwo,wktFlvrNone,wktTwo,FALSE);
if (verbose && stTwo < 0)
{
printf ("WKT2 processing failed! Status = %d; Reason: %s\n",stTwo,csErrmsg);
}
csErrmsg [0] = '\0';
stThree = CS_wktToCsEx (&csDefThree,&dtDefThree,&elDefThree,wktFlvrOgc,wktThree,TRUE);
if (verbose && stThree < 0)
{
printf ("WKT2 processing failed! Status = %d; Reason: %s\n",stThree,csErrmsg);
}
csErrmsg [0] = '\0';
stFour = CS_wktToCsEx (&csDefFour,&dtDefFour,&elDefFour,wktFlvrOgc,wktFour,TRUE);
if (verbose && stFour < 0)
{
printf ("WKT2 processing failed! Status = %d; Reason: %s\n",stFour,csErrmsg);
}
csErrmsg [0] = '\0';
stFive = CS_wktToCsEx (&csDefFive,&dtDefFive,&elDefFive,wktFlvrOgc,wktFive,TRUE);
if (verbose && stFive < 0)
{
printf ("WKT2 processing failed! Status = %d; Reason: %s\n",stFive,csErrmsg);
}
csErrmsg [0] = '\0';
stSix = CS_wktToCsEx (&csDefSix,&dtDefSix,&elDefSix,wktFlvrEsri,wktSix,TRUE);
if (verbose && stSix < 0)
{
printf ("WKT2 processing failed! Status = %d; Reason: %s\n",stSix,csErrmsg);
}
csErrmsg [0] = '\0';
stSeven = CS_wktToCsEx (&csDefSeven,&dtDefSeven,&elDefSeven,wktFlvrEsri,wktSeven,TRUE);
if (verbose && stSeven < 0)
{
printf ("WKT2 processing failed! Status = %d; Reason: %s\n",stSeven,csErrmsg);
}
csErrmsg [0] = '\0';
stEight = CS_wktToCsEx (&csDefEight,&dtDefEight,&elDefEight,wktFlvrEsri,wktEight,TRUE);
if (verbose && stEight < 0)
{
printf ("WKT2 processing failed! Status = %d; Reason: %s\n",stEight,csErrmsg);
}
csErrmsg [0] = '\0';
stNine = CS_wktToCsEx (&csDefNine,&dtDefNine,&elDefNine,wktFlvrEsri,wktNine,TRUE);
if (verbose && stNine < 0)
{
printf ("WKT2 processing failed! Status = %d; Reason: %s\n",stNine,csErrmsg);
}
err_cnt += (stOne != 0);
err_cnt += (stTwo != 0);
err_cnt += (stThree != 0);
err_cnt += (stFour != 0);
err_cnt += (stFive != 0);
err_cnt += (stSix != 0);
err_cnt += (stSeven != 0);
err_cnt += (stEight != 0);
err_cnt += (stNine != 0);
#endif
#ifdef __SKIP__
int st;
unsigned idx;
unsigned gxIdxCnt;
Const struct cs_GxIndex_* gxIdxPtr;
struct cs_GeodeticTransform_ *gxDefPtr;
int err_list [8];
gxIdxCnt = CS_getGxIndexCount ();
for (idx = 0;idx < gxIdxCnt;idx++)
{
gxIdxPtr = CS_getGxIndexEntry (idx);
if (gxIdxPtr == NULL)
{
err_cnt += 1;
}
else
{
gxDefPtr = CS_gxdef (gxIdxPtr->xfrmName);
if (gxDefPtr == NULL)
{
err_cnt += 1;
}
else
{
st = CS_gxchk (gxDefPtr,cs_GXCHK_DATUM | cs_GXCHK_REPORT,err_list,sizeof (err_list) / sizeof (int));
if (st != 0)
{
printf ("CS_gxchk failed on geodetic transformation named %s.\n",gxDefPtr->xfrmName);
err_cnt += 1;
}
CS_free (gxDefPtr);
}
}
}
#endif
#ifdef __SKIP__
int st;
printf ("Running temporary test code module.\n");
struct cs_GeodeticTransform_* gx_def1;
struct cs_GeodeticTransform_* gx_def2;
gx_def1 = CS_gxdef ("NAD27_to_NAD83");
gx_def2 = CS_gxdef ("ABIDJAN-87_to_WGS84");
st = CS_gxupd (gx_def1);
st = CS_gxupd (gx_def2);
gx_def1 = CS_gxdef ("NAD27_to_NAD83");
gx_def2 = CS_gxdef ("ABIDJAN-87_to_WGS84");
#endif
#ifdef __SKIP__
int st;
const char* csOneName = "LL27";
const char* csTwoName = "Tokyo";
struct cs_Csprm_ *csOne;
struct cs_Csprm_ *csTwo;
struct cs_Dtcprm_ *dtcPrm;
double llTmp [3];
printf ("Running temporary test code module.\n");
csOne = CS_csloc (csOneName);
csTwo = CS_csloc (csTwoName);
if (csOne == NULL || csTwo == NULL)
{
return 1;
}
dtcPrm = CS_dtcsu (csOne,csTwo,cs_DTCFLG_DAT_F,cs_DTCFLG_BLK_W);
if (dtcPrm == NULL)
{
return 1;
}
llTmp [0] = -122.1509375;
llTmp [1] = 36.10875;
llTmp [2] = 0.0;
st = CS_dtcvt3D (dtcPrm,llTmp,llTmp);
if (st != 0)
{
err_cnt += 1;
}
CS_dtcls (dtcPrm);
#endif
#ifdef __SKIP__
int st;
int counter;
FILE* tstStrm;
struct cs_Csprm_ *csOne;
struct cs_Csprm_ *csTwo;
struct cs_Dtcprm_ *dtcPrm;
double lngMin = -5.5000;
double lngMax = 10.0000;
double latMin = 41.0000;
double latMax = 52.0000;
double llOne [3];
double llTmp [3];
double llTwo [3];
const char* csOneName = "LL-RGF93";
const char* csTwoName = "NTF.LL";
tstStrm = fopen ("C:\\Tmp\\TestPoints.txt","wt");
if (tstStrm == NULL)
{
return 1;
}
csOne = CS_csloc (csOneName);
csTwo = CS_csloc (csTwoName);
if (csOne == NULL || csTwo == NULL)
{
return 1;
}
dtcPrm = CS_dtcsu (csOne,csTwo,cs_DTCFLG_DAT_F,cs_DTCFLG_BLK_W);
if (dtcPrm == NULL)
{
return 1;
}
for (counter = 0;counter < duration;counter += 1)
{
st = 0;
llOne [0] = CStestRN (lngMin,lngMax);
llOne [1] = CStestRN (latMin,latMax);
llOne [2] = 0.0;
st = CS_cs3ll (csOne,llTmp,llOne);
st |= CS_dtcvt (dtcPrm,llTmp,llTmp);
st |= CS_ll3cs (csTwo,llTwo,llTmp);
fprintf (tstStrm,"%s,%.9f,%.9f,%s,%.9f,%.9f,1.0E-08,1.0E-08\n",csOneName,llOne [0],
llOne [1],
csTwoName,
llTwo [0],
llTwo [1]);
fprintf (tstStrm,"%s,%.9f,%.9f,%s,%.9f,%.9f,1.0E-08,1.0E-08\n",csTwoName,llTwo [0],
llTwo [1],
csOneName,
llOne [0],
llOne [1]);
if (st != 0)
{
err_cnt += 1;
}
}
fclose (tstStrm);
#endif
#ifdef __SKIP__
int st;
const char* dtOneName = "AFGOOYE";
const char* dtTwoName = "WGS84";
struct cs_Datum_ *dtOne;
struct cs_Datum_ *dtTwo;
struct cs_Dtcprm_ *dtcPrm;
double llTmp [3];
printf ("Running temporary test code module.\n");
dtOne = CS_dtloc (dtOneName);
dtTwo = CS_dtloc (dtTwoName);
if (dtOne == NULL || dtTwo == NULL)
{
return 1;
}
dtcPrm = CSdtcsu (dtOne,dtTwo,cs_DTCFLG_DAT_F,cs_DTCFLG_BLK_W);
if (dtcPrm == NULL)
{
return 1;
}
CS_dtcls (dtcPrm);
#endif
return err_cnt;
}