From a624753390eb4d2f3e50d3623bd0a8f6bd719f7c Mon Sep 17 00:00:00 2001
From: kamischi <karl-michael.schindler@web.de>
Date: Mon, 28 Feb 2022 14:08:29 +0100
Subject: [PATCH] fix type (single/double) mismatch
---
source/f90/doboson.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/source/f90/doboson.f90 b/source/f90/doboson.f90
index 1dbff44..535e448 100644
--- a/source/f90/doboson.f90
+++ b/source/f90/doboson.f90
@@ -132,7 +132,7 @@ subroutine doboson(t, width, gauss, asym, emin, emax, wmin, wmax, np, p, xout, y
endif
endif
! make a table of the response function
- r1(1) = respon(0.0, alfa)
+ r1(1) = respon(0.0d0, alfa)
r2(1) = r1(1)
do i = 2, n
x = (i - 1) * dwn
--
GitLab