|
◆ 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 1415 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)
|