libsim  Versione6.3.0

◆ arrayof_datetime_insert_unique()

subroutine, private datetime_class::arrayof_datetime_insert_unique ( type(arrayof_datetime this,
type(datetime), intent(in)  content,
integer, intent(in), optional  pos 
)
private

Method for inserting an element of the array at a desired position only if it is not present in the array yet.

If necessary, the array is reallocated to accomodate the new element.

Parametri
thisarray object to extend
[in]contentobject of TYPE TYPE(datetime) to insert
[in]posposition where to insert, if it is out of range, it is clipped, if it is not provided, the object is appended

Definizione alla linea 1336 del file datetime_class.F90.

1336 res%iminuti = mod(this%iminuti, that%iminuti)
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

Generated with Doxygen.