mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-26 15:12:14 +02:00
23 lines
382 B
FortranFixed
23 lines
382 B
FortranFixed
|
BEGIN_TEMPLATE
|
||
|
|
||
|
BEGIN_PROVIDER [ integer, output_$NAME ]
|
||
|
implicit none
|
||
|
BEGIN_DOC
|
||
|
! Output file for $NAME
|
||
|
END_DOC
|
||
|
integer :: getUnitAndOpen
|
||
|
call ezfio_set_output_empty(.False.)
|
||
|
output_$NAME = getUnitAndOpen(trim(ezfio_filename)//'/output/'//'$NAME','w')
|
||
|
END_PROVIDER
|
||
|
|
||
|
SUBST [ NAME ]
|
||
|
|
||
|
AO ;;
|
||
|
MO ;;
|
||
|
AO_integrals ;;
|
||
|
MO_integrals ;;
|
||
|
|
||
|
END_TEMPLATE
|
||
|
|
||
|
|