libsim Versione 7.1.11
|
◆ arrayof_datetime_append_unique()
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.
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
|