dc_scaledsec::assignment(=) Interface Reference

Public Member Functions
subroutine	dcscaledseccreater (sclsec, sec)
subroutine	dcscaledseccreated (sclsec, sec)
subroutine	dcscaledseccreatei (sclsec, sec)
subroutine	dcscaledsectonumr (sec, sclsec)
subroutine	dcscaledsectonumd (sec, sclsec)
subroutine	dcscaledsectonumi (sec, sclsec)

Detailed Description

Definition at line 135 of file dc_scaledsec.f90.

Member Function/Subroutine Documentation

dcscaledseccreated()

subroutine dc_scaledsec::assignment(=)::dcscaledseccreated	(	type(dc_scaled_sec), intent(out)	sclsec,
		real(dp), intent(in)	sec
	)

Definition at line 282 of file dc_scaledsec.f90.

    use dc_message, only: messagenotify
    use dc_error, only: storeerror, dc_noerr, dc_etoolargetime
    use dc_trace, only: beginsub, endsub
    use dc_types, only: dp, string
    implicit none
    type(DC_SCALED_SEC), intent(out):: sclsec
    real(DP), intent(in):: sec
 
    real(DP):: work_sec, print_sec
    integer:: i, cd, move_up, work_sec_scl_nint
 
    integer :: stat
    character(STRING) :: cause_c
    character(*), parameter:: subname = 'dc_scaledsec'
  continue
    !call BeginSub(subname, 'sec=<%f>', d = (/ sec /) )
    stat = dc_noerr
    cause_c = ''
 
    cd = 0
    if ( sec < 0.0_dp ) then
      sclsec % flag_negative = .true.
      work_sec = - sec
    else
      sclsec % flag_negative = .false.
      work_sec = sec
    end if
 
    if ( work_sec > scale_factor_xx(imax + 1) ) then
      call messagenotify( 'W', subname, &
        & 'input number (%f) is too large.', &
        & d = (/ sec /) )
      stat = dc_etoolargetime
      goto 999
    end if
 
    sclsec % sec_ary = 0
    do i = imax, imin, -1
 
      work_sec_scl_nint = nint( work_sec * scale_factor_xx(-i) )
      if ( .not. work_sec < scale_factor_xx(i) &
        &  .or.  ( i == imin .and. work_sec_scl_nint >= 1 )  ) then
 
        if ( i < 0 ) then
          sclsec % sec_ary(i) = work_sec_scl_nint
        else
          sclsec % sec_ary(i) = int( work_sec / scale_factor_xx(i) )
        end if
        work_sec = work_sec - sclsec % sec_ary(i) * scale_factor_xx(i)
        cd = cd + count_digit( sclsec % sec_ary(i) )
      end if
      if ( cd > 5 ) then
        if ( .not. abs( work_sec ) < scale_factor_xx(i-1) ) then
          print_sec = sclsec
!!$          call MessageNotify( 'W', subname, &
!!$            & 'input number (%f) is truncated to (%f).', &
!!$            & d = (/ sec, print_sec /) )
        end if
        exit
      end if
    end do
 
    move_up = 0
    do i = imin, imax
      sclsec % sec_ary(i) = sclsec % sec_ary(i) + move_up
      move_up = 0
      do while ( sclsec % sec_ary(i) >= scale_factor_int )
        move_up = move_up + 1
        sclsec % sec_ary(i) = sclsec % sec_ary(i) - scale_factor_int
      end do
    end do
 
999 continue
    call storeerror(stat, subname, cause_c=cause_c)
    !call EndSub(subname)

References dc_trace::beginsub(), dc_error::dc_etoolargetime, dc_error::dc_noerr, dc_trace::endsub(), dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

dcscaledseccreatei()

subroutine dc_scaledsec::assignment(=)::dcscaledseccreatei	(	type(dc_scaled_sec), intent(out)	sclsec,
		integer, intent(in)	sec
	)

Definition at line 262 of file dc_scaledsec.f90.

    implicit none
    type(DC_SCALED_SEC), intent(out):: sclsec
    integer, intent(in):: sec
  continue
    call dcscaledseccreated(sclsec, real( sec, dp ))

dcscaledseccreater()

subroutine dc_scaledsec::assignment(=)::dcscaledseccreater	(	type(dc_scaled_sec), intent(out)	sclsec,
		real, intent(in)	sec
	)

Definition at line 272 of file dc_scaledsec.f90.

    implicit none
    type(DC_SCALED_SEC), intent(out):: sclsec
    real, intent(in):: sec
  continue
    call dcscaledseccreated(sclsec, real( sec, dp ))

dcscaledsectonumd()

subroutine dc_scaledsec::assignment(=)::dcscaledsectonumd	(	real(dp), intent(out)	sec,
		type(dc_scaled_sec), intent(in)	sclsec
	)

Definition at line 388 of file dc_scaledsec.f90.

    use dc_types, only: dp
    implicit none
    real(DP), intent(out):: sec
    type(DC_SCALED_SEC), intent(in):: sclsec
 
    integer:: i
  continue
    sec = 0.0_dp
    do i = imax, imin, -1
      sec = sec + ( sclsec % sec_ary(i) * scale_factor_xx(i) )
    end do
    if ( sclsec % flag_negative ) sec = - sec

dcscaledsectonumi()

subroutine dc_scaledsec::assignment(=)::dcscaledsectonumi	(	integer, intent(out)	sec,
		type(dc_scaled_sec), intent(in)	sclsec
	)

Definition at line 362 of file dc_scaledsec.f90.

    use dc_types, only: dp
    implicit none
    integer, intent(out):: sec
    type(DC_SCALED_SEC), intent(in):: sclsec
    real(DP):: secd
  continue
    call dcscaledsectonumd(secd, sclsec)
    sec = nint( secd )

dcscaledsectonumr()

subroutine dc_scaledsec::assignment(=)::dcscaledsectonumr	(	real, intent(out)	sec,
		type(dc_scaled_sec), intent(in)	sclsec
	)

Definition at line 375 of file dc_scaledsec.f90.

    use dc_types, only: dp
    implicit none
    real, intent(out):: sec
    type(DC_SCALED_SEC), intent(in):: sclsec
    real(DP):: secd
  continue
    call dcscaledsectonumd(secd, sclsec)
    sec = real( secd )

---

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

• dc_utils/dc_scaledsec.f90