libsim Versione 7.1.11

◆ arrayof_datetime_remove()

subroutine arrayof_datetime_remove ( type(arrayof_datetime this,
integer, intent(in), optional  nelem,
integer, intent(in), optional  pos 
)

Method for removing elements of the array at a desired position.

If necessary, the array is reallocated to reduce space.

Parametri
thisarray object in which an element has to be removed
[in]nelemnumber of elements to remove, if not provided, a single element is removed
[in]posposition of the element to be removed, if it is out of range, it is clipped, if it is not provided, objects are removed at the end

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

Generated with Doxygen.