mv2bk.f90
865582e1b728geom_testmumps

mv2bk.f90
View Options

			SUBROUTINE mv2bk(file)
			!
			! Move 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 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