6 integer ib, ibk, na, iflgs, ic_type, ic_counter
25 g(n1,ib) = 1.0 / (r1 + 1.0e-20)
35 if (ic_type .eq. vcapacitor1)
then
36 vinitial = value_init(ic_counter)
39 ecapsource = ecapsource + 0.5*
c(n1,ib)*vinitial*vinitial
subroutine setup_rcground(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