void  tpi_tppf (void);

# define     char *fname = argv[1]         /* Archive file name   */
# define     char *sname = argv[2]         /* Specimen's name     */
# define     char *tmp_f = argv[3]         /* Temporary file name */

HEADL        head;                   /* headline data       */

ZA_FIL    hdr;
ZA_SPEC    spec;
  struct item_GGC   gendata;                    /* general data */
  struct item_SGC   specdata;                   /* specimen's data */
  struct calc_GGC   calcdata;                   /* calculated data */

FILE        *df;                    /* output   */

RFCt0        tpp;            /* TPP data */
RFCf0   fail;           /* Failue data */
RFCr0   raindata;       /* 'rainflow' data */
char*    fail_name [ IDSZ ] = "RFCf0",
        rain_name [ IDSZ ] = "RFCr0",
        tpp_name  [ IDSZ ] = "RFCt0";

int    main( int argc , char* argv[]  )
//int       argc;
//char    **argv;
{
  short item_sz;
  int   fd;
  int           i;
  char          *s;
  struct ifl    itf [] =
       {{"GGC", 0}, {"SGC", 0}, {"HEADL", 0} };
  double range;
  int flage = 0, sort_flage;
  char  string[256];
  int   term;
  float x;