libsim Versione 7.2.1
|
◆ qcspadelete()
Cancellazione.
Definizione alla linea 643 del file modqcspa.F90. 644 ".grad"
645
646 call l4f_category_log(qcspa%category,l4f_info,"try to open gradient file; filename below")
647 call l4f_category_log(qcspa%category,l4f_info,filename)
648
649 inquire(file=filename, exist=exist)
650
651 grunit=getunit()
652 if (grunit /= -1) then
653 !open (unit=grunit, file=t2c(timei)//"_"//t2c(timef)//".grad",STATUS='UNKNOWN', form='FORMATTED')
654 open (grunit, file=filename ,status='UNKNOWN', form='FORMATTED',position='APPEND')
655 end if
656 ! say we have to write header in file
|