Commit 9e9c11f7 authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

re-enable explore and genmacro for sns-nse version 

these commands used to exit program when mxx file was not found
parent 9dd7a1da

sources/drspine.f90

+0 −8
Original line number Diff line number Diff line
@@ -796,10 +796,6 @@ program drspine 
       '=    lam           <lambda>  lambda is within 0.1A                         ='//LF//&

       '=    t1 <> t2 <>   <t1> <t2> temp is in this range                         ='//LF//&

       ' -------------------$')) then

        if (instrument_parameters%id==INST_SNSNSE) then ! need to fix it for SNS-NSE (otherwise it crashes drspine)

            call msg_warning('cmd_explore', 'command explore not yet implemented for SNS-NSE')

            cycle commandloop

        end if

        call mxx_search( trim(chrval("m "," "))  , &

                         trim(chrval("s "," "))  , &

                         trim(chrval("c "," "))  , &
@@ -842,10 +838,6 @@ program drspine 
       '=                                                                          ='//LF//&

       ' -------------------$')) then



        if (instrument_parameters%id==INST_SNSNSE) then ! need to fix it for SNS-NSE (otherwise it crashes drspine)

            call msg_warning('cmd_genmacro', 'command genmacro not yet implemented for SNS-NSE')

            cycle commandloop

        end if



        if(found("use_drpath")) call set_gen_macro_paths(mxx_path, data_path, save_path)