mirror of https://gitlab.com/scemama/eplf
26 lines
363 B
Fortran
26 lines
363 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;;
|
|
elf_partition;;
|
|
eplf_partition;;
|
|
density_partition;;
|
|
END_TEMPLATE
|