w90spn2spn Program

  1. w90spn2spn.F90
  2. w90spn2spn

Uses

  • program~~w90spn2spn~~UsesGraph program~w90spn2spn w90spn2spn module~w90_conv_spn w90_conv_spn program~w90spn2spn->module~w90_conv_spn module~w90_constants w90_constants program~w90spn2spn->module~w90_constants module~w90_comms w90_comms program~w90spn2spn->module~w90_comms module~w90_io w90_io program~w90spn2spn->module~w90_io module~w90_conv_spn->module~w90_constants module~w90_conv_spn->module~w90_io module~w90_comms->module~w90_constants module~w90_comms->module~w90_io module~w90_io->module~w90_constants

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


Calls

program~~w90spn2spn~~CallsGraph program~w90spn2spn w90spn2spn proc~conv_get_seedname~2 conv_get_seedname program~w90spn2spn->proc~conv_get_seedname~2 proc~comms_end comms_end program~w90spn2spn->proc~comms_end proc~conv_write_spn_fmt conv_write_spn_fmt program~w90spn2spn->proc~conv_write_spn_fmt proc~conv_read_spn conv_read_spn program~w90spn2spn->proc~conv_read_spn proc~io_error io_error program~w90spn2spn->proc~io_error proc~comms_setup comms_setup program~w90spn2spn->proc~comms_setup proc~conv_read_spn_fmt conv_read_spn_fmt program~w90spn2spn->proc~conv_read_spn_fmt proc~conv_write_spn conv_write_spn program~w90spn2spn->proc~conv_write_spn proc~io_file_unit io_file_unit program~w90spn2spn->proc~io_file_unit proc~conv_get_seedname~2->proc~io_error proc~print_usage~2 print_usage proc~conv_get_seedname~2->proc~print_usage~2 proc~conv_write_spn_fmt->proc~io_file_unit proc~conv_read_spn->proc~io_file_unit proc~comms_setup_vars comms_setup_vars proc~comms_setup->proc~comms_setup_vars proc~conv_read_spn_fmt->proc~io_file_unit proc~conv_write_spn->proc~io_file_unit

Contents

Variables

Source Code

w90spn2spn

Variables

Type AttributesNameInitial
logical :: file_found
integer :: file_unit

Source Code

program w90spn2spn
  !! Program to convert spn 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_spn
  use w90_comms, only: num_nodes, comms_setup, comms_end

  implicit none

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

  call comms_setup

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

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

  call conv_get_seedname

  if (export_flag .eqv. .true.) then
    call conv_read_spn()
    write (stdout, '(a)') ''
    call conv_write_spn_fmt()
  else
    call conv_read_spn_fmt()
    write (stdout, '(a)') ''
    call conv_write_spn()
  end if

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

  call comms_end

end program w90spn2spn