Document title: Program SAMFLUX.FOR to select a few of the SAMPEX 30-second flux variables from the much larger list of 140 variables Project: SAMPEX NDADS Datatype: SAMPEX_30S_FLUX_ASCII NDADS EID: SELECT_FEW Super-EID: SOFTWARE There may be other documents also identified by this super-EID. NDADS filename: SAMFLUX.FOR TRF entry: b46770.for in NSSDC's controlled digital document library, Sept. 1998. Document text follows: ---------------------- PROGRAM SAMFLUX C To read the 30s SAMPEX FLUX files and create another with a few C desired variables only (out of 134 variables. Change the WRITE and C its FORMAT lines to your preference. C Assign for050 to input file and for051 for output. C The energy/species ranges below are not friendly; the Level-2 C data descriptions document from U.MD must be consulted for these. Real*8 lopri_flux, lopri_sigma, m12_flux, m12_sigma, idot_r4, *local_time_ecd_r4,l_shell_r4,local_time_equa_r4,inv_lat_r4, *loss_cone1_r4,loss_cone2_r4,mirror_r4_1,mirror_r4_2,mirror_r4_3 Integer hilt_off,hilt_ifc,hilt_sig,hilt_he1_sat,hilt_he2_sat, *hilt_hz1_sat,hilt_hz2_sat,pet_off,pet_ifc,pet_sig,pet_p1hi_sat, *orbit_i4,bl_igrf_ver_i2, *sampex_time_i4,SAA_i4,ctrl_mode_i2 character*24 iso_time_c24 character*18 iso Do J= 1,46 Read(50,100) 100 Format (X) End Do ! We have just stripped the 46 header lines Do 30 I=1,2900 ! There are about 2880 reecords per day Read(50,10) sampex_time_i4, *iso_time_c24,iso,orbit_i4,mdf_ver_i2, *bl_igrf_ver_i2,mag_eph_ver_i2,geo_pos_r4_1,geo_pos_r4_2, *geo_pos_r4_3, *geo_alt_r4,gei_pos_r4_1,gei_pos_r4_2,gei_pos_r4_3, *gei_vel_r4_1, *gei_vel_r4_2,gei_vel_r4_3,dir_cos_r4_1,dir_cos_r4_2, *dir_cos_r4_3, *dir_cos_r4_4,dir_cos_r4_5,dir_cos_r4_6,dir_cos_r4_7, *dir_cos_r4_8, *dir_cos_r4_9,exo_temp_r4,drag_coef_r4,geomag_index_r4, *ecc_dipole_r4_1, *ecc_dipole_r4_2,ecc_dipole_r4_3,local_time_ecd_r4, *l_shell_r4, *field_mag_r4,local_time_equa_r4,inv_lat_r4,pitch_r4, *loss_cone1_r4, *loss_cone2_r4,b_vect_cart_r4_1,b_vect_cart_r4_2, *b_vect_cart_r4_3, *b_vect_sphe_r4_1,b_vect_sphe_r4_2,b_vect_sphe_r4_3, *dipole_r4_1, *dipole_r4_2,dipole_r4_3,dipole_displ_r4_1, *dipole_displ_r4_2, *dipole_displ_r4_3,b_decl_r4,b_dip_r4,b_rad_r4,b_lat_r4, *mirror_r4_1, *mirror_r4_2,mirror_r4_3,b_equa_r4_1,b_equa_r4_2, *b_equa_r4_3, *b_equa_r4_4, b_n100_r4_1,b_n100_r4_2,b_n100_r4_3, *b_n100_r4_4, *b_s100_r4_1,b_s100_r4_2,b_s100_r4_3,b_s100_r4_4, *cuttoff_r4,SAA_i4, *zenith_r4,azimuth_r4,ctrl_mode_i2,idot_r4, *ssd_flux,lopri_flux,hipri_flux,ssd_sigma,lopri_sigma, *hipri_sigma, *leica_off,leica_ifc,leica_bhv,leica_sig, *leica_ssd_sat,leica_mcp_sat,he1_flux,he2_flux,hz1_flux, *hz2_flux,he1_sigma,he2_sigma,hz1_sigma,hz2_sigma, *hilt_off,hilt_ifc,hilt_sig,hilt_he1_sat, *hilt_he2_sat,hilt_hz1_sat,hilt_hz2_sat,m12_flux,z2_flux, *hizr1_flux,hizr2_flux,hizr3_flux,hizr4_flux,hizr5_flux, *hizr6_flux,m12_sigma,z2_sigma,hizr1_sigma,hizr2_sigma, *hizr3_sigma,hizr4_sigma,hizr5_sigma,hizr6_sigma, *mast_off,mast_ifc,mast_sig,mast_adc_sat,elo_flux, *ehi_flux,plo_flux,elo_sigma,ehi_sigma,plo_sigma, *pet_off,pet_ifc,pet_sig,pet_p1hi_sat write(51,52) iso, elo_flux,plo_flux 52 Format(x,A18,x,2(E8.2,x)) 30 continue 10 format(I10,X,A24,X, ! sampex & iso times 1 A18,X, ! iso time subset 1 I8,X, ! orbit # 1 3(I3,X), ! version numbers 1 4(1PE11.3,X), ! geomag. position, alt. 1 15(1PE11.3,X), ! GEI pos., vel., dir. cos. 1 3(1PE11.3,X), ! exo. temp., drag, index 1 4(1PE11.3,X), ! eccentric dipole, ECD time 1 3(1PE11.3,X), ! L shell, field mag., time Equ. 1 4(1PE11.3,X), ! Inv. Lat, pitch, loss cone 1&2 1 6(1PE11.3,X), ! Mag. Field vector Cart./Spher. 1 6(1PE11.3,X), ! Dipole mom., Dipole displ. vec 1 4(1PE11.3,X), ! declination, dip, rad., alt. 1 15(1PE11.3,X), ! mirror pt., B @ equa, N&S 100 1 1PE11.3,X,I3,X, ! cut-off, SAA flag (PS) 1 2(1PE11.3,X), ! zenith, azimuth angles 1 I2,X,1PE11.3,X, ! ctrl. mode, inertial dot-prod. 1 3(1PE11.3,X), ! LICA fluxes (3) 1 3(1PE11.3,X), ! LICA sigmas (3) 1 6(I3,X), ! LICA flags (6) 1 4(1PE11.3,X), ! HILT fluxes (4) 1 4(1PE11.3,X), ! HILT sigmas (4) 1 7(I3,X), ! HILT data quality flags (7) 1 8(1PE11.3,X), ! MAST fluxes (8) 1 8(1PE11.3,X), ! MAST sigmas (8) 1 4(I3,X), ! MAST data quality flags (4) 1 3(1PE11.3,X), ! PET fluxes (3) 1 3(1PE11.3,X), ! PET sigmas (3) 1 4(I3,X)) ! PET data quality flags (4) stop end