mirror of
https://gitlab.com/scemama/eplf
synced 2024-12-23 04:43:52 +01:00
24 lines
308 B
Fortran
24 lines
308 B
Fortran
BEGIN_TEMPLATE
|
|
|
|
BEGIN_PROVIDER [ logical, comp_$X ]
|
|
implicit none
|
|
BEGIN_DOC
|
|
! If true, compute $X
|
|
END_DOC
|
|
comp_$X = .False.
|
|
call get_compute_$X(comp_$X)
|
|
END_PROVIDER
|
|
|
|
SUBST [ X ]
|
|
eplf;;
|
|
eplf_grad;;
|
|
eplf_lapl;;
|
|
elf;;
|
|
elf_grad;;
|
|
elf_lapl;;
|
|
density;;
|
|
density_grad;;
|
|
density_lapl;;
|
|
|
|
END_TEMPLATE
|