| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | module parse_ants | ||
| 2 | implicit none | ||
| 3 | integer, parameter :: maxlen = 350 | ||
| 4 | |||
| 5 | contains | ||
| 6 | |||
| 7 | ✗ | subroutine process_line(line, v_par, v_perp, u, v, s) | |
| 8 | character(maxlen), intent(in) :: line | ||
| 9 | integer :: i | ||
| 10 | real(8), intent(out) :: v_par, v_perp, u, v, s | ||
| 11 | |||
| 12 | ✗ | do i = 1, maxlen | |
| 13 | ✗ | if (line(i-6:i) == 'v_par =') read(line(i+1:maxlen), *) v_par | |
| 14 | ✗ | if (line(i-7:i) == 'v_perp =') read(line(i+1:maxlen), *) v_perp | |
| 15 | ✗ | if (line(i-2:i) == 'u =') read(line(i+1:maxlen), *) u | |
| 16 | ✗ | if (line(i-2:i) == 'v =') read(line(i+1:maxlen), *) v | |
| 17 | ✗ | if (line(i-2:i) == 's =') read(line(i+1:maxlen), *) s | |
| 18 | end do | ||
| 19 | ✗ | end subroutine process_line | |
| 20 | end module parse_ants | ||
| 21 |