- 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.