generated from erosita/uds
21 lines
507 B
Fortran
21 lines
507 B
Fortran
!c=========================================================================
|
|
subroutine deletefile(filename,status)
|
|
!c-------------------------------------------------------------------------
|
|
!c delete fits file
|
|
!c-------------------------------------------------------------------------
|
|
implicit none
|
|
integer status
|
|
character*(*) filename
|
|
|
|
integer access,i,unlink
|
|
|
|
|
|
|
|
|
|
if(access(filename,'w').eq.0) then
|
|
i=unlink(filename)
|
|
endif
|
|
|
|
return
|
|
end
|