libsim  Versione 7.2.1

◆ 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 1340 del file datetime_class.F90.

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
1350  res%iminuti = mod(this%iminuti, that%iminuti)
1351  res%month = 0
1352 ENDIF
1353 

Generated with Doxygen.