w90chk2chk Program

  1. w90chk2chk.F90
  2. w90chk2chk

Uses

  • program~~w90chk2chk~~UsesGraph program~w90chk2chk w90chk2chk module~w90_conv w90_conv program~w90chk2chk->module~w90_conv module~w90_constants w90_constants program~w90chk2chk->module~w90_constants module~w90_comms w90_comms program~w90chk2chk->module~w90_comms module~w90_io w90_io program~w90chk2chk->module~w90_io module~w90_conv->module~w90_constants module~w90_conv->module~w90_io module~w90_comms->module~w90_constants module~w90_comms->module~w90_io module~w90_io->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 conv_get_seedname program~w90chk2chk->proc~conv_get_seedname proc~conv_write_chkpt conv_write_chkpt program~w90chk2chk->proc~conv_write_chkpt proc~conv_read_chkpt_fmt conv_read_chkpt_fmt program~w90chk2chk->proc~conv_read_chkpt_fmt proc~comms_end comms_end program~w90chk2chk->proc~comms_end proc~conv_write_chkpt_fmt conv_write_chkpt_fmt program~w90chk2chk->proc~conv_write_chkpt_fmt proc~io_error io_error program~w90chk2chk->proc~io_error proc~comms_setup comms_setup program~w90chk2chk->proc~comms_setup proc~conv_read_chkpt conv_read_chkpt program~w90chk2chk->proc~conv_read_chkpt proc~io_file_unit io_file_unit program~w90chk2chk->proc~io_file_unit proc~conv_get_seedname->proc~io_error proc~print_usage print_usage proc~conv_get_seedname->proc~print_usage proc~conv_write_chkpt->proc~io_file_unit proc~conv_read_chkpt_fmt->proc~io_error proc~conv_read_chkpt_fmt->proc~io_file_unit proc~conv_write_chkpt_fmt->proc~io_file_unit proc~comms_setup_vars comms_setup_vars proc~comms_setup->proc~comms_setup_vars proc~conv_read_chkpt->proc~io_error proc~conv_read_chkpt->proc~io_file_unit

Contents

Variables

Source Code

w90chk2chk

Variables

Type AttributesNameInitial
logical :: file_found
integer :: file_unit

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_io, only: io_file_unit, stdout, io_error, seedname
  use w90_conv
  use w90_comms, only: num_nodes, comms_setup, comms_end
  implicit none

  ! Export mode:
  !  TRUE:  create formatted .chk.fmt from unformatted .chk ('-export')
  !  FALSE: create unformatted .chk from formatted .chk.fmt ('-import')
  logical :: file_found
  integer :: file_unit

  call comms_setup

  stdout = io_file_unit()
  open (unit=stdout, file='w90chk2chk.log')

  if (num_nodes /= 1) then
    call io_error('w90chk2chk can only be used in serial...')
  endif

  call conv_get_seedname

  if (export_flag .eqv. .true.) then
    call conv_read_chkpt()
    call conv_write_chkpt_fmt()
  else
    call conv_read_chkpt_fmt()
    call conv_write_chkpt()
  end if

!  close(unit=stdout,status='delete')
  close (unit=stdout)

  call comms_end

end program w90chk2chk