From 4588576d0da514816a51d40d3c78d607500cd7f2 Mon Sep 17 00:00:00 2001
From: "Stevenson, Paul Dr (Physics)" <p.stevenson@surrey.ac.uk>
Date: Wed, 30 Jun 2021 08:00:15 +0000
Subject: [PATCH] change FLOAT -> REAL to give explicit KIND during promotion
---
Code/grids.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/Code/grids.f90 b/Code/grids.f90
index e834b62..9f1902d 100644
--- a/Code/grids.f90
+++ b/Code/grids.f90
@@ -54,7 +54,7 @@ CONTAINS
der2v(:,:),cdmpv(:,:)
INTEGER :: i
ALLOCATE(v(nv),der1v(nv,nv),der2v(nv,nv),cdmpv(nv,nv))
- v=(/ ((i-1)*dv-0.5D0*FLOAT(nv-1)*dv,i=1,nv) /)
+ v=(/ ((i-1)*dv-0.5D0*REAL(nv-1,KIND(v))*dv,i=1,nv) /)
IF(wflag) THEN
WRITE(*,'(1X,A,I3,A,F8.4,2(A,F8.4))') name // ' direction: ',nv, &
' points, spacing:',dv,' ranging from ',v(1),' to ',v(nv)
--
GitLab