From c97e2244132b837ca90ab72aff33ce6e1f8c75c8 Mon Sep 17 00:00:00 2001
From: kamischi <karl-michael.schindler@web.de>
Date: Wed, 8 May 2024 17:06:55 +0200
Subject: [PATCH] Document qrat

---
 source/f90/qrat.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/source/f90/qrat.f90 b/source/f90/qrat.f90
index 926260e..7bbb966 100644
--- a/source/f90/qrat.f90
+++ b/source/f90/qrat.f90
@@ -1,5 +1,9 @@
 double precision function qrat(x, alpha, beta, c1, c2)
 
+!         1 + x * (beta + c1 * x)
+! qrat = ---------------------------------------------
+!        (1 + x * (beta + c2 * x)) * (1 + alpha * x)^2
+
   implicit none
 
   double precision, intent(in) :: x, alpha, beta, c1, c2
-- 
GitLab