Use (L1) for logicals to avoid bugs between ifort and gfortran

2023-06-28 13:47:39 +02:00 · 2023-06-28 13:47:39 +02:00 · 0520b5e2cf
parent d5805497fa
commit 0520b5e2cf
1 changed files with 1 additions and 1 deletions
--- a/src/f_types.py
+++ b/src/f_types.py
@ -27,7 +27,7 @@ format= {
 'integer'         : ["'(I20)'", "%20d"],
 'real'            : ["'(E24.15)'","%24.15E"],
 'double precision': ["'(E24.15)'","%24.15E"],
- 'logical'         : ["'(L)'","%c"],
+ 'logical'         : ["'(L1)'","%c"],
 'character*(*)'   : ["'(A)'","%s"]
 }