Routine to call 2-D scan author: J Morris, UKAEA, Culham Science Centre
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