register_derived Subroutine

private subroutine register_derived(n, kind)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: n
integer, intent(in) :: kind

Called by

proc~~register_derived~~CalledByGraph proc~register_derived register_derived proc~initfielddump initfielddump proc~initfielddump->proc~register_derived program~udales uDALES program~udales->proc~initfielddump

Source Code

  subroutine register_derived(n, kind)
    implicit none
    integer, intent(in) :: n, kind
    nderived = nderived + 1
    derived_kind(n) = kind
    derived_slot(n) = nderived
  end subroutine register_derived