Commit 375ba670 authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

allow to "collect" data to a specfied filename 

fixes issue #25
parent bc3f315e

.gitignore

+1 −1
Original line number Diff line number Diff line
@@ -28,7 +28,7 @@ python/dist 
python/drspine/version.py



# misc other files

.history*

.*history*

.gdbinit

drspine_profile

fits_*

Makefile.version

+1 −1
Original line number Diff line number Diff line
@@ -3,7 +3,7 @@ export PROJECT=drspine 


export VERSION_MAJOR=1

export VERSION_MINOR=4

export VERSION_RELEASE=5

export VERSION_RELEASE=6



export PROJLIB=lib$(PROJECT).a

export PROJARCH=$(PROJECT)-$(VERSION_MAJOR).$(VERSION_MINOR)

sources/drspine.f90

+8 −0
Original line number Diff line number Diff line
@@ -2100,6 +2100,8 @@ CONTAINS 
    !real(kind=DBL) :: mintau, maxtau

    real(kind=DBL) :: tfac

    real(kind=DBL) :: volfrac

    !

    character(len=MAX_PATH_LENGTH) :: cfilename

    !logical :: logtau

    logical :: do_debug

    logical :: do_resolution
@@ -2124,6 +2126,7 @@ CONTAINS 
    do_resolution = .false.

    do_debug = .false.

    use_mean = .false.

    cfilename = ' '



    call msg_info('drspine', '===> collect data')
@@ -2131,6 +2134,7 @@ CONTAINS 
    bgr_flag = get_named_value('bgr_flag', bgr_flag, inew)  ! for compatibility

    tfac     = get_named_value('tfac'    , tfac, inew)

    volfrac  = get_named_value('volfrac' , volfrac, inew)

    cfilename = get_named_value('to', cfilename, inew)





    !! in order to have these values for reporting !!
@@ -2231,6 +2235,10 @@ CONTAINS 
    !!

    call write_datreat_collection(collected_data, &

         format_path(save_path, program_param%file_sqt_dat), bgr_flag, tfac, volfrac )

    if (len_trim(cfilename)>0) then

        call write_datreat_collection(collected_data, &

            format_path(save_path, cfilename), bgr_flag, tfac, volfrac )

    end if



    !! dump resolution

    if (do_resolution) &