libsim  Versione 7.1.7

◆ qctemdealloc()

subroutine modqctem::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.