|
◆ arrayof_datetime_remove()
subroutine, private datetime_class::arrayof_datetime_remove |
( |
type(arrayof_datetime) |
this, |
|
|
integer, intent(in), optional |
nelem, |
|
|
integer, intent(in), optional |
pos |
|
) |
| |
|
private |
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 1382 del file datetime_class.F90.
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 1411 SUBROUTINE timedelta_write_unit(this, unit) 1412 TYPE(timedelta), INTENT(in) :: this 1413 INTEGER, INTENT(in) :: unit 1415 CALL timedelta_vect_write_unit((/this/), unit) 1417 END SUBROUTINE timedelta_write_unit
|