libsim  Versione6.3.0

◆ 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 1382 del file datetime_class.F90.

1382 !! the ::write_unit method. The method works both on formatted and
1383 !! unformatted files.
1384 SUBROUTINE timedelta_vect_read_unit(this, unit)
1385 TYPE(timedelta) :: this(:)
1386 INTEGER, INTENT(in) :: unit
1387 
1388 CHARACTER(len=40) :: form
1389 CHARACTER(len=23), ALLOCATABLE :: dateiso(:)
1390 INTEGER :: i
1391 
1392 ALLOCATE(dateiso(SIZE(this)))
1393 INQUIRE(unit, form=form)
1394 IF (form == 'FORMATTED') THEN
1395  READ(unit,'(3(A23,1X))')dateiso
1396 ELSE
1397  READ(unit)dateiso
1398 ENDIF
1399 DO i = 1, SIZE(dateiso)
1400  CALL init(this(i), isodate=dateiso(i))
1401 ENDDO
1402 DEALLOCATE(dateiso)
1403 
1404 END SUBROUTINE timedelta_vect_read_unit
1405 
1406 
1411 SUBROUTINE timedelta_write_unit(this, unit)
1412 TYPE(timedelta),INTENT(in) :: this
1413 INTEGER, INTENT(in) :: unit
1414 
1415 CALL timedelta_vect_write_unit((/this/), unit)
1416 
1417 END SUBROUTINE timedelta_write_unit
1418 
1419 

Generated with Doxygen.