373 |
! reverses their order. |
! reverses their order. |
374 |
! Finally, the procedure adds 90° as the last value of the array. |
! Finally, the procedure adds 90° as the last value of the array. |
375 |
|
|
376 |
use nr_util, only: assert_eq |
use nr_util, only: assert_eq, pi |
|
use comconst, only: pi |
|
377 |
|
|
378 |
IMPLICIT NONE |
IMPLICIT NONE |
379 |
|
|
431 |
! This procedure converts to degrees, if necessary, and inverts the |
! This procedure converts to degrees, if necessary, and inverts the |
432 |
! order. |
! order. |
433 |
|
|
434 |
use comconst, only: pi |
use nr_util, only: pi |
435 |
|
|
436 |
IMPLICIT NONE |
IMPLICIT NONE |
437 |
|
|