libsim  Versione 7.1.7

◆ arrayof_datetime_append_unique()

integer function, private datetime_class::arrayof_datetime_append_unique ( type(arrayof_datetime this,
type(datetime), intent(in)  content 
)
private

Quick function to append an element to the array only if it is not present in the array yet.

The return value is the position at which the element has been appended or at which it has been found.

Parametri
thisarray object to extend
[in]contentobject of TYPE TYPE(datetime) to append

Definizione alla linea 1336 del file datetime_class.F90.

1337 res%month = 0
1338 
1339 END FUNCTION timedelta_mod
1340 
1341 
1342 ELEMENTAL FUNCTION datetime_timedelta_mod(this, that) RESULT(res)
1343 TYPE(datetime),INTENT(IN) :: this
1344 TYPE(timedelta),INTENT(IN) :: that
1345 TYPE(timedelta) :: res
1346 
1347 IF (that%iminuti == 0) THEN ! Controllo nel caso di intervalli "umani" o nulli
1348  res = timedelta_0
1349 ELSE

Generated with Doxygen.