libsim  Versione7.2.6

◆ qctemdealloc()

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

Deallocazione della memoria.

Parametri
[in,out]qctemOggetto per il controllo temporale

Definizione alla linea 520 del file modqctem.F90.

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')
527  end if
528  ! say we have to write header in file
529  if (.not. exist) then
530  call l4f_category_log(qctem%category,l4f_info,"write header in gradient file")

Generated with Doxygen.