Commit 05dda516 authored by Pierre-Antoine Rouby's avatar Pierre-Antoine Rouby
Browse files

MailleurTT: Add limites, directrices, lplan, flm and lineaire options.

No related merge requests found
Pipeline #53831 passed with stages
in 2 minutes and 27 seconds
Showing with 42 additions and 7 deletions
+42 -7
......@@ -8,6 +8,7 @@ program mailleurTT
type(bief), target :: mon_bief
integer :: i, nb_lines, nb_sections
integer :: lplan, lineaire
character(len=250) :: arg
character(len=250) :: st_file, m_file
character(len=3) :: tags(2)
......@@ -32,7 +33,41 @@ program mailleurTT
if (len_trim(arg) == 0) stop
read(arg,*) step
i = i+1
! limite1
call get_command_argument(i, arg)
if (len_trim(arg) == 0) stop
read(arg,*) limites(1)
i = i+1
! limite2
call get_command_argument(i, arg)
if (len_trim(arg) == 0) stop
read(arg,*) limites(2)
i = i+1
! directrice1
call get_command_argument(i, arg)
if (len_trim(arg) == 0) stop
directrice1 = trim(arg)
i = i+1
! directrice2
call get_command_argument(i, arg)
if (len_trim(arg) == 0) stop
directrice2 = trim(arg)
i = i+1
! lplan
call get_command_argument(i, arg)
if (len_trim(arg) == 0) stop
read(arg,*) lplan
i = i+1
! lm
call get_command_argument(i, arg)
if (len_trim(arg) == 0) stop
read(arg,*) flm(1)
i = i+1
! lineaire
call get_command_argument(i, arg)
if (len_trim(arg) == 0) stop
read(arg,*) lineaire
i = i+1
call mon_bief%init(st_file, 0, 0)
call mon_bief%set_name("tmp", 3)
......@@ -55,12 +90,12 @@ program mailleurTT
! call mon_bief%patch(bief_tmp, tags(1), tags(2))
call st_to_m(mon_bief, 0, tags(1), tags(2))
limites(1) = 1
limites(2) = nb_sections
flm(1) = 3
directrice1(1) = "un"
directrice2(1) = "np"
call mon_bief%interpolate_profils_pas_transversal(limites, directrice1, directrice2, step, .false., flm, .false.)
if (limites(1) == -1) limites(1) = 1
if (limites(2) == -1) limites(2) = nb_sections
if (flm(1) == -1) flm(1) = 3
! directrice1(1) = "un"
! directrice2(1) = "np"
call mon_bief%interpolate_profils_pas_transversal(limites, directrice1, directrice2, step, lplan == 1, flm, lineaire == 1)
call mon_bief%purge()
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment