libsim  Versione 7.1.9

◆ 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 
1364 END FUNCTION timedelta_abs
1365 
1366 
1371 SUBROUTINE timedelta_read_unit(this, unit)
1372 TYPE(timedelta),INTENT(out) :: this
1373 INTEGER, INTENT(in) :: unit
1374 
1375 CALL timedelta_vect_read_unit((/this/), unit)
1376 
1377 END SUBROUTINE timedelta_read_unit
1378 
1379 
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

Generated with Doxygen.