CHARACTER*45  HEADER2   
		 real*4 aminmax  

                 PARAMETER (AEXPN2 = 1.000 )!0.904           
                 PARAMETER (AEXP02 = 1.0) 
                 PARAMETER (ASTEP2  = 1.0)  
                 PARAMETER (ISTEP2  = 2048)   
                 PARAMETER (Om02    = 0.3)   
                 PARAMETER (Oml02   = 0.7)  
                 PARAMETER (hubble2 = 0.7)  
                 PARAMETER (Ocurv2  = 0.0) 
                 PARAMETER (PARTW2 = 1.0 ) 
                 PARAMETER (HEADER2 = 'aexpn=1. Box20Mpc/h TIPSY FILE')   
                 PARAMETER (AMPLT2 = 1.0)    
                 PARAMETER (EKINB  = 1.0 )  
                 PARAMETER (EKIN1B = 1.0)   
                 PARAMETER (EKIN2B = 1.0)    
                 PARAMETER (BOX2 = 0.7) ! Mpc*h^-1   
                 PARAMETER (rscale = 2.87e4)    
                 PARAMETER (amscale = 3.17e15)    
                 PARAMETER (vscale = 691.0)  
c                 PARAMETER (aminmax = 6.7594e-11)  ! Dcs3 
c                 PARAMETER (aminmax = 1.57724e-10) ! Dcb3
c                 PARAMETER (aminmax = 1.1858856E-10) !Dcs3.100pc




        common/buff/xpt(nmaxpart),ypt(nmaxpart),               
     &    zpt(nmaxpart),vxpt(nmaxpart),vypt(nmaxpart),  
     &    vzpt(nmaxpart),aminmax