| Symbol | Description | Uses |
| xs | 7 |
| File | Line number | Procedure | Code |
| ./model/src/port_rand.F | 153 | PORT_RANARR |
real*8 x1, x2, xs, t |
| ./model/src/port_rand.F | 165 | PORT_RANARR |
xs = 0.0 |
| ./model/src/port_rand.F | 166 | PORT_RANARR |
DO WHILE ( xs.GE.1.0 .OR. xs.EQ.0.0 ) |
| ./model/src/port_rand.F | 169 | PORT_RANARR |
xs=x1**2+x2**2 |
| ./model/src/port_rand.F | 172 | PORT_RANARR |
t = SQRT(-2.0*LOG(xs)/xs) |