libsim Versione 7.1.11
|
◆ arrayof_datetime_remove()
Method for removing elements of the array at a desired position. If necessary, the array is reallocated to reduce space.
Definizione alla linea 1358 del file datetime_class.F90. 1363
1364END FUNCTION timedelta_abs
1365
1366
1371SUBROUTINE timedelta_read_unit(this, unit)
1372TYPE(timedelta),INTENT(out) :: this
1373INTEGER, INTENT(in) :: unit
1374
1375CALL timedelta_vect_read_unit((/this/), unit)
1376
1377END SUBROUTINE timedelta_read_unit
1378
1379
1384SUBROUTINE timedelta_vect_read_unit(this, unit)
1385TYPE(timedelta) :: this(:)
1386INTEGER, INTENT(in) :: unit
1387
1388CHARACTER(len=40) :: form
1389CHARACTER(len=23), ALLOCATABLE :: dateiso(:)
1390INTEGER :: i
1391
1392ALLOCATE(dateiso(SIZE(this)))
1393INQUIRE(unit, form=form)
1394IF (form == 'FORMATTED') THEN
1395 READ(unit,'(3(A23,1X))')dateiso
1396ELSE
1397 READ(unit)dateiso
1398ENDIF
1399DO i = 1, SIZE(dateiso)
1400 CALL init(this(i), isodate=dateiso(i))
1401ENDDO
1402DEALLOCATE(dateiso)
1403
1404END SUBROUTINE timedelta_vect_read_unit
|