print_input_list Subroutine

public subroutine print_input_list(file, list)

Arguments

Type IntentOptional Attributes Name
character(len=*), optional :: file
type(input_list), optional :: list

Called by

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

Source Code

  subroutine print_input_list(file,list)
    character(len=*),optional :: file
    type(input_list),optional :: list
    integer                   :: i,counter,size
    type(input_node),pointer  :: c
    if(present(list))then
       c => list%root%next
    else
       c => default_list%root%next
    endif
    counter = 0 
    file_status='replace'
    size=default_list%size
    if(present(list))size=list%size
    if(size>0)then
       do
          if(.not.associated(c))exit
          counter=counter+1
          if(present(file))then
             call print_input_node(c,file)
          else
             call print_input_node(c)
          endif
          c => c%next
       enddo
    else
       write(*,*)"input list: empty"
       return
    endif
    file_status='replace'
    c => null()
  end subroutine print_input_list