20 lines
502 B
Fortran
20 lines
502 B
Fortran
!!-----------------------------------------------------------------------------
|
|
!!
|
|
subroutine SYS_RENAME_FILE(OLD, NEW) !!
|
|
!! ====================================
|
|
!!
|
|
character OLD*(*), NEW*(*) !! (in) old, new filename
|
|
|
|
call rename(OLD, NEW)
|
|
end
|
|
|
|
!!-----------------------------------------------------------------------------
|
|
!!
|
|
subroutine SYS_DELETE_FILE(NAME) !!
|
|
!! ================================
|
|
!!
|
|
character NAME*(*) !! (in) filename
|
|
|
|
call unlink(NAME)
|
|
end
|