00001 #ifdef __GNUG__
00002 #pragma implementation
00003 #endif
00004
00005 #ifndef _chemistry_qc_psi_input_timpl_h
00006 #define _chemistry_qc_psi_input_timpl_h
00007
00008 using namespace std;
00009 using namespace sc;
00010
00011 #include<chemistry/qc/psi/psiinput.h>
00012
00013 template <typename T>
00014 void
00015 PsiInput::write_keyword_array(const char *keyword, int num, const std::vector<T>& values)
00016 {
00017 if (!can_run_on_me()) return;
00018 write_indent();
00019 file_ << scprintf("%s = (", keyword);
00020 file_ << setw(24) << setprecision(12);
00021 for (int i=0; i<num; i++) {
00022 file_ << values[i] << " ";
00023 }
00024 file_ << ")" << endl;
00025 }
00026
00027 #endif