6 integer ib, ibk, na, iflgs, ic_type, ic_counter
45 if (ic_type .eq. cinductor)
then
46 cinitial = value_init(ic_counter)
48 zirn(n1,ib) = cinitial
49 eindsource = eindsource + 0.5*zlr(n1,ib)*cinitial*cinitial
subroutine setup_rlseries(ib, ibk, na, iflgs, ic_type, ic_counter)
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