| Symbol | Description | Uses |
| xs | 6 |
| File | Line number | Procedure | Code |
| ./model/src/port_rand.F | 134 | PORT_RANARR |
real*8 x1, x2, xs, t |
| ./model/src/port_rand.F | 150 | PORT_RANARR |
xs=x1**2+x2**2 |
| ./model/src/port_rand.F | 151 | PORT_RANARR |
if(xs .lt. 1.0 .and. xs .ne. 0.0) then |
| ./model/src/port_rand.F | 157 | PORT_RANARR |
t = sqrt(-2.0*log(xs)/xs) |