libsim Versione 7.2.4
|
◆ 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 1352 del file datetime_class.F90. 1357ELEMENTAL FUNCTION timedelta_abs(this) RESULT(res)
1358TYPE(timedelta),INTENT(IN) :: this
1359TYPE(timedelta) :: res
1360
1361res%iminuti = abs(this%iminuti)
1362res%month = abs(this%month)
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
|