mv2bk.f90
a8619e9083c6master

mv2bk.f90
View Options

			module filemanip

			CONTAINS

			SUBROUTINE mv2bk(file,ext)
			!
			! Move file to a backup file if it exists
			!
			IMPLICIT NONE
			CHARACTER(len=*), INTENT(in) :: file
			CHARACTER(len=*), optional, INTENT(in) :: ext
			!
			LOGICAL :: ex
			CHARACTER(len=260) :: bkfile
			!
			INQUIRE(file=file, exist=ex)
			IF( ex ) THEN
			if(present(ext)) then
			bkfile = TRIM(file) // trim(ext)
			else
			bkfile = TRIM(file) // '_old'
			end if
			CALL move_file(file, LEN_TRIM(file), bkfile, LEN_TRIM(bkfile))
			WRITE(*,'(a)') " Moving existing " // TRIM(file) // " to " &
			& // TRIM(bkfile)
			END IF
			END SUBROUTINE mv2bk
			!
			SUBROUTINE cp2bk(file)
			!
			! Copy file to a backup file if it exists
			!
			IMPLICIT NONE
			CHARACTER(len=*), INTENT(in) :: file
			LOGICAL :: ex
			CHARACTER(len=260) :: bkfile
			!
			INQUIRE(file=file, exist=ex)
			IF( ex ) THEN
			bkfile = TRIM(file) // '_old'
			CALL copy_file(file, LEN_TRIM(file), bkfile, LEN_TRIM(bkfile))
			WRITE(*,'(a)') " Copying existing " // TRIM(file) // " to " &
			& // TRIM(bkfile)
			END IF
			END SUBROUTINE cp2bk

			end module filemanip