1
0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-08-25 06:31:43 +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

@ -311,7 +311,7 @@ for fname in files_funcs_dsets:
templine1 = templine2.replace('$group_dset_f_dtype_default$', f_dtype_default)
templine2 = templine1.replace('$group_dset_dtype_default$', c_dtype_default)
templine1 = templine2.replace('$default_prec$', default_prec)
templine2 = templine1
@ -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