version 1.13, 2013/01/24 06:47:00
|
version 1.14, 2013/04/28 08:05:21
|
|
|
#include <math.h> | #include <math.h> |
#include <assert.h> | #include <assert.h> |
#include <fftw3.h> | #include <fftw3.h> |
//#include "fahlman_ulrych_C99.h" |
|
//#include "detrend_C99.h" |
|
//#include "detrendcode.c" |
|
//#include "gapfillcode.c" |
|
| |
#include "jsoc_main.h" | #include "jsoc_main.h" |
#include "fitsio.h" | #include "fitsio.h" |
|
|
#define kNOTSPECIFIED "not specified" | #define kNOTSPECIFIED "not specified" |
| |
char *module_name = "jtsfiddle"; | char *module_name = "jtsfiddle"; |
|
char *cvsinfo_jtsfiddle = "cvsinfo: $Header$"; |
| |
/* Command line arguments: */ | /* Command line arguments: */ |
ModuleArgs_t module_args[] = | ModuleArgs_t module_args[] = |
Line 94 int cfahlman_ulrych(int n, _Complex floa |
|
Line 91 int cfahlman_ulrych(int n, _Complex floa |
|
int minpercentage, int maxorder, int iterations, | int minpercentage, int maxorder, int iterations, |
int padends, int *order, _Complex float *ar_coeff); | int padends, int *order, _Complex float *ar_coeff); |
| |
char *getdetrendversion(void); |
//char *getdetrendversion(void); |
char *getgapfillversion(void); |
//char *getgapfillversion(void); |
| |
/* global variables holding the values of the command line variables. */ | /* global variables holding the values of the command line variables. */ |
static char *logfile, *gapfile, *sectionfile; | static char *logfile, *gapfile, *sectionfile; |
|
|
char *outchecklist[] = {"T_START", "QUALITY", "LMIN", "LMAX", "NDT"}; | char *outchecklist[] = {"T_START", "QUALITY", "LMIN", "LMAX", "NDT"}; |
int is, ishold, itest, mflip; | int is, ishold, itest, mflip; |
char *holdseries=""; | char *holdseries=""; |
|
/* |
char *cvsinfo; | char *cvsinfo; |
cvsinfo = (char *)malloc(1024); | cvsinfo = (char *)malloc(1024); |
strcpy(cvsinfo,"$Header$"); | strcpy(cvsinfo,"$Header$"); |
|
|
strcat(cvsinfo,getdetrendversion()); | strcat(cvsinfo,getdetrendversion()); |
strcat(cvsinfo,"\n"); | strcat(cvsinfo,"\n"); |
strcat(cvsinfo,getgapfillversion()); | strcat(cvsinfo,getgapfillversion()); |
|
*/ |
for (is=0;is<6;is++) | for (is=0;is<6;is++) |
{ | { |
| |
|
|
{ | { |
ishold=is; | ishold=is; |
holdseries=strdup(histlink->info->target_series); | holdseries=strdup(histlink->info->target_series); |
histrecnumarr[is]=set_history(histlink, cvsinfo); |
histrecnumarr[is]=set_history(histlink); |
if (histrecnumarr[is] < 0) | if (histrecnumarr[is] < 0) |
{ | { |
fprintf(stderr, "ERROR: problem creating record in history dataseries for output dataseries %s\n", serieslist[is]); | fprintf(stderr, "ERROR: problem creating record in history dataseries for output dataseries %s\n", serieslist[is]); |