set_store_size Subroutine

public subroutine set_store_size(size)

Arguments

Type IntentOptional Attributes Name
integer :: size

Calls

proc~~set_store_size~~CallsGraph proc~set_store_size set_store_size interface~txtfy txtfy proc~set_store_size->interface~txtfy

Source Code

  subroutine set_store_size(size)
    integer :: size
    store_size=size
    write(*,"(A)")"store size ="//trim(txtfy(size))//"Kb"
  end subroutine set_store_size