dc_scaledsec::sign Interface Reference

Private Member Functions
type(dc_scaled_sec) function	dcscaledsec_sign_si (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_sign_sr (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_sign_sd (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_sign_ss (sclsec1, sclsec2)

Detailed Description

Definition at line 180 of file dc_scaledsec.f90.

Member Function/Subroutine Documentation

dcscaledsec_sign_sd()

type(dc_scaled_sec) function dc_scaledsec::sign::dcscaledsec_sign_sd ( type(dc_scaled_sec), intent(in)  sclsec, real(dp), intent(in)  factor  )

private

Definition at line 1974 of file dc_scaledsec.f90.

    !
    ! sclsec の絶対値に factor の符号をつけたものを返す. 
    ! 
    ! Return an absolute value of "sclsec" with sign of "factor".
    !
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    real(DP), intent(in):: factor
    type(dc_scaled_sec):: sclsec_work
  continue
    sclsec_work = factor
    result = sign( sclsec, sclsec_work )

dcscaledsec_sign_si()

type(dc_scaled_sec) function dc_scaledsec::sign::dcscaledsec_sign_si ( type(dc_scaled_sec), intent(in)  sclsec, integer, intent(in)  factor  )

private

Definition at line 1940 of file dc_scaledsec.f90.

    !
    ! sclsec の絶対値に factor の符号をつけたものを返す. 
    ! 
    ! Return an absolute value of "sclsec" with sign of "factor".
    !
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    integer, intent(in):: factor
    type(dc_scaled_sec):: sclsec_work
  continue
    sclsec_work = factor
    result = sign( sclsec, sclsec_work )

dcscaledsec_sign_sr()

type(dc_scaled_sec) function dc_scaledsec::sign::dcscaledsec_sign_sr ( type(dc_scaled_sec), intent(in)  sclsec, real, intent(in)  factor  )

private

Definition at line 1957 of file dc_scaledsec.f90.

    !
    ! sclsec の絶対値に factor の符号をつけたものを返す. 
    ! 
    ! Return an absolute value of "sclsec" with sign of "factor".
    !
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    real, intent(in):: factor
    type(dc_scaled_sec):: sclsec_work
  continue
    sclsec_work = factor
    result = sign( sclsec, sclsec_work )

dcscaledsec_sign_ss()

type(dc_scaled_sec) function dc_scaledsec::sign::dcscaledsec_sign_ss ( type(dc_scaled_sec), intent(in)  sclsec1, type(dc_scaled_sec), intent(in)  sclsec2  )

private

Definition at line 1925 of file dc_scaledsec.f90.

    !
    ! sclsec1 の絶対値に sclsec2 の符号をつけたものを返す. 
    ! 
    ! Return an absolute value of "sclsec1" with sign of "sclsec2".
    !
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec1, sclsec2
  continue
    result = sclsec1
    result % flag_negative = sclsec2 % flag_negative

---

The documentation for this interface was generated from the following file:

• dc_utils/dc_scaledsec.f90