10
0
mirror of https://gitlab.com/scemama/eplf synced 2024-12-23 04:43:52 +01:00
eplf/src/compute.irp.f
2009-12-09 23:28:19 +01:00

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