Public 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 )

Definition at line 1973 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 )

Definition at line 1939 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 )

Definition at line 1956 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 )

Definition at line 1924 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: