libsim Versione 7.2.1

◆ arrayof_datetime_delete()

subroutine, private arrayof_datetime_delete ( type(arrayof_datetime this,
logical, intent(in), optional  nodealloc 
)
private

Destructor for finalizing an array object.

If defined, calls the destructor for every element of the array object; finally it deallocates all the space occupied.

Parametri
thisarray object to be destroyed
[in]nodeallocif provided and .TRUE. , the space reserved for the array is not deallocated, thus the values are retained, while the array pointer is nullified, this means that the caller must have previously assigned the pointer contents thisarray to another pointer to prevent memory leaks

Definizione alla linea 1405 del file datetime_class.F90.

1410!! unformatted files.
1411SUBROUTINE timedelta_write_unit(this, unit)
1412TYPE(timedelta),INTENT(in) :: this
1413INTEGER, INTENT(in) :: unit
1414
1415CALL timedelta_vect_write_unit((/this/), unit)
1416
1417END SUBROUTINE timedelta_write_unit
1418
1419
1424SUBROUTINE timedelta_vect_write_unit(this, unit)
1425TYPE(timedelta),INTENT(in) :: this(:)
1426INTEGER, INTENT(in) :: unit
1427
1428CHARACTER(len=40) :: form
1429CHARACTER(len=23), ALLOCATABLE :: dateiso(:)
1430INTEGER :: i
1431
1432ALLOCATE(dateiso(SIZE(this)))
1433DO i = 1, SIZE(dateiso)
1434 CALL getval(this(i), isodate=dateiso(i))
1435ENDDO
1436INQUIRE(unit, form=form)
1437IF (form == 'FORMATTED') THEN
1438 WRITE(unit,'(3(A23,1X))')dateiso
1439ELSE
1440 WRITE(unit)dateiso
1441ENDIF
1442DEALLOCATE(dateiso)
1443
1444END SUBROUTINE timedelta_vect_write_unit
1445
1446
1447ELEMENTAL FUNCTION c_e_timedelta(this) result (res)
1448TYPE(timedelta),INTENT(in) :: this
1449LOGICAL :: res
1450
1451res = .not. this == timedelta_miss

Generated with Doxygen.