diff options
author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-07-24 13:45:58 +0200 |
---|---|---|
committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-07-24 13:45:58 +0200 |
commit | 7e9efcd2e4446f6c51f457640d1a34f52d4b1ab3 (patch) | |
tree | fcef69ad6c4919943a2aa121f4309155fe0fef46 /src/quadratures.f90 | |
parent | ab59aec0a456d25bedac524be740937fbbe8d5cd (diff) | |
download | fortran-assignment3-7e9efcd2e4446f6c51f457640d1a34f52d4b1ab3.tar.gz fortran-assignment3-7e9efcd2e4446f6c51f457640d1a34f52d4b1ab3.zip |
correct polynomial order for gauss
Diffstat (limited to 'src/quadratures.f90')
-rw-r--r-- | src/quadratures.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/quadratures.f90 b/src/quadratures.f90 index 6fbb5cb..0fcaa2c 100644 --- a/src/quadratures.f90 +++ b/src/quadratures.f90 @@ -198,11 +198,11 @@ CONTAINS procedure(quadrature), pointer :: quad SELECT CASE (p) - CASE (1) + CASE (0) quad => gauss_n1 - CASE (2) + CASE (1) quad => gauss_n2 - CASE (3) + CASE (2) quad => gauss_n3 CASE default val = ieee_value(val, ieee_quiet_nan) |