libsim Versione 7.1.11

◆ qctemdealloc()

subroutine qctemdealloc ( type(qctemtype), intent(inout)  qctem)
private

Deallocazione della memoria.

Parametri
[in,out]qctemOggetto per il controllo temporale

Definizione alla linea 515 del file modqctem.F90.

516 ".grad"
517
518 call l4f_category_log(qctem%category,l4f_info,"try to open gradient file; filename below")
519 call l4f_category_log(qctem%category,l4f_info,filename)
520
521 inquire(file=filename, exist=exist)
522
523 grunit=getunit()
524 if (grunit /= -1) then
525 !open (unit=grunit, file=t2c(timei)//"_"//t2c(timef)//".grad",STATUS='UNKNOWN', form='FORMATTED')
526 open (grunit, file=filename ,status='UNKNOWN', form='FORMATTED',position='APPEND')

Generated with Doxygen.