fpt: Passing arguments by reference

fpt and WinFPT Reference Manual - Command-line Commands

| SimCon Home | Ref Manual Home |

REFERENCE

Syntax:

!% REFERENCE [:] [:] <symbol> [ , <symbol> ... ]

Function:

Specifies that the named sub-program arguments are passed by reference. Note that this is normally the default argument passing mechanism in Fortran for numeric arguments, but not for strings. fpt uses this information in the argument consistency check (please see CHECK ARGUMENTS). The alternative protocol specifications for arguments are:

!% VALUE

!% REFERENCE

!% DESCRIPTOR

!% ADDRESS AND LENGTH

Names which contain exotic characters such as '%', ':' or '#' (which are all legal on some systems) must be written as quoted strings.

The REFERENCE command must be written in code within the scope of declaration of the variable. It is introduced by a comment delimiter in column 1 and the character % in column 2.

Where to Use this Command

Operating system command line	No
Configuration file, config.fsp	No
Specification (fsp) files, *.fsp	No
Interactively, to FPT> prompt	No
Interactive command files	No
Embedded in the Fortran code	Yes

Default

By reference for numeric arguments, and as specified by the command:

PASS STRING ARGUMENTS for arguments of type character.

Examples

SUBROUTINE plot_title(title) CHARACTER*80 title !% REFERENCE :: title