source: PSPA/madxPSPA/src/madx_ptc_script.f90 @ 447

module madx_ptc_script_module
  !This module enables the user to execute a PTC script
  !that enables additional functionality that is not possible with MAD-X scripting language
  use madx_keywords
  !  use pointer_lattice
  implicit none
  save
  private

  !============================================================================================
  !  PUBLIC INTERFACE
  public                                      :: execscript, execginoscript


  !============================================================================================
  !  PRIVATE
  !    data structures

  !    routines

  !============================================================================================

contains
  !____________________________________________________________________________________________

  subroutine execscript(scriptname)
    use twissafi
    implicit none
    integer   scriptname(*)
    character(48) scriptfilename
    character(48) charconv

    scriptfilename = charconv(scriptname)
    print*, "I am in execsript: Script name is ", scriptfilename
    CALL read_ptc_command77(scriptfilename)
    print*, "Exiting execscript"

  end subroutine execscript

  subroutine execginoscript(scriptname)
    use twissafi
    implicit none
    integer   scriptname(*)
    character(48) charconv
    character(48) scriptfilename

    scriptfilename = charconv(scriptname)
    print*, "I am in execginosript: Script name is ", scriptfilename
    CALL gino_ptc_command77(scriptfilename)
    print*, "Exiting execginoscript"

  end subroutine execginoscript

end module madx_ptc_script_module