update

models/grxe/inc/deletefile.f

@@ -0,0 +1,20 @@
+!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