/*------------------------------------------------------------------------------- * * * * (c) Copyright 1992 - 1995 by G & A Technical Software, Inc., * 28 Research Drive, Hampton, Virginia, 23666. * * All Rights Reserved. No part of this software or publication may be * reproduced, stored in a retrieval system, or transmitted, in any form * or by any means, electronic, mechanical, photocopying, recording, or * otherwise without the prior written permission of G & A Technical * Software, Inc. * * * * This file was generated by S3SofieRet * * File: s3_S3SofieRet.c * User: sofie * Date: Sat Jul 23 15:34:20 2016 * *-------------------------------------------------------------------------------*/ #include #define PNODE 0x504E #define CFUNC 0x4346 #define CSUBR 0x4353 #define DFUNC 0x4446 #define DSUBR 0x4453 #define FFUNC 0x4646 #define FSUBR 0x4653 #define OTHER 0x4F54 #define ENODE 0x4FFF #define UNDEFINED -1 typedef double real; typedef unsigned char byte; typedef unsigned short word; typedef unsigned long dword; typedef float real4; typedef double real8; typedef struct { float r; float i; } complex; typedef struct { double r; double i; } dbl_complex; typedef struct { char *name; int type; void (*function)(); int NDS; } ststr; extern void set_nvar__ ( ); extern void readfasatm2_ ( ); extern void get_sabero_clim__ ( ); extern void check_tvib_qual__ ( ); extern void bend_fit__ ( ); extern void abel_inversion_refraction__ ( ); extern void lp_mass__ ( ); extern void kp_mpath__ ( ); extern void mp_path__ ( ); extern void openfile_ ( ); extern void closefile_ ( ); extern void copy_qmix__ ( ); extern void f_check_equal__ ( ); extern void init_radtran__ ( ); extern void hydro_ ( ); extern void sofie_tblbld__ ( ); extern void dumptran_ ( ); extern void mp_mass__ ( ); extern void set_var__ ( ); extern void mesh_ ( ); extern void copy_qmix2__ ( ); extern void retrieval_options_setup__ ( ); extern void interpolate_pop_ratios__ ( ); extern void save_pop_ratios__ ( ); extern void f_dse__ ( ); extern void setgasname_ ( ); extern void limbcalc_ ( ); extern void readconret_nlte__ ( ); extern void setuptvmodels_co2__ ( ); extern void setco2tvmdprm_ ( ); extern void inittvcalc_co2__ ( ); extern void p_tblbld__ ( ); extern void p_tvtblbld_co2__ ( ); extern void check_pmc_date__ ( ); extern void copy_profile__ ( ); extern void sofie_find_ice__ ( ); extern void mp_inita__ ( ); extern void kp_inita__ ( ); extern void p_inita__ ( ); extern void lp_parmcset__ ( ); extern void read_l1_event( ); extern void check_products( ); extern void save_aero_extinc( ); extern void make_dv_extinction2( ); extern void get_control_file( ); extern void load_fovdata( ); extern void load_fov_offsets( ); extern void derivative( ); extern void get_iblk_ids( ); extern void create_sim_signal( ); extern void calc_limb_refraction( ); extern void calc_sim_exo( ); extern void decide_to_process( ); extern void get_waccmc2_climatology( ); extern void get_msis_data( ); extern void get_meas_refraction_angle( ); extern void simulate_refraction_angle( ); extern void create_merged_refrac( ); extern void extend_tran_profile( ); extern void fov_atm_convolution( ); extern void insert_profile_db( ); extern void create_z_grid( ); extern void merge_into_clim( ); extern void get_l1_zpt( ); extern void get_l1_za( ); extern void sofie_lbl_model( ); extern void sofie_mega_model( ); extern void make_db_connections( ); extern void get_level1_data_replace( ); extern void smooth_profile( ); extern void kill_db_connections( ); extern void sofie_ice_t( ); extern void insert_l2_summary( ); extern void init_aerosols( ); extern void adjust_l1_alts( ); extern void apply_ncep_offset( ); ststr user_routines[] = { "S3SofieRet" ,PNODE, (void (*)())"S3SofieRet.pct", 0, "PRE_EVENT_LOOP",PNODE, (void (*)())"./S3/sofie_pre_event_loop.pct", 0, "EVENT_LOOP" ,PNODE, (void (*)())"./S3/sofie_event_loop.pct", 0, "AUX_DATA_OUTPUT",PNODE, (void (*)())"./S3/sofie_output_auxillary.pct", 0, "CORRECT_PMC" ,PNODE, (void (*)())"./S3/sofie_correct_pmc.pct", 0, "CHANNEL_LOOP" ,PNODE, (void (*)())"./S3/sofie_channel_loop.pct", 0, "SETUP_FOR_CHANNEL",PNODE, (void (*)())"./S3/sofie_setup_for_channel.pct", 0, "setup_nltetk" ,PNODE, (void (*)())"./S3/setup_nltetk.pct", 1, "READ_TABLES" ,PNODE, (void (*)())"./S3/read_tables.pct", 0, "ABEL_RETRIEVAL",PNODE, (void (*)())"./S3/sofie_abel_retrieval.pct", 0, "PATH" ,PNODE, (void (*)())"./S3/sofie_path.pct", 0, "ONION_PEEL" ,PNODE, (void (*)())"./S3/sofie_onion_peel.pct", 0, "nlteco2init" ,PNODE, (void (*)())"./S3/nlteco2init.pct", 0, "FORWARD" ,PNODE, (void (*)())"./S3/sofie_forward.pct", 0, "PATH_MASTER" ,PNODE, (void (*)())"./S3/sofie_path_master.pct", 0, "POST_RETRIEVAL",PNODE, (void (*)())"./S3/sofie_post_retrieval.pct", 0, "CALC_SIG" ,PNODE, (void (*)())"./S3/sofie_calc_sig.pct", 0, "POST_EVENT_LOOP",PNODE, (void (*)())"./S3/sofie_post_event_loop.pct", 0, "set_nvar" ,FSUBR, (void (*)())set_nvar__ , 2, "readfasatm2" ,FSUBR, (void (*)())readfasatm2_ , 20, "get_sabero_clim",FSUBR, (void (*)())get_sabero_clim__ , 10, "check_tvib_qual",FSUBR, (void (*)())check_tvib_qual__ , 9, "bend_fit" ,FSUBR, (void (*)())bend_fit__ , 9, "abel_inversion_refraction",FSUBR, (void (*)())abel_inversion_refraction__ , 20, "lp_mass" ,FSUBR, (void (*)())lp_mass__ , 33, "kp_mpath" ,FSUBR, (void (*)())kp_mpath__ , 23, "mp_path" ,FSUBR, (void (*)())mp_path__ , 24, "openfile" ,FSUBR, (void (*)())openfile_ , 3, "closefile" ,FSUBR, (void (*)())closefile_ , 1, "copy_qmix" ,FSUBR, (void (*)())copy_qmix__ , 11, "f_check_equal" ,FSUBR, (void (*)())f_check_equal__ , 3, "init_radtran" ,FSUBR, (void (*)())init_radtran__ , -1, "hydro" ,FSUBR, (void (*)())hydro_ , 9, "sofie_tblbld" ,FSUBR, (void (*)())sofie_tblbld__ , 16, "dumptran" ,FSUBR, (void (*)())dumptran_ , -1, "mp_mass" ,FSUBR, (void (*)())mp_mass__ , 34, "set_var" ,FSUBR, (void (*)())set_var__ , 13, "mesh" ,FSUBR, (void (*)())mesh_ , 34, "copy_qmix2" ,FSUBR, (void (*)())copy_qmix2__ , 11, "retrieval_options_setup",FSUBR, (void (*)())retrieval_options_setup__ , 20, "interpolate_pop_ratios",FSUBR, (void (*)())interpolate_pop_ratios__ , 11, "save_pop_ratios",FSUBR, (void (*)())save_pop_ratios__ , 14, "f_dse" ,FSUBR, (void (*)())f_dse__ , 3, "setgasname" ,FSUBR, (void (*)())setgasname_ , 9, "limbcalc" ,FSUBR, (void (*)())limbcalc_ , 59, "readconret_nlte",FSUBR, (void (*)())readconret_nlte__ , 20, "setuptvmodels_co2",FSUBR, (void (*)())setuptvmodels_co2__ , 36, "setco2tvmdprm" ,FSUBR, (void (*)())setco2tvmdprm_ , 13, "inittvcalc_co2",FSUBR, (void (*)())inittvcalc_co2__ , 31, "p_tblbld" ,FSUBR, (void (*)())p_tblbld__ , 16, "p_tvtblbld_co2",FSUBR, (void (*)())p_tvtblbld_co2__ , 11, "check_pmc_date",FSUBR, (void (*)())check_pmc_date__ , 3, "copy_profile" ,FSUBR, (void (*)())copy_profile__ , 9, "sofie_find_ice",FSUBR, (void (*)())sofie_find_ice__ , 11, "mp_inita" ,FSUBR, (void (*)())mp_inita__ , 11, "kp_inita" ,FSUBR, (void (*)())kp_inita__ , 3, "p_inita" ,FSUBR, (void (*)())p_inita__ , 12, "lp_parmcset" ,FSUBR, (void (*)())lp_parmcset__ , 0, "read_l1_event" ,CSUBR, (void (*)())read_l1_event , 14, "check_products",CSUBR, (void (*)())check_products , 4, "save_aero_extinc",CSUBR, (void (*)())save_aero_extinc, 7, "make_dv_extinction2",CSUBR, (void (*)())make_dv_extinction2, 40, "get_control_file",CSUBR, (void (*)())get_control_file, 4, "load_fovdata" ,CSUBR, (void (*)())load_fovdata , 2, "load_fov_offsets",CSUBR, (void (*)())load_fov_offsets, -1, "derivative" ,CSUBR, (void (*)())derivative , 30, "get_iblk_ids" ,CSUBR, (void (*)())get_iblk_ids , 5, "create_sim_signal",CSUBR, (void (*)())create_sim_signal, 9, "calc_limb_refraction",CSUBR, (void (*)())calc_limb_refraction, 6, "calc_sim_exo" ,CSUBR, (void (*)())calc_sim_exo , 5, "decide_to_process",CSUBR, (void (*)())decide_to_process, 6, "get_waccmc2_climatology",CSUBR, (void (*)())get_waccmc2_climatology, 8, "get_msis_data" ,CSUBR, (void (*)())get_msis_data , 12, "get_meas_refraction_angle",CSUBR, (void (*)())get_meas_refraction_angle, 9, "simulate_refraction_angle",CSUBR, (void (*)())simulate_refraction_angle, 11, "create_merged_refrac",CSUBR, (void (*)())create_merged_refrac, 18, "extend_tran_profile",CSUBR, (void (*)())extend_tran_profile, 12, "fov_atm_convolution",CSUBR, (void (*)())fov_atm_convolution, 14, "insert_profile_db",CSUBR, (void (*)())insert_profile_db, 30, "create_z_grid" ,CSUBR, (void (*)())create_z_grid , 6, "merge_into_clim",CSUBR, (void (*)())merge_into_clim , 26, "get_l1_zpt" ,CSUBR, (void (*)())get_l1_zpt , 9, "get_l1_za" ,CSUBR, (void (*)())get_l1_za , 6, "sofie_lbl_model",CSUBR, (void (*)())sofie_lbl_model , 29, "sofie_mega_model",CSUBR, (void (*)())sofie_mega_model, 35, "make_db_connections",CSUBR, (void (*)())make_db_connections, 1, "get_level1_data_replace",CSUBR, (void (*)())get_level1_data_replace, 14, "smooth_profile",CSUBR, (void (*)())smooth_profile , 18, "kill_db_connections",CSUBR, (void (*)())kill_db_connections, 0, "sofie_ice_t" ,CSUBR, (void (*)())sofie_ice_t , -1, "insert_l2_summary",CSUBR, (void (*)())insert_l2_summary, 6, "init_aerosols" ,CSUBR, (void (*)())init_aerosols , 0, "adjust_l1_alts",CSUBR, (void (*)())adjust_l1_alts , 7, "apply_ncep_offset",CSUBR, (void (*)())apply_ncep_offset, -1 }; int s3_n_user_routines() { int temp; temp = sizeof(user_routines)/sizeof(ststr); return temp; } int main(int argc, char **argv) { extern int s3_static_main(int argc, char **argv); return(s3_static_main(argc,argv)); }