|
◆ arrayof_datetime_delete()
subroutine, private datetime_class::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
-
| this | array object to be destroyed |
[in] | nodealloc | if 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 1420 del file datetime_class.F90.
1424 SUBROUTINE timedelta_vect_write_unit(this, unit) 1425 TYPE(timedelta), INTENT(in) :: this(:) 1426 INTEGER, INTENT(in) :: unit 1428 CHARACTER(len=40) :: form 1429 CHARACTER(len=23), ALLOCATABLE :: dateiso(:) 1432 ALLOCATE(dateiso( SIZE(this))) 1433 DO i = 1, SIZE(dateiso) 1434 CALL getval(this(i), isodate=dateiso(i)) 1436 INQUIRE(unit, form=form) 1437 IF (form == 'FORMATTED') THEN 1438 WRITE(unit, '(3(A23,1X))')dateiso 1444 END SUBROUTINE timedelta_vect_write_unit 1447 ELEMENTAL FUNCTION c_e_timedelta(this) result (res) 1448 TYPE(timedelta), INTENT(in) :: this 1451 res = .not. this == timedelta_miss 1453 end FUNCTION c_e_timedelta 1456 elemental SUBROUTINE jeladata5(iday,imonth,iyear,ihour,imin,iminuti)
|