From 333fac1fae7778064113697c57a5bc7c6c5b8219 Mon Sep 17 00:00:00 2001 From: Joe Taylor Date: Sun, 4 Oct 2020 15:32:08 -0400 Subject: [PATCH] Code cleanup. --- lib/lorentzian.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/lorentzian.f90 b/lib/lorentzian.f90 index cd2257a75..f3f4e14ef 100644 --- a/lib/lorentzian.f90 +++ b/lib/lorentzian.f90 @@ -1,7 +1,7 @@ subroutine lorentzian(y,npts,a) ! Input: y(npts); assume x(i)=i, i=1,npts -! Output: a(5) +! Output: a(1:5) ! a(1) = baseline ! a(2) = amplitude ! a(3) = x0