w90chk2chk Program

Uses

  • program~~w90chk2chk~~UsesGraph program~w90chk2chk w90chk2chk module~w90_constants w90_constants program~w90chk2chk->module~w90_constants module~w90_conv w90_conv program~w90chk2chk->module~w90_conv module~w90_conv->module~w90_constants

Program to convert checkpoint files from formatted to unformmated and vice versa - useful for switching between computers


Calls

program~~w90chk2chk~~CallsGraph program~w90chk2chk w90chk2chk proc~conv_get_seedname~2 conv_get_seedname program~w90chk2chk->proc~conv_get_seedname~2 proc~conv_read_chkpt conv_read_chkpt program~w90chk2chk->proc~conv_read_chkpt proc~conv_read_chkpt_fmt conv_read_chkpt_fmt program~w90chk2chk->proc~conv_read_chkpt_fmt proc~conv_write_chkpt conv_write_chkpt program~w90chk2chk->proc~conv_write_chkpt proc~conv_write_chkpt_fmt conv_write_chkpt_fmt program~w90chk2chk->proc~conv_write_chkpt_fmt proc~io_error~2 io_error proc~conv_get_seedname~2->proc~io_error~2 proc~print_usage~2 print_usage proc~conv_get_seedname~2->proc~print_usage~2 proc~conv_read_chkpt->proc~io_error~2 proc~conv_read_chkpt_fmt->proc~io_error~2

Variables

Type Attributes Name Initial
integer :: stdout
character(len=20) :: checkpoint
character(len=50) :: seedname

Source Code

program w90chk2chk
  !! Program to convert checkpoint files from formatted to unformmated
  !! and vice versa - useful for switching between computers
  use w90_constants, only: dp
  use w90_conv

  implicit none

  ! Export mode:
  !  TRUE:  create formatted .chk.fmt from unformatted .chk ('-export')
  !  FALSE: create unformatted .chk from formatted .chk.fmt ('-import')
  integer :: stdout
  !logical :: file_found
  !integer :: file_unit
  character(len=20) :: checkpoint
  character(len=50) :: seedname
  !integer :: num_nodes, ierr

  open (newunit=stdout, file='w90chk2chk.log')

  call conv_get_seedname(stdout, seedname)

  if (export_flag .eqv. .true.) then
    call conv_read_chkpt(checkpoint, stdout, seedname)
    call conv_write_chkpt_fmt(checkpoint, stdout, seedname)
  else
    call conv_read_chkpt_fmt(checkpoint, stdout, seedname)
    call conv_write_chkpt(checkpoint, stdout, seedname)
  end if

  close (unit=stdout)

end program w90chk2chk