eplf/src/compute.irp.f

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
Introduced templates 2009-12-09 23:28:19 +01:00			`BEGIN_TEMPLATE`
Repaired MPI and output grids to EZFIO 2009-11-06 00:27:24 +01:00
			`BEGIN_PROVIDER [ logical, comp_$X ]`
			`implicit none`
			`BEGIN_DOC`
Introduced templates 2009-12-09 23:28:19 +01:00			`! If true, compute $X`
Repaired MPI and output grids to EZFIO 2009-11-06 00:27:24 +01:00			`END_DOC`
			`comp_$X = .False.`
			`call get_compute_$X(comp_$X)`
			`END_PROVIDER`

Introduced templates 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;;`
Repaired MPI and output grids to EZFIO 2009-11-06 00:27:24 +01:00
Introduced templates 2009-12-09 23:28:19 +01:00			`END_TEMPLATE`