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;;
|
2010-06-23 15:57:49 +02:00
|
|
|
elf_partition;;
|
2010-06-24 10:40:51 +02:00
|
|
|
eplf_partition;;
|
|
|
|
|
density_partition;;
|
2009-12-09 23:28:19 +01:00
|
|
|
END_TEMPLATE
|
