Subversion Repositories lagranto.icon

Rev

Rev 3 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3 Rev 5
Line 705... Line 705...
705 
	              else
 705 
	              else
706 
	              	 f0 = mdv
 706 
	              	 f0 = mdv
707 
	              endif
 707 
	              endif
708 
 
 708 
 
709 
c	              For a vector field, we need the second component
 709 
c	              For a vector field, we need the second component
710 
	              if ( (vector(i).ne.0).and.(abs(f0-mdv).gt.eps) ) then
 710 
	              if((vector(i).ne.0).and.(abs(f0-mdv).gt.eps))then
711 
	              	   v0 = int_index4(v3t0,v3t1,nx,ny,nz,
 711 
	              	   v0 = int_index4(v3t0,v3t1,nx,ny,nz,
712 
     >                                  xind,yind,zind,reltpos0,mdv)
 712 
     >                                  xind,yind,zind,reltpos0,mdv)
713 
	              else
 713 
	              else
714 
	              	   v0 = mdv
 714 
	              	   v0 = mdv
715 
	              endif
 715 
	              endif