Guest User

Untitled

a guest
Dec 14th, 2018
89
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.03 KB | None | 0 0
  1. &FCI
  2. NORB=280,
  3. NELEC=78,
  4. MS2=0,
  5. UHF=.FALSE.,
  6. ORBSYM=1,1,1,1,1,1,1,1,<...>
  7. &END
  8. 1.48971678130072078261E+01 1 1 1 1
  9. -1.91501428271686324756E+00 1 1 2 1
  10. 4.38796949990802698238E+00 1 1 2 2
  11.  
  12. &FCI NORB=280, NELEC=78, MS2=0, UHF=.FALSE.,
  13. ORBSYM=1,1,1,1,1,1,1,1,<...>
  14. ISYM=1,
  15. /
  16. 1.48971678130072078261E+01 1 1 1 1
  17. -1.91501428271686324756E+00 1 1 2 1
  18. 4.38796949990802698238E+00 1 1 2 2
  19.  
  20. #!/bin/bash
  21.  
  22. # $1 : FCIDUMP file to convert from "new format" to "old format"
  23.  
  24. if [ ${#} -ne 1 ]
  25. then
  26. echo "Syntaxis: fcidump_new2old FCIDUMPFILE" 1>$2
  27. exit 1
  28. fi
  29.  
  30. if egrep '&FCI ([a-zA-Z2 ]*=[0-9 ]*,){2,}' ${1} > /dev/null
  31. then
  32. echo "The provided file is already in old FCIDUMP format." 1>&2
  33. exit 2
  34. fi
  35.  
  36. sed '
  37. 1,20 {
  38. :a; N; $!ba
  39. s/(=[^,]*,)n/1 /g
  40. s/(&FCI)n/1 /
  41. s/ORBSYM/n&/g
  42. s/&END/ISYM=1,n//
  43. }' -i "${1}"
  44.  
  45. exit 0
  46.  
  47. script.sh: line 24: 406089 Killed sed '
  48. 1,20 {
  49. :a; N; $!ba
  50. s/(=[^,]*,)n/1 /g
  51. s/(&FCI)n/1 /
  52. s/ORBSYM/n&/g
  53. s/&END/ISYM=1,n//
  54. }' -i "${1}"
Add Comment
Please, Sign In to add comment