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

24 lines
308 B
FortranFixed
Raw Normal View History

2009-12-09 23:28:19 +01:00
BEGIN_TEMPLATE
2009-11-06 00:27:24 +01:00
BEGIN_PROVIDER [ logical, comp_$X ]
implicit none
BEGIN_DOC
2009-12-09 23:28:19 +01:00
! If true, compute $X
2009-11-06 00:27:24 +01:00
END_DOC
comp_$X = .False.
call get_compute_$X(comp_$X)
END_PROVIDER
2009-12-09 23:28:19 +01:00
SUBST [ X ]
eplf;;
eplf_grad;;
eplf_lapl;;
elf;;
elf_grad;;
elf_lapl;;
density;;
density_grad;;
density_lapl;;
2009-11-06 00:27:24 +01:00
2009-12-09 23:28:19 +01:00
END_TEMPLATE