output_allocate Subroutine

  1. output.f95
  2. output
  3. output_allocate

public subroutine output_allocate(mb, mch)

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: mb
integer, intent(in) :: mch

Called by

proc~~output_allocate~~CalledByGraph proc~output_allocate output_allocate proc~output_initialise output_initialise proc~output_initialise->proc~output_allocate proc~initialise initialise proc~initialise->proc~output_initialise program~swim swim program~swim->proc~initialise

Contents

Source Code

output_allocate

Source Code

  subroutine output_allocate(mb, mch)
    integer, intent(in) :: mb, mch
    allocate(sbpy(mb))
    allocate(strch(18, mch))
    allocate(stsub(30, mb))
    allocate(syrch(18, mch))
    allocate(sysub(30, mb))
    sbpy = 0.
    strch = 0.
    stsub = 0.
    syrch = 0.
    sysub = 0.
  end subroutine output_allocate