Commit 2acbc819 authored by Luca's avatar Luca

readme

parent f208a6d5
# Evaluate G(...) function
Open `src/eval.f90` and modify the line
```res = GPL(cmplx([1,2,5]))```
This example computes G(1,2,5). Then write
```$ make ```
```$ ./eval ```
and the result will be printed in standard output. To see what is going on increase verbosity
```$ ./eval -verb 100```
......@@ -7,7 +7,7 @@ PROGRAM eval
complex(kind=prec) :: res
call parse_cmd_args()
print*, verb
res = GPL(cmplx([1,2,5]))
print*, res
......
......@@ -8,7 +8,7 @@ MODULE globals
real, parameter :: zero = 1e-15 ! values smaller than this count as zero
real, parameter :: pi = 3.14159265358979323846
integer :: verbosity = 0
integer :: verb = 0
CONTAINS
......@@ -23,7 +23,7 @@ CONTAINS
! parse verbosity
if(trim(arg) == '-verb') then
call get_command_argument(i+1,arg)
read(arg,*) verbosity ! str to int
read(arg,*) verb ! str to int
end if
i = i+1
......
Markdown is supported
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