diff --git a/app/main.f90 b/app/main.f90 index bbf9bcd..78e71e5 100644 --- a/app/main.f90 +++ b/app/main.f90 @@ -34,6 +34,8 @@ program main call pt_envelopes call cpu_time(et) print *, "PT: ", (et - st)*1000, "cpu ms" + + call exit ! PX Envelopes call cpu_time(st) @@ -52,6 +54,12 @@ subroutine setup_cli help="Input file", & error=cli_error, & required=.true.) + call cli%add( & + switch="--injection", & + switch_ab="-px", & + help="Trace Px lines", & + error=cli_error, & + required=.false.) call cli%parse(error=cli_error) if (cli_error /= 0) stop diff --git a/fpm.toml b/fpm.toml index 9c6786f..564609e 100644 --- a/fpm.toml +++ b/fpm.toml @@ -6,7 +6,7 @@ maintainer = "federico.benelli@mi.unc.edu.ar" copyright = "Copyright 2023, Federico E. Benelli" [build] -link = ["lapack"] +link = ["blas"] auto-executables = true auto-tests = true auto-examples = true @@ -16,7 +16,7 @@ library = false [dependencies] stdlib = "*" -minpack= "*" +# minpack= "*" ftools = { git = "https://github.com/fedebenelli/ftools" } yaeos = { git = "https://github.com/fedebenelli/yaeos" } FLAP = { git = "https://github.com/szaghi/FLAP", tag="v1.2.5" } @@ -30,4 +30,4 @@ implicit-typing = false # default: false [preprocess] [preprocess.cpp] -[preprocess.fypp] +[preprocess.fypp] \ No newline at end of file