| Symbol | Description | Uses |
| xs | 6 |
| File | Line number | Procedure | Code |
| ./model/src/port_rand.F | 153 | PORT_RANARR |
real*8 x1, x2, xs, t |
| ./model/src/port_rand.F | 168 | PORT_RANARR |
xs=x1**2+x2**2 |
| ./model/src/port_rand.F | 169 | PORT_RANARR |
IF (xs .LT. 1.0 .AND. xs .NE. 0.0) THEN |
| ./model/src/port_rand.F | 175 | PORT_RANARR |
t = SQRT(-2.0*LOG(xs)/xs) |