scan_2d_init Subroutine

public subroutine scan_2d_init()

Routine to call 2-D scan author: J Morris, UKAEA, Culham Science Centre

Arguments

None

Contents

Source Code


Source Code

  subroutine scan_2d_init
    !! Routine to call 2-D scan
    !! author: J Morris, UKAEA, Culham Science Centre
    ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    use constants, only: mfile
    use process_output, only: ovarin
    implicit none

    !  Set up labels for plotting output
    !  Use underscores instead of spaces
    call ovarin(mfile,'Number of first variable scan points','(isweep)',isweep)
    call ovarin(mfile,'Number of second variable scan points','(isweep_2)',isweep_2)
    call ovarin(mfile,'Scanning first variable number','(nsweep)',nsweep)
    call ovarin(mfile,'Scanning second variable number','(nsweep_2)',nsweep_2)
    call ovarin(mfile,'Scanning second variable number','(nsweep_2)',nsweep_2)
    call ovarin(mfile,'Scanning second variable number','(nsweep_2)',nsweep_2)
  end subroutine scan_2d_init