LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-11-03 20:54:00 +01:00
Code Issues Releases Wiki Activity

Robots.txt

Browse Source
This commit is contained in:
Anthony Scemama 2014-09-18 10:04:00 +02:00
parent ad9107ec85
commit 12c7bcf99d
2 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ocaml/qp_set_mo_class.ml
View File

@ -147,22 +147,12 @@ let run ?(core="[]") ?(inact="[]") ?(act="[]") ?(virt="[]") ?(del="[]") ezfio_fi
)
in
let extract_hole = function
| (h,_) -> h
and extract_particle = function
| (_,p) -> p
and extract_hole1 = function
| (h,_,_,_) -> h
| _ -> assert false
and extract_particle1 = function
| (_,p,_,_) -> p
| _ -> assert false
and extract_hole2 = function
| (_,_,h,_) -> h
| _ -> assert false
and extract_particle2 = function
| (_,_,_,p) -> p
| _ -> assert false
let extract_hole (h,_) = h
and extract_particle (_,p) = p
and extract_hole1 (h,_,_,_) = h
and extract_particle1 (_,p,_,_) = p
and extract_hole2 (_,_,h,_) = h
and extract_particle2 (_,_,_,p) = p
in
let result = [
List.map ~f:extract_hole single_excitations

2
robots.txt Normal file
View File

@ -0,0 +1,2 @@
User-agent: *
Allow: /