 |
RFOF - RF Library for Orbit Following Codes
|
|
RFOF - RF Library for Orbit Following Codes
|
00001 00007 00008 #include "../src/config.h" 00009 00010 program rftest 00011 00012 use dummy_orbit 00013 00014 implicit none 00015 00016 print *, " ---dumorb--- (trace dummy orbit and give RF kicks)" 00017 call run_dumorb 00018 print *, " ---DONE dumorb--- (trace dummy orbit and give RF kicks)" 00019 00020 print *, " " 00021 print *, " --- TEST RFOF ROUTINES ---" 00022 call my_tests 00023 print *, " --- DONE: TEST RFOF ROUTINES ---" 00024 00025 contains 00026 00027 subroutine my_tests 00028 00029 use RFOF_Efield_update 00030 ! use mytests 00031 ! use tst_rf_memory 00032 ! use TEST_Monte_Carlo_Stepping_for_RF 00033 00034 00035 !call enorm_stats_test 00036 00037 ! call test_poly_stuff 00038 ! call TEST_Monte_Carlo_Stepping_for_RF_1 00039 !print *, " ---ok!---" 00040 00041 end subroutine my_tests 00042 00043 end program rftest 00044
