reset_init Subroutine

public subroutine reset_init(from_file)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
logical, intent(in) :: from_file

Contents

Source Code

reset_init

Source Code

  subroutine reset_init(from_file)
    implicit none
    logical, intent(in) :: from_file

    if(from_file)then
       ginitopt_switch = ginitopt_restart_many
    else
       ginitopt_switch = ginitopt_restart_memory
    endif
  end subroutine reset_init