mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-11-07 06:33:49 +01:00
12 lines
165 B
Fortran
12 lines
165 B
Fortran
|
program print_var_energy
|
||
|
|
implicit none
|
||
|
|
read_wf = .True.
|
||
|
|
touch read_wf
|
||
|
|
call routine
|
||
|
|
end
|
||
|
|
|
||
|
|
subroutine routine
|
||
|
|
implicit none
|
||
|
|
print*,'psi_energy = ',psi_energy
|
||
|
|
end
|