From ccd4f5587579288e84c6949f272ae919c17ed6fe Mon Sep 17 00:00:00 2001
From: "Stevenson, Paul Dr (Physics)" <p.stevenson@surrey.ac.uk>
Date: Wed, 30 Jun 2021 08:03:53 +0000
Subject: [PATCH] Update static.f90 FLOAT -> REAL
---
Code/static.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Code/static.f90 b/Code/static.f90
index 65fa469..2618428 100644
--- a/Code/static.f90
+++ b/Code/static.f90
@@ -36,7 +36,7 @@ CONTAINS
IF(ipair==0.OR.nof<0) THEN
npsi(2)=nprot
ELSE
- npsi(2)=NINT(nprot+1.65*FLOAT(nprot)**0.666667D0)
+ npsi(2)=NINT(nprot+1.65*REAL(nprot,db)**0.666667D0)
IF(MOD(npsi(2),2)/=0) npsi(2)=npsi(2)+1
ENDIF
ENDIF
--
GitLab