|
|
@@ -113,6 +113,7 @@ |
|
|
!> \endverbatim |
|
|
!> \endverbatim |
|
|
! |
|
|
! |
|
|
subroutine CLARTG( f, g, c, s, r ) |
|
|
subroutine CLARTG( f, g, c, s, r ) |
|
|
|
|
|
use iso_fortran_env |
|
|
use LA_CONSTANTS, & |
|
|
use LA_CONSTANTS, & |
|
|
only: wp=>sp, zero=>szero, one=>sone, two=>stwo, czero, & |
|
|
only: wp=>sp, zero=>szero, one=>sone, two=>stwo, czero, & |
|
|
safmin=>ssafmin, safmax=>ssafmax |
|
|
safmin=>ssafmin, safmax=>ssafmax |
|
|
|