var_set_energy Function

public function var_set_energy() result(iw)

Set energy variable

Arguments

None

Return Value integer


Called by

proc~~var_set_energy~~CalledByGraph proc~var_set_energy var_set_energy proc~phys_init phys_init proc~phys_init->proc~var_set_energy proc~phys_init~2 phys_init proc~phys_init~2->proc~var_set_energy proc~phys_init~3 phys_init proc~phys_init~3->proc~var_set_energy proc~phys_init~4 phys_init proc~phys_init~4->proc~var_set_energy proc~phys_activate phys_activate proc~phys_activate->proc~phys_init proc~phys_activate~2 phys_activate proc~phys_activate~2->proc~phys_init~2 proc~phys_activate~3 phys_activate proc~phys_activate~3->proc~phys_init~3 proc~phys_activate~4 phys_activate proc~phys_activate~4->proc~phys_init~4

Source Code

  function var_set_energy() result(iw)
    integer :: iw

    nwflux              = nwflux + 1
    nwfluxbc            = nwfluxbc + 1
    nw                  = nw + 1
    iw_e                = nwflux
    iw                  = nwflux
    cons_wnames(nwflux) = 'e'
    prim_wnames(nwflux) = 'p'
    
  end function var_set_energy