aboutsummaryrefslogtreecommitdiff
path: root/src/quadratures.f90
diff options
context:
space:
mode:
authorWojtek Kosior <kwojtus@protonmail.com>2019-07-24 13:45:58 +0200
committerWojtek Kosior <kwojtus@protonmail.com>2019-07-24 13:45:58 +0200
commit7e9efcd2e4446f6c51f457640d1a34f52d4b1ab3 (patch)
treefcef69ad6c4919943a2aa121f4309155fe0fef46 /src/quadratures.f90
parentab59aec0a456d25bedac524be740937fbbe8d5cd (diff)
downloadfortran-assignment3-7e9efcd2e4446f6c51f457640d1a34f52d4b1ab3.tar.gz
fortran-assignment3-7e9efcd2e4446f6c51f457640d1a34f52d4b1ab3.zip
correct polynomial order for gauss
Diffstat (limited to 'src/quadratures.f90')
-rw-r--r--src/quadratures.f906
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)