source quantum_package.rc in travis

.travis.yml

@@ -24,8 +24,7 @@ python:
 
 script: 
   - ./configure  --production ./config/gfortran.cfg
-  - source ./quantum_package.rc
-  - qp_module.py install Full_CI Hartree_Fock CAS_SD MRCC_CASSD
-  - ninja
-  - cd ocaml ; make ; cd -
-  - cd test ; bats bats/qp.bats
+  - source ./quantum_package.rc ; qp_module.py install Full_CI Hartree_Fock CAS_SD MRCC_CASSD
+  - source ./quantum_package.rc ; ninja
+  - source ./quantum_package.rc ; cd ocaml ; make ; cd -
+  - source ./quantum_package.rc ; cd tests ; bats bats/qp.bats

ocaml/.gitignore

@@ -17,6 +17,8 @@ qp_edit
 qp_edit.ml
 qp_edit.native
 qp_print
+qp_print_basis
+qp_print_basis.native
 qp_print.native
 qp_run
 qp_run.native

ocaml/Basis.ml

@@ -1,7 +1,7 @@
-open Core.Std;;
-open Qptypes;;
+open Core.Std
+open Qptypes
 
-type t = (Gto.t * Nucl_number.t) list with sexp;;
+type t = (Gto.t * Nucl_number.t) list with sexp
 
 (** Read all the basis functions of an element *)
 let read in_channel at_number =
@@ -12,7 +12,7 @@ let read in_channel at_number =
     with
     | Gto.End_Of_Basis -> List.rev result
   in read []  
-;;
+
 
 (** Find an element in the basis set file *)
 let find in_channel element =
@@ -27,13 +27,13 @@ let find in_channel element =
     | Element.ElementError _ -> ()
   done ;
   !element_read
-;;
+
 
 (** Read an element from the file *)
 let read_element in_channel at_number element =
   ignore (find in_channel element) ;
-  read in_channel at_number ;
-;;
+  read in_channel at_number 
+
 
 let to_string b =
   let new_nucleus n = 
@@ -55,9 +55,9 @@ let to_string b =
   in
   do_work [new_nucleus 1] 1 b
   |> String.concat ~sep:"\n"
-;;
 
-include To_md5;;
+
+include To_md5
 let to_md5 = to_md5 sexp_of_t
-;;
+