3 c Subroutine created to clear all common arrays prior to run
4 c to prevent potential
data from being used from prior run
6 cc include the files with the various keywords and
integer flags.
10 c include the files specifying the array dimensions and the
common blocks.
44 num_tablem_vals(i) = 0
51 do i=1,max_volt_source
53 num_voltf_parms(i) = 0
56 do i=1,max_volt_func_parms
57 do j=1,max_volt_source
58 voltf_parms(i,j) = 0.0
69 do i=1,max_curr_source
71 num_currf_parms(i) = 0
74 do i=1,max_curr_func_parms
75 do j=1,max_curr_source
76 currf_parms(i,j) = 0.0
88 do i=1,max_tablem_vals
90 tablem_vals(i,j) = 0.0
125 uservars(i,j,k) = 0.0
144 do j=1,max_volt_source
150 do j=1,max_curr_source
162 do j=1,max_transformer
167 do i=1,max_volt_source
168 lastvoltf_time(i) = 0.0
171 do i=1,max_curr_source
172 lastcurrf_time(i) = 0.0
176 lasttabm_time(i) = 0.0
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line c