From bdc6bba2375871ac480328f320d46265978283d0 Mon Sep 17 00:00:00 2001
From: Rudolf Zeller <ru.zeller@fz-juelich.de>
Date: Thu, 30 Apr 2020 14:43:07 +0200
Subject: [PATCH] Changed formatted to list-directed input for ncell and nfu
---
source/KKRnano/source/read_formatted_shapefun_mod.F90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/source/KKRnano/source/read_formatted_shapefun_mod.F90 b/source/KKRnano/source/read_formatted_shapefun_mod.F90
index 0e85244c2..fba14cd06 100644
--- a/source/KKRnano/source/read_formatted_shapefun_mod.F90
+++ b/source/KKRnano/source/read_formatted_shapefun_mod.F90
@@ -53,7 +53,7 @@ module read_formatted_shapefun_mod
integer :: icell
double precision :: dummy
- read(unit, fmt="(16i5)") sfile%ncell
+ read(unit, fmt=*) sfile%ncell
read(unit, fmt="(4d20.12)") (dummy, icell=1,sfile%ncell)
@@ -93,7 +93,7 @@ module read_formatted_shapefun_mod
integer :: ifun, lm
- read(unit, fmt="(16i5)") shapef%nfu
+ read(unit, fmt=*) shapef%nfu
allocate(shapef%llmsp(shapef%nfu), shapef%thetas(inter%meshn,shapef%nfu))
--
GitLab