Platform

x64, Win32

Purpose

To add an extension to a given file name.

Syntax

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

Description

SET_SUFFIX1@ will add a file-extension SUFFIX to the string FILENAME containing a filename if none is present. The filename will be left as it is if the filename already contains an extension. The extension should be 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 filename had the same or no extension.

Example

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