Skip to Content.
Sympa Menu

forum - Re: [abinit-forum] about Test_v4/t75.out and MPI_GROUP_MAX

forum@abinit.org

Subject: The ABINIT Users Mailing List ( CLOSED )

List archive

Re: [abinit-forum] about Test_v4/t75.out and MPI_GROUP_MAX


Chronological Thread 
  • From: "D. R. Hamann" <drh@bell-labs.com>
  • To: forum@abinit.org
  • Subject: Re: [abinit-forum] about Test_v4/t75.out and MPI_GROUP_MAX
  • Date: Tue, 30 Mar 2004 14:56:35 -0500

Dear Hu,

I don't know about the MPI error, but the elastic tensor error may be
caused by a recently discovered bug in Src_6response/ewald4.f.  One
line should be added following line 96.  This and a few nearby lines
are attached.  This is an initialization bug, and only showed up on a
few platforms.

Don Hamann

kxyhu@yahoo.com.cn wrote:
Hello,

I use a sgi3800 ,and ABINIT 4.3.2 . There has a MPI erro, which is beyond the MPI_GROUP_MAX ,what is the meaning?  
When I run the Test_v4/t75.in using abinis,there are zero divided by zero in the output file 
 Rigid-atom elastic tensor , in cartesian coordinates,  
    j1       j2             matrix element              
 dir pert dir pert     real part    imaginary part      
                                                        
  1    5   1    5    0.0047961362    0.0000000000       
  1    5   2    5    0.0021679259    0.0000000000       
  1    5   3    5    0.0021679259    0.0000000000       
  1    5   1    6   -0.0000000001    0.0000000000       
  1    5   2    6             NaN    0.0000000000       
  1    5   3    6             NaN    0.0000000000       
                                                        
  2    5   1    5    0.0021679218    0.0000000000       
  2    5   2    5    0.0047961402    0.0000000000       
  2    5   3    5    0.0021679259    0.0000000000       
  2    5   1    6   -0.0000000001    0.0000000000       
  2    5   2    6    0.0000000000    0.0000000000       
  2    5   3    6    0.0000000000    0.0000000000       
                                                        
  3    5   1    5    0.0021679218    0.0000000000       
  3    5   2    5    0.0021679259    0.0000000000       
  3    5   3    5    0.0047961401    0.0000000000       
  3    5   1    6             NaN    0.0000000000       
  3    5   2    6   -0.0994762006    0.0000000000       
  3    5   3    6             NaN    0.0000000000       
                                                        
  1    6   1    5    0.0000000000    0.0000000000       
  1    6   2    5    0.0000000000    0.0000000000       
  1    6   3    5             NaN    0.0000000000       
  1    6   1    6             NaN    0.0000000000       
  1    6   2    6    0.0000000000    0.0000000000       
  1    6   3    6    0.0000000000    0.0000000000       
                                                        
  2    6   1    5             NaN    0.0000000000       
  2    6   2    5    0.0000000000    0.0000000000       
  2    6   3    5   -0.0994762005    0.0000000000       
  2    6   1    6    0.0000000000    0.0000000000       
  2    6   2    6    0.0030446917    0.0000000000       
  2    6   3    6    0.0000000000    0.0000000000       
                                                        
  3    6   1    5             NaN    0.0000000000       
  3    6   2    5    0.0000000000    0.0000000000       
  3    6   3    5             NaN    0.0000000000       
  3    6   1    6    0.0000000000    0.0000000000       
  3    6   2    6    0.0000000000    0.0000000000       
  3    6   3    6    0.0030446917    0.0000000000       

What is the reasion?

Thank you
hu

  

-- 
D. R. Hamann				Phone: 908-582-4454
Director, Theoretical Materials    	Fax:   908-582-4702
  Physics Research (retired)		email: drh@physics.bell-labs.com
Bell Laboratories 
Lucent Technologies
700 Mountain Ave, Room 1D-371
Murray Hill, NJ 07974-0636 USA
! Loop over 1st strain index, upper triangle only
do is1=1,is2

ka=idx(2*is1-1);kb=idx(2*is1)
d2rm(:,:,is1,is2)=0.d0
d2gm(:,:,is1,is2)=0.d0 !***BUG FIX***
do jj = 1,3
if(ka==kg) d2rm(:,jj,is1,is2)=d2rm(:,jj,is1,is2)&
& +rprimd(kb,:)*rprimd(kd,jj)+rprimd(kd,:)*rprimd(kb,jj)



Archive powered by MHonArc 2.6.16.

Top of Page