Platform

x64, Win32

Purpose

To change the extension of a given file name.

Syntax

SUBROUTINE SET_SUFFIX@(FILENAME, SUFFIX, L)
CHARACTER (LEN=*) FILENAME
CHARACTER (LEN=3) SUFFIX
LOGICAL (KIND=2) L

Description

SET_SUFFIX@ changes the file extension of a given file with name FILENAME. SUFFIX is the new extension required, given without the period ("."). The value L will be set to .TRUE. if the file had an extension that was not SUFFIX. L will be given the value .FALSE. if the file had the same or no extension.

Example

A='c:\ftn95.dir\file.dat'
CALL SET_SUFFIX@(A,'ASC',L)
! At this point A contains 'c:\ftn95.dir\file.ASC'
! and L contains .TRUE.