diff options
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) |