libsim Versione 7.1.11

◆ timedelta_getval()

pure subroutine timedelta_getval ( type(timedelta), intent(in)  this,
integer, intent(out), optional  year,
integer, intent(out), optional  month,
integer, intent(out), optional  amonth,
integer, intent(out), optional  day,
integer, intent(out), optional  hour,
integer, intent(out), optional  minute,
integer, intent(out), optional  sec,
integer, intent(out), optional  msec,
integer, intent(out), optional  ahour,
integer, intent(out), optional  aminute,
integer, intent(out), optional  asec,
integer(kind=int_ll), intent(out), optional  amsec,
character(len=*), intent(out), optional  isodate,
character(len=*), intent(out), optional  simpledate,
character(len=12), intent(out), optional  oraclesimdate 
)
private

Restituisce il valore di un oggetto timedelta in una o pi� modalit� desiderate.

Qualsiasi combinazione dei parametri opzionali � consentita. oraclesimedate � obsoleto, usare piuttosto simpledate.

Parametri
[in]thisoggetto di cui restituire il valore
[out]yearanni, /=0 solo per intervalli "popolari"
[out]monthmesi modulo 12, /=0 solo per intervalli "popolari"
[out]amonthmesi totali, /=0 solo per intervalli "popolari"
[out]daygiorni totali
[out]hourore modulo 24
[out]minuteminuti modulo 60
[out]secsecondi modulo 60
[out]msecmillisecondi modulo 1000
[out]ahourore totali
[out]aminuteminuti totali
[out]asecsecondi totali
[out]amsecmillisecondi totali
[out]isodateintervallo totale nel formato GGGGGGGGGG hh:mm:ss.msc (simil-ISO), la variabile può essere più corta di 23 caratteri, in tal caso conterr� solo ci� che vi cape
[out]simpledateintervallo totale nel formato GGGGGGGGhhmmssmsc , la variabile pu� essere pi� corta di 17 caratteri, in tal caso conterr� solo ci� che vi cape, da preferire rispetto a oraclesimdate
[out]oraclesimdateintervallo totale nel formato GGGGGGGGhhmm

Definizione alla linea 1702 del file datetime_class.F90.

1705 ltendaysp=imiss
1706 lmonth=imiss
1707 lday=imiss
1708 lhour=imiss
1709 lminute=imiss
1710
1711 if (c_e(chardate))then
1712 ! TMMGGhhmm
1713 read(chardate(1:1),'(i1)',iostat=ios)ltendaysp
1714 !print*,chardate(1:1),ios,ltendaysp
1715 if (ios /= 0)ltendaysp=imiss
1716
1717 read(chardate(2:3),'(i2)',iostat=ios)lmonth
1718 !print*,chardate(2:3),ios,lmonth
1719 if (ios /= 0)lmonth=imiss
1720
1721 read(chardate(4:5),'(i2)',iostat=ios)lday
1722 !print*,chardate(4:5),ios,lday
1723 if (ios /= 0)lday=imiss
1724
1725 read(chardate(6:7),'(i2)',iostat=ios)lhour
1726 !print*,chardate(6:7),ios,lhour
1727 if (ios /= 0)lhour=imiss
1728
1729 read(chardate(8:9),'(i2)',iostat=ios)lminute
1730 !print*,chardate(8:9),ios,lminute
1731 if (ios /= 0)lminute=imiss
1732 end if
1733
1734 this%tendaysp=ltendaysp
1735 this%month=lmonth
1736 this%day=lday
1737 this%hour=lhour
1738 this%minute=lminute
1739else
1740 this%tendaysp=optio_l(tendaysp)
1741 this%month=optio_l(month)
1742 this%day=optio_l(day)
1743 this%hour=optio_l(hour)
1744 this%minute=optio_l(minute)
1745end if
1746
1747END FUNCTION cyclicdatetime_new
1748
1751elemental FUNCTION cyclicdatetime_to_char(this) RESULT(char)
1752TYPE(cyclicdatetime),INTENT(IN) :: this
1753
1754CHARACTER(len=80) :: char
1755
1756char=to_char(this%tendaysp)//";"//to_char(this%month)//";"//to_char(this%day)//";"//&
1757to_char(this%hour)//";"//to_char(this%minute)
1758
1759END FUNCTION cyclicdatetime_to_char
1760
1761
1774FUNCTION cyclicdatetime_to_conventional(this) RESULT(dtc)
1775TYPE(cyclicdatetime),INTENT(IN) :: this
1776
1777TYPE(datetime) :: dtc
1778
1779integer :: year,month,day,hour
1780
1781dtc = datetime_miss

Generated with Doxygen.