w90spn2spn Program

Uses

  • program~~w90spn2spn~~UsesGraph program~w90spn2spn w90spn2spn module~w90_constants w90_constants program~w90spn2spn->module~w90_constants module~w90_conv_spn w90_conv_spn program~w90spn2spn->module~w90_conv_spn module~w90_conv_spn->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 conv_get_seedname program~w90spn2spn->proc~conv_get_seedname proc~conv_read_spn conv_read_spn program~w90spn2spn->proc~conv_read_spn 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~conv_write_spn_fmt conv_write_spn_fmt program~w90spn2spn->proc~conv_write_spn_fmt proc~io_error io_error proc~conv_get_seedname->proc~io_error proc~print_usage print_usage proc~conv_get_seedname->proc~print_usage proc~conv_read_spn->proc~io_error proc~conv_read_spn_fmt->proc~io_error proc~conv_write_spn->proc~io_error

Variables

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

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_conv_spn

  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
  integer :: stdout !, ierr, num_nodes
  character(len=50) :: seedname

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

  call conv_get_seedname(stdout, seedname)

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

  close (unit=stdout)

end program w90spn2spn