libsim  Versione 7.2.4

◆ arrayof_datetime_delete()

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

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 1415 del file datetime_class.F90.

1420 
1424 SUBROUTINE timedelta_vect_write_unit(this, unit)
1425 TYPE(timedelta),INTENT(in) :: this(:)
1426 INTEGER, INTENT(in) :: unit
1427 
1428 CHARACTER(len=40) :: form
1429 CHARACTER(len=23), ALLOCATABLE :: dateiso(:)
1430 INTEGER :: i
1431 
1432 ALLOCATE(dateiso(SIZE(this)))
1433 DO i = 1, SIZE(dateiso)
1434  CALL getval(this(i), isodate=dateiso(i))
1435 ENDDO
1436 INQUIRE(unit, form=form)
1437 IF (form == 'FORMATTED') THEN
1438  WRITE(unit,'(3(A23,1X))')dateiso
1439 ELSE
1440  WRITE(unit)dateiso
1441 ENDIF
1442 DEALLOCATE(dateiso)
1443 
1444 END SUBROUTINE timedelta_vect_write_unit
1445 
1446 
1447 ELEMENTAL FUNCTION c_e_timedelta(this) result (res)
1448 TYPE(timedelta),INTENT(in) :: this
1449 LOGICAL :: res
1450 
1451 res = .not. this == timedelta_miss
1452 
1453 end FUNCTION c_e_timedelta
1454 
1455 
1456 elemental SUBROUTINE jeladata5(iday,imonth,iyear,ihour,imin,iminuti)
1457 
1458 !!omstart JELADATA5
1459 ! SUBROUTINE JELADATA5(IDAY,IMONTH,IYEAR,IHOUR,IMIN,
1460 ! 1 IMINUTI)
1461 !

Generated with Doxygen.