libsim Versione 7.2.1
|
◆ arrayof_datetime_delete()
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.
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
|