Commit 78929846 authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

fixed typos in lambda_min/max matching parameters

parent a79e5a91

sources/drspine.f90

+6 −6
Original line number Diff line number Diff line
@@ -4756,8 +4756,8 @@ ntl2: do i=0, nt 
    call setudf("m.j0_rel ", matching_tolerance%J0_rel, ier)

    call setudf("m.scat_angle ", matching_tolerance%scattering_angle, ier)

    call setudf("m.samp_angle ", matching_tolerance%sample_angle, ier)

    call setudf("m.lambda_min ", matching_tolerance%scattering_angle, ier)

    call setudf("m.lambda_max ", matching_tolerance%sample_angle, ier)

    call setudf("m.lambda_min ", matching_tolerance%lambda_min, ier)

    call setudf("m.lambda_max ", matching_tolerance%lambda_max, ier)



    ! instrument config

    call set_instrument_vars()
@@ -4794,8 +4794,8 @@ ntl2: do i=0, nt 
    call extract("m.j0_rel ", matching_tolerance%J0_rel, ier)

    call extract("m.scat_angle ", matching_tolerance%scattering_angle, ier)

    call extract("m.samp_angle ", matching_tolerance%sample_angle, ier)

    call extract("m.lambda_min ", matching_tolerance%scattering_angle, ier)

    call extract("m.lambda_max ", matching_tolerance%sample_angle, ier)

    call extract("m.lambda_min ", matching_tolerance%lambda_min, ier)

    call extract("m.lambda_max ", matching_tolerance%lambda_max, ier)



    ! instrument config

    call get_instrument_vars()
@@ -4832,8 +4832,8 @@ ntl2: do i=0, nt 
    call msg_debug('get_progvar', msg_fmt("('m.j0_rel        = ',g12.5)", matching_tolerance%J0_rel))

    call msg_debug('get_progvar', msg_fmt("('m.scat_angle    = ',g12.5)", matching_tolerance%scattering_angle))

    call msg_debug('get_progvar', msg_fmt("('m.samp_angle    = ',g12.5)", matching_tolerance%sample_angle))

    call msg_debug('get_progvar', msg_fmt("('m.lambda_min    = ',g12.5)", matching_tolerance%scattering_angle))

    call msg_debug('get_progvar', msg_fmt("('m.lambda_max    = ',g12.5)", matching_tolerance%sample_angle))

    call msg_debug('get_progvar', msg_fmt("('m.lambda_min    = ',g12.5)", matching_tolerance%lambda_min))

    call msg_debug('get_progvar', msg_fmt("('m.lambda_max    = ',g12.5)", matching_tolerance%lambda_max))

  end subroutine get_progvar