Main Page | Modules | Data Structures | File List | Data Fields | Globals | Related Pages

template/source/snifs.c

Go to the documentation of this file.
00001 /* === Doxygen Comment ======================================= */
00013 /* =========================================================== */
00014 
00015 #include <IFU_io.h>
00016 #include <IFU_math.h>
00017 #include <snifs.h>
00018 
00019 int print_snifs();
00020 
00021 int main(int argc, char **argv)
00022 {
00023   SPECTRUM spec;
00024   TIGERfile cube;
00025 
00026   char **argval, **arglabel;
00027   char inname[lg_name+1];
00028   
00029   set_arglist("-in null");
00030 
00031   init_snifs("$Name:  $","$Revision: 1.7 $");
00032   init_session(argv,argc,&arglabel,&argval);
00033 
00034   print_msg("Argval[0]: %s",argval[0]);
00035   if (is_set(argval[0])) {
00036     get_argval(0,"%s",inname);
00037     print_msg("Input option: '%s'",inname);
00038   }
00039 
00040   //  print_snifs();
00041 
00042   cube.step = 1;
00043   print_msg("Step (before) = %f",cube.step);
00044   print_msg("Setting cube version...");
00045   strcpy(cube.version,"v1.0");
00046   print_msg("Step (after) = %f",cube.step);  
00047 
00048   print_msg("Creating cube...");
00049   if (create_tiger_frame(&cube,"toto_cube",-1,-1,1,FLOAT,
00050                          "toto","Snurp rules!",NULL) < 0) 
00051     exit_session(ERR_CREAT);
00052   print_msg("Step (after 2) = %f",cube.step);  
00053   write_file_class(&cube, DEBUG_FILE); 
00054   close_tiger_frame(&cube);
00055 
00056 //  if (create_spec(&spec, "toto_spec", 1, 0, 1., FLOAT, 
00057 //                  "test spectrum", "") < 0)
00058 //    exit_session(ERR_CREAT);
00059 //  WR_spec(&spec,0,0);
00060 //  write_file_class(&spec, DEBUG_FILE); 
00061 //  close_spec(&spec);
00062 
00063   exit_session(OK);
00064   return(0);
00065 }

Generated on Wed Oct 26 23:59:39 2005 for Snifs by doxygen 1.3.5