libsim Versione 7.1.11

◆ arrayof_datetime_insert_unique()

subroutine, private 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 1316 del file datetime_class.F90.

1317res%iminuti = this%iminuti/n
1318res%month = this%month/n
1319
1320END FUNCTION timedelta_divint
1321
1322
1323ELEMENTAL FUNCTION timedelta_divtd(this, that) RESULT(res)
1324TYPE(timedelta),INTENT(IN) :: this, that
1325INTEGER :: res
1326
1327res = int(this%iminuti/that%iminuti)
1328

Generated with Doxygen.