mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-24 21:41:46 +02:00
Fixed MOGuess
This commit is contained in:
parent
53bca8fc92
commit
972147dc6f
@ -4,7 +4,7 @@ let global_replace x =
|
||||
|> Str.global_replace (Str.regexp "Float.of_string") "float_of_string"
|
||||
|> Str.global_replace (Str.regexp "Int.to_string") "string_of_int"
|
||||
|> Str.global_replace (Str.regexp "Int.of_string") "int_of_string"
|
||||
|> Str.global_replace (Str.regexp "String.\(to\|of\)_string") ""
|
||||
|> Str.global_replace (Str.regexp "String.\\(to\\|of\\)_string") ""
|
||||
|
||||
let input_data = "
|
||||
* Positive_float : float
|
||||
@ -184,7 +184,7 @@ end = struct
|
||||
| HCore -> \"HCore\"
|
||||
|
||||
let of_string s =
|
||||
match (String.lowercase s) with
|
||||
match (String.lowercase_ascii s) with
|
||||
| \"huckel\" -> Huckel
|
||||
| \"hcore\" -> HCore
|
||||
| _ -> raise (Invalid_argument (\"Wrong Guess type : \"^s))
|
||||
@ -207,7 +207,7 @@ end = struct
|
||||
| Write -> \"Write\"
|
||||
| None -> \"None\"
|
||||
let of_string s =
|
||||
match (String.lowercase s) with
|
||||
match (String.lowercase_ascii s) with
|
||||
| \"read\" -> Read
|
||||
| \"write\" -> Write
|
||||
| \"none\" -> None
|
||||
|
@ -1,9 +1,9 @@
|
||||
program H_CORE_guess
|
||||
program H_CORE_guess_prog
|
||||
BEGIN_DOC
|
||||
! Produce `H_core` MO orbital
|
||||
! output: mo_basis.mo_tot_num mo_basis.mo_label mo_basis.ao_md5 mo_basis.mo_coef mo_basis.mo_occ
|
||||
END_DOC
|
||||
implicit none
|
||||
character*(64) :: label
|
||||
call h_core_guess
|
||||
call hcore_guess
|
||||
end
|
||||
|
Loading…
Reference in New Issue
Block a user