libsim Versione 7.2.0

◆ arrayof_datetime_insert_array()

subroutine, private arrayof_datetime_insert_array ( type(arrayof_datetime this,
type(datetime), dimension(:), intent(in), optional  content,
integer, intent(in), optional  nelem,
integer, intent(in), optional  pos 
)
private

Method for inserting a number of elements of the array at a desired position.

If necessary, the array is reallocated to accomodate the new elements.

Parametri
thisarray object to extend
[in]contentobject of TYPE TYPE(datetime) to insert, if not provided, space is reserved but not initialized
[in]nelemnumber of elements to add, mutually exclusive with the previous parameter, if both are not provided, a single element is added without initialization
[in]posposition where to insert, if it is out of range, it is clipped, if it is not provided, the object is appended

Definizione alla linea 1240 del file datetime_class.F90.

1241TYPE(timedelta),INTENT(IN) :: this, that
1242LOGICAL :: res
1243
1244IF (this == that) THEN
1245 res = .true.
1246ELSE IF (this > that) THEN
1247 res = .true.
1248ELSE
1249 res = .false.
1250ENDIF
1251
1252END FUNCTION timedelta_ge
1253
1254
1255elemental FUNCTION timedelta_le(this, that) RESULT(res)
1256TYPE(timedelta),INTENT(IN) :: this, that
1257LOGICAL :: res
1258
1259IF (this == that) THEN
1260 res = .true.
1261ELSE IF (this < that) THEN
1262 res = .true.
1263ELSE
1264 res = .false.
1265ENDIF
1266
1267END FUNCTION timedelta_le
1268
1269
1270ELEMENTAL FUNCTION timedelta_add(this, that) RESULT(res)
1271TYPE(timedelta),INTENT(IN) :: this, that
1272TYPE(timedelta) :: res
1273
1274res%iminuti = this%iminuti + that%iminuti

Generated with Doxygen.