From 0fb6d72e4e6f50bdcf74349c0b9fd07c2b7e7d7f Mon Sep 17 00:00:00 2001
From: "Frielinghaus, Henrich" <h.frielinghaus@fz-juelich.de>
Date: Mon, 21 Jun 2021 23:43:53 +0200
Subject: [PATCH] modified codeXY2.f
---
codeXY2.f | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/codeXY2.f b/codeXY2.f
index 496a16f..176f4f3 100644
--- a/codeXY2.f
+++ b/codeXY2.f
@@ -2802,7 +2802,7 @@ c ----------------yyyy----------------------------------------------------------
& au(ni)/(au(ni)+ac(ni)),
& (au(ni)+ac(ni))/pi/ddd/transm,
& (au(ni)+0.615d0*ac(ni))/pi/ddd/
- & (0.4993d0-0.4283d0*exp(-8.246d00/mm)) ! experimental transmission
+ & (0.4993d0-0.4283d0*exp(-8.246d00/lambda)) ! experimental transmission
! & (au(ni)+0.85d0*ac(ni))/pi/ddd/transm ! ,slop
! write (*,*) mm,
--
GitLab