For use with OpenMP.  
More...
|  | 
| subroutine, public | par_zigset (npar, par_jsrseed, grainsize) | 
|  | 
| subroutine, public | delete_par_zig (dummy) | 
|  | 
| integer function, public | par_shr3 (kpar) | 
|  | 
| real(dp) function, public | par_uni (kpar) | 
|  | 
| real(dp) function, public | par_rnor (kpar) | 
|  | 
| real(dp) function, public | par_rexp (kpar) | 
|  | 
| subroutine, public | generate_seed_from_clock (seed) | 
|  | suffer overflow, not sure correct in original case  More... 
 | 
|  | 
|  | 
| integer, parameter | dp =SELECTED_REAL_KIND( 12, 60 ) | 
|  | 
| real(dp), parameter | m1 =2147483648.0_DP | 
|  | 
| real(dp), parameter | m2 =2147483648.0_DP | 
|  | 
| real(dp), parameter | half =0.5_DP | 
|  | 
| real(dp), parameter | dn0 =3.442619855899_DP | 
|  | 
| real(dp), parameter | tn0 =3.442619855899_DP | 
|  | 
| real(dp), parameter | vn =0.00991256303526217_DP | 
|  | 
| real(dp), parameter | de0 =7.697117470131487_DP | 
|  | 
| real(dp), parameter | te0 =7.697117470131487_DP | 
|  | 
| real(dp), parameter | ve =0.003949659822581572_DP | 
|  | 
| integer, save | par_n = 0 | 
|  | 
| integer, save | par_step | 
|  | 
| integer, dimension(:), allocatable, save | par_jsr | 
|  | 
| integer, dimension(:,:), allocatable, save | par_kn | 
|  | 
| integer, dimension(:,:), allocatable, save | par_ke | 
|  | 
| real(dp), dimension(:,:), allocatable, save | par_wn | 
|  | 
| real(dp), dimension(:,:), allocatable, save | par_fn | 
|  | 
| real(dp), dimension(:,:), allocatable, save | par_we | 
|  | 
| real(dp), dimension(:,:), allocatable, save | par_fe | 
|  | 
For use with OpenMP. 
Each thread has its own random generator sequence Use for bd_move, both sda_2proteins and sdamm
 see Random Generator Number 
◆ delete_par_zig()
      
        
          | subroutine, public par_zig_mod::delete_par_zig | ( | integer | dummy | ) |  | 
      
 
 
◆ generate_seed_from_clock()
      
        
          | subroutine, public par_zig_mod::generate_seed_from_clock | ( | integer, intent(out) | seed | ) |  | 
      
 
suffer overflow, not sure correct in original case 
 
 
◆ par_rexp()
      
        
          | real(dp) function, public par_zig_mod::par_rexp | ( | integer | kpar | ) |  | 
      
 
 
◆ par_rnor()
      
        
          | real(dp) function, public par_zig_mod::par_rnor | ( | integer | kpar | ) |  | 
      
 
 
◆ par_shr3()
      
        
          | integer function, public par_zig_mod::par_shr3 | ( | integer | kpar | ) |  | 
      
 
 
◆ par_uni()
      
        
          | real(dp) function, public par_zig_mod::par_uni | ( | integer | kpar | ) |  | 
      
 
 
◆ par_zigset()
      
        
          | subroutine, public par_zig_mod::par_zigset | ( | integer, intent(in) | npar, | 
        
          |  |  | integer, dimension(*), intent(in) | par_jsrseed, | 
        
          |  |  | integer, intent(in) | grainsize | 
        
          |  | ) |  |  | 
      
 
 
◆ de0
  
  | 
        
          | real(dp), parameter par_zig_mod::de0 =7.697117470131487_DP |  | private | 
 
 
◆ dn0
  
  | 
        
          | real(dp), parameter par_zig_mod::dn0 =3.442619855899_DP |  | private | 
 
 
◆ dp
  
  | 
        
          | integer, parameter par_zig_mod::dp =SELECTED_REAL_KIND( 12, 60 ) |  | private | 
 
 
◆ half
  
  | 
        
          | real(dp), parameter par_zig_mod::half =0.5_DP |  | private | 
 
 
◆ m1
  
  | 
        
          | real(dp), parameter par_zig_mod::m1 =2147483648.0_DP |  | private | 
 
 
◆ m2
  
  | 
        
          | real(dp), parameter par_zig_mod::m2 =2147483648.0_DP |  | private | 
 
 
◆ par_fe
  
  | 
        
          | real(dp), dimension(:,:), allocatable, save par_zig_mod::par_fe |  | private | 
 
 
◆ par_fn
  
  | 
        
          | real(dp), dimension(:,:), allocatable, save par_zig_mod::par_fn |  | private | 
 
 
◆ par_jsr
  
  | 
        
          | integer, dimension(:), allocatable, save par_zig_mod::par_jsr |  | private | 
 
 
◆ par_ke
  
  | 
        
          | integer, dimension(:,:), allocatable, save par_zig_mod::par_ke |  | private | 
 
 
◆ par_kn
  
  | 
        
          | integer, dimension(:,:), allocatable, save par_zig_mod::par_kn |  | private | 
 
 
◆ par_n
  
  | 
        
          | integer, save par_zig_mod::par_n = 0 |  | private | 
 
 
◆ par_step
  
  | 
        
          | integer, save par_zig_mod::par_step |  | private | 
 
 
◆ par_we
  
  | 
        
          | real(dp), dimension(:,:), allocatable, save par_zig_mod::par_we |  | private | 
 
 
◆ par_wn
  
  | 
        
          | real(dp), dimension(:,:), allocatable, save par_zig_mod::par_wn |  | private | 
 
 
◆ te0
  
  | 
        
          | real(dp), parameter par_zig_mod::te0 =7.697117470131487_DP |  | private | 
 
 
◆ tn0
  
  | 
        
          | real(dp), parameter par_zig_mod::tn0 =3.442619855899_DP |  | private | 
 
 
◆ ve
  
  | 
        
          | real(dp), parameter par_zig_mod::ve =0.003949659822581572_DP |  | private | 
 
 
◆ vn
  
  | 
        
          | real(dp), parameter par_zig_mod::vn =0.00991256303526217_DP |  | private |