program ptc_geometry use madx_ptc_module use pointer_lattice implicit none character*48 :: command_gino !----------------------------------- Lmax = 10.d0 use_info = .true. !== user stuff : one layout necessary before starting GUI call ptc_ini_no_append CALL READ_AND_APPEND_VIRGIN_general(M_U,"ALS_FLAT.DAT") m_U%start%name="ALS " write(6,*) "Making an node layout" CALL MAKE_NODE_LAYOUT(m_U%start) write(6,*) " " write(6,*) "Making an orbit layout" call ORBIT_MAKE_NODE_LAYOUT(m_U%start,my_true) write(6,*) m_U%start%t%ORBIT_LATTICE%ORBIT_N_NODE, " Orbit Nodes "
call put_an_s_aperture(0.00001d0,0.00002d0,0.5d0) call remove_temporarily_an_aperture
!CALL TRACK_A_RAY(MY_FALSE,MY_FALSE) call Track_and_test_aperture !call Track_a_ray_around_ring !call Track_a_ray_orbit !CALL TRACK_A_RAY(MY_TRUE,MY_FALSE) !CALL TRACK_A_RAY(MY_TRUE,MY_FALSE) !CALL TRACK_A_RAY(MY_TRUE,MY_FALSE) !CALL TRACK_A_RAY(MY_TRUE,MY_TRUE) 999 command_gino = "opengino" call context(command_gino) ! context makes them capital call call_gino(command_gino) !== vaguely necessary baloney == command_gino = "closegino" call call_gino(command_gino) call ptc_end end program ptc_geometry