00001
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
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
00057
00058
00059
00060
00061
00062
00063 exit_session(OK);
00064 return(0);
00065 }