libsim Versione 7.1.11
|
◆ datetime_new_now()
Initialize a datetime object with the current system time.
Definizione alla linea 821 del file datetime_class.F90. 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
830DO i = 1, SIZE(dateiso)
831 CALL init(this(i), isodate=dateiso(i))
832ENDDO
833DEALLOCATE(dateiso)
834
835END SUBROUTINE datetime_vect_read_unit
|