Loading sources/drspine.f90 +26 −9 Original line number Diff line number Diff line Loading @@ -249,6 +249,10 @@ program drspine istat = add_tab_expansion('mask pix ring') istat = add_tab_expansion('mask tau') istat = add_tab_expansion('mask tau set') istat = add_tab_expansion('mask tau clear') istat = add_tab_expansion('mask q') istat = add_tab_expansion('mask q set') istat = add_tab_expansion('mask q clear') ! istat = add_tab_expansion('dump') istat = add_tab_expansion('dump file') Loading Loading @@ -505,7 +509,7 @@ program drspine !> COMMAND: mask !------------------------------------------------------------- if(command('mask ', & " mask pixel or tau"//LF//LF//& " mask pixel, tau or q-vector"//LF//LF//& " mask pix"//LF//& " - show pixel mask"//LF//& " mask pix set [val <value>]"//LF//& Loading @@ -519,9 +523,17 @@ program drspine " "//LF//& " mask tau"//LF//& " - show tau mask (equivalent to 'dir details')"//LF//& " mask tau [set|clear] <itau> [run <numor>]"//LF//& " mask tau set <itau> [run <numor>]"//LF//& " - mask <itau> tau in a given run"//LF//& " if clear is given, the tau is 'restored'"//LF//& " mask tau clear <itau> [run <numor>]"//LF//& " restore the tau (remove the mask) "//LF//& " "//LF//& " mask q"//LF//& " - show q mask "//LF//& " mask q set [qx <val>] [qy <val>] [qz <val>] [dqx <val>] [dqy <val>] [dqz <val>] [run <numor>]"//LF//& " - set a q-vector mask "//LF//& " mask q clear [run <numor>]"//LF//& " - clears q-vector mask "//LF//& " "//LF//& " NOTE: negative value for pixel mask <value> means apply the mask to the complement"//LF//& " so for example to use only the center of the detector (assuming 16x16 pixels)"//LF//& Loading Loading @@ -1467,7 +1479,7 @@ CONTAINS !------------------------------------------------------------- !> COMMAND: mask !! mask [options] - mask pixel or tau !! mask [options] - mask pixel, tau or q-vector !------------------------------------------------------------- !! mask pix !! - show pixel mask Loading @@ -1484,14 +1496,19 @@ CONTAINS !! use: mask pix ring 8 8 0 4 val -1 !! !! mask tau !! - shows tau mask (equivalent to 'dir details') !! mask tau [set|clear] <itau> [run <numor>] !! - show tau mask (equivalent to 'dir details') !! mask tau set <itau> [run <numor>] !! - mask <itau> tau in a given run !! if clear is given, the tau is "restored" !! mask tau clear <itau> [run <numor>] !! restore the tau (remove the mask) !! !! mask q !! - show q mask (.......) !! mask q [set|clear] <qx> <qy> <qz> !! - show q mask !! mask q set [qx <val>] [qy <val>] [qz <val>] [dqx <val>] [dqy <val>] [dqz <val>] [run <numor>] !! - set a q-vector mask !! mask q clear [run <numor>] !! - clears q-vector mask !! subroutine cmd_mask() !logical :: do_pix, do_tau, do_q integer, parameter :: E_PIX = 1,& Loading Loading
sources/drspine.f90 +26 −9 Original line number Diff line number Diff line Loading @@ -249,6 +249,10 @@ program drspine istat = add_tab_expansion('mask pix ring') istat = add_tab_expansion('mask tau') istat = add_tab_expansion('mask tau set') istat = add_tab_expansion('mask tau clear') istat = add_tab_expansion('mask q') istat = add_tab_expansion('mask q set') istat = add_tab_expansion('mask q clear') ! istat = add_tab_expansion('dump') istat = add_tab_expansion('dump file') Loading Loading @@ -505,7 +509,7 @@ program drspine !> COMMAND: mask !------------------------------------------------------------- if(command('mask ', & " mask pixel or tau"//LF//LF//& " mask pixel, tau or q-vector"//LF//LF//& " mask pix"//LF//& " - show pixel mask"//LF//& " mask pix set [val <value>]"//LF//& Loading @@ -519,9 +523,17 @@ program drspine " "//LF//& " mask tau"//LF//& " - show tau mask (equivalent to 'dir details')"//LF//& " mask tau [set|clear] <itau> [run <numor>]"//LF//& " mask tau set <itau> [run <numor>]"//LF//& " - mask <itau> tau in a given run"//LF//& " if clear is given, the tau is 'restored'"//LF//& " mask tau clear <itau> [run <numor>]"//LF//& " restore the tau (remove the mask) "//LF//& " "//LF//& " mask q"//LF//& " - show q mask "//LF//& " mask q set [qx <val>] [qy <val>] [qz <val>] [dqx <val>] [dqy <val>] [dqz <val>] [run <numor>]"//LF//& " - set a q-vector mask "//LF//& " mask q clear [run <numor>]"//LF//& " - clears q-vector mask "//LF//& " "//LF//& " NOTE: negative value for pixel mask <value> means apply the mask to the complement"//LF//& " so for example to use only the center of the detector (assuming 16x16 pixels)"//LF//& Loading Loading @@ -1467,7 +1479,7 @@ CONTAINS !------------------------------------------------------------- !> COMMAND: mask !! mask [options] - mask pixel or tau !! mask [options] - mask pixel, tau or q-vector !------------------------------------------------------------- !! mask pix !! - show pixel mask Loading @@ -1484,14 +1496,19 @@ CONTAINS !! use: mask pix ring 8 8 0 4 val -1 !! !! mask tau !! - shows tau mask (equivalent to 'dir details') !! mask tau [set|clear] <itau> [run <numor>] !! - show tau mask (equivalent to 'dir details') !! mask tau set <itau> [run <numor>] !! - mask <itau> tau in a given run !! if clear is given, the tau is "restored" !! mask tau clear <itau> [run <numor>] !! restore the tau (remove the mask) !! !! mask q !! - show q mask (.......) !! mask q [set|clear] <qx> <qy> <qz> !! - show q mask !! mask q set [qx <val>] [qy <val>] [qz <val>] [dqx <val>] [dqy <val>] [dqz <val>] [run <numor>] !! - set a q-vector mask !! mask q clear [run <numor>] !! - clears q-vector mask !! subroutine cmd_mask() !logical :: do_pix, do_tau, do_q integer, parameter :: E_PIX = 1,& Loading