|
◆ 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
-
| this | array object in which an element has to be removed |
[in] | nelem | number of elements to remove, if not provided, a single element is removed |
[in] | pos | position 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.
1364 END FUNCTION timedelta_abs
1371 SUBROUTINE timedelta_read_unit(this, unit)
1372 TYPE(timedelta), INTENT(out) :: this
1373 INTEGER, INTENT(in) :: unit
1375 CALL timedelta_vect_read_unit((/this/), unit)
1377 END SUBROUTINE timedelta_read_unit
1384 SUBROUTINE timedelta_vect_read_unit(this, unit)
1385 TYPE(timedelta) :: this(:)
1386 INTEGER, INTENT(in) :: unit
1388 CHARACTER(len=40) :: form
1389 CHARACTER(len=23), ALLOCATABLE :: dateiso(:)
1392 ALLOCATE(dateiso( SIZE(this)))
1393 INQUIRE(unit, form=form)
1394 IF (form == 'FORMATTED') THEN
1395 READ(unit, '(3(A23,1X))')dateiso
1399 DO i = 1, SIZE(dateiso)
1400 CALL init(this(i), isodate=dateiso(i))
1404 END SUBROUTINE timedelta_vect_read_unit
|