libsim Versione 7.2.1
|
◆ datetime_new_now()
Initialize a datetime object with the current system time.
Definizione alla linea 815 del file datetime_class.F90. 816TYPE(datetime) :: this(:)
817INTEGER, INTENT(in) :: unit
818
819CHARACTER(len=40) :: form
820CHARACTER(len=23), ALLOCATABLE :: dateiso(:)
821INTEGER :: i
822
823ALLOCATE(dateiso(SIZE(this)))
824INQUIRE(unit, form=form)
825IF (form == 'FORMATTED') THEN
826 READ(unit,'(A23,1X)')dateiso
827ELSE
828 READ(unit)dateiso
829ENDIF
|