1
0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-10-02 14:31:05 +02:00

Fixed Fortran interface

This commit is contained in:
Anthony Scemama 2021-05-19 16:17:24 +02:00
parent 0cc24bd21e
commit 6ffc4ccfb2

View File

@ -326,7 +326,10 @@ for fname in files_funcs_dsets:
if "$group_dset_f_dims$" in templine2:
dims = "(" + ",".join([":" for _ in range(params['rank'])]) + ")"
if dims == "()": dims = ""
if dims == "()":
dims = ""
else:
dims = "(*)"
templine1 = templine2.replace("$group_dset_f_dims$", dims)
templine2 = templine1