Oops,
I wrote:
you should move data column in your B2EPS.freq file by your hands.
But, current (version 6.6.2) output format of B2EPS.freq is one frequency per one line.
Please apply following patch to sortph.F90, then
(1) ./anaddb < NaCl-anaddb.files
(2) Add LO-TO splitting to NaCl-anaddb.out_B2EPS.freq, for example.
(3) ./band2eps < NaCl-band2eps.files
(4) Move data column in NaCl-anaddb.out_B2EPS.freq, if necessary.
With the patch, you can easily find which part should be moved.
If you are an Emacs user, C-x r k (kill-rectangle) and
C-x r y (yank-rectangle) are useful.
Repeat (3) and (4), if necessary.
Please note that you will lost correspondence between B2EPS.freq file
and B2EPS.displ file, if you move data column only in B2EPS.freq.
Code: Select all
--- abinit-6.6.2/src/77_ddb/sortph.F90 2011-04-03 01:54:26.000000000 +0900
+++ abinit-6.6.2/new-anaddb/src/77_ddb/sortph.F90 2011-05-08 14:57:08.082814939 +0900
@@ -82,6 +82,7 @@
complex(dpc) :: transpose_eigvec(3*natom,3*natom)
real(dp) :: abs_similarity(3*natom,3*natom) !|<displNew|displLast>|
complex(dpc),allocatable,save :: eigvecLast(:,:)
+character(len=20) :: fmt_phfrq
! *********************************************************************
@@ -132,7 +133,8 @@
! Write frequencies in a file
-write(ufreq,'(d14.6))') (phfrqNew(j),j=1,3*natom)
+write(fmt_phfrq,'(a,i3,a)') '(', 3*natom, 'd14.6)'
+write(ufreq,fmt_phfrq) (phfrqNew(j),j=1,3*natom)
! write displacements in a file
do imode=1,3*natom
Ciao, ciao,