/* * these save EXTERN structure variables, like te vs depth * zeroed out in zero, incremented in tauinc */ /* limit to how many zones we can remember */ #define NZLIM 2000 EXTERN struct t_struc { float testr[NZLIM], volstr[NZLIM], radstr[NZLIM], histr[NZLIM], hiistr[NZLIM], ednstr[NZLIM], o3str[NZLIM], pdenstr[NZLIM] , /* density, gm/cm3 */ DenMass[NZLIM]; /* cooling and heating for each zone */ double coolstr[NZLIM] , heatstr[NZLIM]; } struc;