libsim  Versione6.3.0

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

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 !
1462 ! Calcola i minuti trascorsi tra il 1/1/1 e la data fornita
1463 !
1464 ! variabili integer*4
1465 ! IN:
1466 ! IDAY,IMONTH,IYEAR, I*4
1467 ! IHOUR,IMIN GIORNO MESE ANNO ORE MINUTI
1468 !
1469 ! OUT:
1470 ! IMINUTI I*4 MINUTI AD INIZIARE DALLE ORE 00 DEL 1/1/1
1471 !!OMEND
1472 
1473 INTEGER,intent(in) :: iday, imonth, iyear, ihour, imin
1474 INTEGER,intent(out) :: iminuti
1475 
1476 iminuti = ndays(iday,imonth,iyear)*1440+(ihour*60)+imin

Generated with Doxygen.