mirror of
https://gitlab.com/scemama/eplf
synced 2024-06-18 19:25:30 +02:00
30 lines
403 B
FortranFixed
30 lines
403 B
FortranFixed
|
BEGIN_SHELL [ /usr/bin/python ]
|
||
|
|
|
||
|
|
to_compute = [\
|
||
|
|
"eplf",
|
||
|
|
"eplf_grad",
|
||
|
|
"eplf_lapl",
|
||
|
|
"elf",
|
||
|
|
"elf_grad",
|
||
|
|
"elf_lapl",
|
||
|
|
"density",
|
||
|
|
"density_grad",
|
||
|
|
"density_lapl",
|
||
|
|
]
|
||
|
|
|
||
|
|
template = """
|
||
|
|
BEGIN_PROVIDER [ logical, comp_$X ]
|
||
|
|
implicit none
|
||
|
|
BEGIN_DOC
|
||
|
|
! If true, $X
|
||
|
|
END_DOC
|
||
|
|
comp_$X = .False.
|
||
|
|
call get_compute_$X(comp_$X)
|
||
|
|
END_PROVIDER
|
||
|
|
"""
|
||
|
|
|
||
|
|
for t in to_compute:
|
||
|
|
print template.replace("$X",t)
|
||
|
|
|
||
|
|
END_SHELL
|