mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-07 13:00:19 +02:00
29 lines
1002 B
Fortran
29 lines
1002 B
Fortran
use bitmasks
|
|
BEGIN_SHELL [ /usr/bin/env python ]
|
|
from generate_h_apply import *
|
|
|
|
s = H_apply("mrcc")
|
|
s.data["parameters"] = ", delta_ij_, delta_ii_,Ndet_cas, Ndet_non_cas"
|
|
s.data["declarations"] += """
|
|
integer, intent(in) :: Ndet_cas,Ndet_non_cas
|
|
double precision, intent(in) :: delta_ij_(Ndet_cas,Ndet_non_cas,*)
|
|
double precision, intent(in) :: delta_ii_(Ndet_cas,*)
|
|
"""
|
|
s.data["keys_work"] = "call mrcc_dress(delta_ij_,delta_ii_,Ndet_cas,Ndet_non_cas,i_generator,key_idx,keys_out,N_int,iproc)"
|
|
s.data["params_post"] += ", delta_ij_, delta_ii_, Ndet_cas, Ndet_non_cas"
|
|
s.data["params_main"] += "delta_ij_, delta_ii_, Ndet_cas, Ndet_non_cas"
|
|
s.data["decls_main"] += """
|
|
integer, intent(in) :: Ndet_cas,Ndet_non_cas
|
|
double precision, intent(in) :: delta_ij_(Ndet_cas,Ndet_non_cas,*)
|
|
double precision, intent(in) :: delta_ii_(Ndet_cas,*)
|
|
"""
|
|
s.data["finalization"] = ""
|
|
s.data["copy_buffer"] = ""
|
|
s.data["generate_psi_guess"] = ""
|
|
s.data["size_max"] = "3072"
|
|
print s
|
|
|
|
|
|
END_SHELL
|
|
|