libsim Versione 7.1.11

◆ arrayof_datetime_append_unique()

integer function, private 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.

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

Generated with Doxygen.