save_input_file Subroutine

public subroutine save_input_file(file)

Arguments

Type IntentOptional Attributes Name
character(len=*) :: file

Calls

proc~~save_input_file~~CallsGraph proc~save_input_file save_input_file proc~print_input_list print_input_list proc~save_input_file->proc~print_input_list

Called by

proc~~save_input_file~~CalledByGraph proc~save_input_file save_input_file interface~save_input save_input interface~save_input->proc~save_input_file

Source Code

  subroutine save_input_file(file)
    character(len=*)   :: file
    if(IOinput)then
       call print_input_list(trim(file))
    else
       call print_input_list(trim(file))
       write(*,*)"input file can not be found. Dumped a *default* version in: used."//trim(file)
       stop
    endif
  end subroutine save_input_file