libsim Versione 7.2.4
|
◆ 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 1330 del file datetime_class.F90. 1331
1332elemental FUNCTION timedelta_mod(this, that) RESULT(res)
1333TYPE(timedelta),INTENT(IN) :: this, that
1334TYPE(timedelta) :: res
1335
1336res%iminuti = mod(this%iminuti, that%iminuti)
1337res%month = 0
1338
1339END FUNCTION timedelta_mod
1340
1341
1342ELEMENTAL FUNCTION datetime_timedelta_mod(this, that) RESULT(res)
1343TYPE(datetime),INTENT(IN) :: this
|