!
! This file was converted from DEC LSE format to ELSE format
! by Douglas Harter (djharter@aol.com)
! Send an email to that address with any problems, concerns,
! or comments.
!
! This is the DEC implementation of FORTRAN on the mainframe.
! It might not comform exactly to the FORTRAN you are using
! on your computer.
!
!*************************************************************************
!									 *
!	      © 2000 BY							 *
!	      COMPAQ COMPUTER CORPORATION                                *
!	      © 1998, 2000 BY						 *
!	      ELECTRONIC DATA SYSTEMS LIMITED                            *
!									 *
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED *
! ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE *
! INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER *
! COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY *
! OTHER  PERSON.  NO  TITLE TO OR OWNERSHIP OF THE  SOFTWARE  IS  HEREBY *
! TRANSFERRED.                                                           *
!									 *
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE  WITHOUT  NOTICE *
! AND  SHOULD  NOT  BE  CONSTRUED  AS  A COMMITMENT  BY  COMPAQ COMPUTER *
! CORPORATION OR EDS.                                                    *
!									 *
! NEITHER  COMPAQ  NOR  EDS  ASSUME ANY RESPONSIBILITY FOR  THE  USE  OR *
! RELIABILITY  OF  THIS SOFTWARE ON EQUIPMENT WHICH IS NOT  SUPPLIED  BY *
! COMPAQ.                                                                *
!									 *
!*************************************************************************

DELETE LANGUAGE "Fortran"
DEFINE LANGUAGE "Fortran" -
    /VALID_IDENTIFIER_CHARACTERS="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890$_" -
    /INITIAL_STRING="[program_unit]..." -
    /PUNCTUATION_CHARACTERS=".(),':*/" -
    /INDENT_SIZE=4 -
    /VERSION="V6.2A" -

END DEFINE
DELETE PLACEHOLDER "({ARG}...)" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "({ARG}...)" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	({arg}...)"

END DEFINE

DELETE PLACEHOLDER "({EXIT_STATUS})" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "({EXIT_STATUS})" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "({exit_status})"

END DEFINE

DELETE PLACEHOLDER "+ OR -" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "+ OR -" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Optional sign" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "POSIT"/PLACEHOLDER
    "MINUS"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER ", END={LBL}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ", END={LBL}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	, END={lbl}"

END DEFINE

DELETE PLACEHOLDER ", ERR={LBL}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ", ERR={LBL}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	, ERR={lbl}"

END DEFINE

DELETE PLACEHOLDER ", IOSTAT={IOS}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ", IOSTAT={IOS}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	, IOSTAT={ios}"

END DEFINE

DELETE PLACEHOLDER ", KEYID={KN}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ", KEYID={KN}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	, KEYID={integer_exp}"

END DEFINE

DELETE PLACEHOLDER ", REC={RECORD_SPEC}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ", REC={RECORD_SPEC}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	, REC={record_spec}"

END DEFINE

DELETE PLACEHOLDER ", {INTEGER_EXP}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ", {INTEGER_EXP}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	, {integer_exp}"

END DEFINE

DELETE PLACEHOLDER ",{ARITH_EXP}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ",{ARITH_EXP}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	,{arith_exp}"

END DEFINE

DELETE PLACEHOLDER "-{ALPHA}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "-{ALPHA}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	-{alpha}"

END DEFINE

DELETE PLACEHOLDER ".NOT." -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ".NOT." -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.NOT."

END DEFINE

DELETE PLACEHOLDER ".{COMPOSITE_FIELD_NAME}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ".{COMPOSITE_FIELD_NAME}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.{composite_field_name}"

END DEFINE

DELETE PLACEHOLDER "/" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "/" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/"

END DEFINE

DELETE PLACEHOLDER "//{CHAR_ELM}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "//{CHAR_ELM}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	//{char_elm}"

END DEFINE

DELETE PLACEHOLDER "/{STRUCTURE_DECL_NAME}/" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "/{STRUCTURE_DECL_NAME}/" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/{structure_decl_name}/"

END DEFINE

DELETE PLACEHOLDER ":{KDIRECTION}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ":{KDIRECTION}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	:{kdirection}"

END DEFINE

DELETE PLACEHOLDER ":{KTYPE}[:{KDIRECTION}]" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ":{KTYPE}[:{KDIRECTION}]" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	:{ktype}[:{kdirection}]"

END DEFINE

DELETE PLACEHOLDER ABS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ABS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IIABS ({r4arg})"

END DEFINE

DELETE PLACEHOLDER ABSTRACT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ABSTRACT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Short description of unit" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ABSTRACT:"
    " "
    "    {tbs}"
    " "

END DEFINE

DELETE PLACEHOLDER ABS_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ABS_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Absolute Value Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_abs"/PLACEHOLDER
    "iiabs" /TOKEN
    "jiabs" /TOKEN
    "abs"/PLACEHOLDER
    "dabs" /TOKEN
    "qabs" /TOKEN
    "cabs" /TOKEN
    "cdabs" /TOKEN

END DEFINE

DELETE PLACEHOLDER ACCEPT_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ACCEPT_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ACCEPT statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "accept1" /TOKEN
    "accept2" /TOKEN
    "accept3" /TOKEN

END DEFINE

DELETE PLACEHOLDER ACCESS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ACCESS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ACCESS={access_options}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ACCESS = {access_options}"

END DEFINE

DELETE PLACEHOLDER ACCESS_OPTIONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ACCESS_OPTIONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Access options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "sequential"/PLACEHOLDER
    "direct"/PLACEHOLDER
    "keyed"/PLACEHOLDER
    "append"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER ACCESS_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ACCESS_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ACCESS = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 ACCESS = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER ACCURACY_SENSITIVE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ACCURACY_SENSITIVE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Sensitive to accuracy" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ACCURACY_SENSITIVE"

END DEFINE

DELETE PLACEHOLDER ACCURACY_SENSITIVE_OPT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ACCURACY_SENSITIVE_OPT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Sensitivity to floating point accuracy" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "accuracy_sensitive"/PLACEHOLDER
    "noaccuracy_sensitive"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER ACOS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ACOS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ACOS ({r4arg})"

END DEFINE

DELETE PLACEHOLDER ACOSD -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ACOSD -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ACOSD ({r4arg})"

END DEFINE

DELETE PLACEHOLDER ACOSD_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ACOSD_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arc Cosine (degrees) Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_acosd"/PLACEHOLDER
    "acosd"/PLACEHOLDER
    "dacosd" /TOKEN
    "qacosd" /TOKEN

END DEFINE

DELETE PLACEHOLDER ACOS_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ACOS_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arc Cosine Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_acos"/PLACEHOLDER
    "acos"/PLACEHOLDER
    "dacos" /TOKEN
    "qacos" /TOKEN

END DEFINE

DELETE PLACEHOLDER ADD -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ADD -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="+" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	+"

END DEFINE

DELETE PLACEHOLDER ADDITIONAL_PARAMETERS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ADDITIONAL_PARAMETERS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    " "
    "{p}:"
    "    {tbs}"

END DEFINE

DELETE PLACEHOLDER AELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER AELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arithmetic Element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "int_cons"/PLACEHOLDER
    "real4_cons"/PLACEHOLDER
    "real8_cons"/PLACEHOLDER
    "real16_cons"/PLACEHOLDER
    "hol_cons"/PLACEHOLDER
    "oct_cons"/PLACEHOLDER
    "hex_cons"/PLACEHOLDER
    "arith_var"/PLACEHOLDER
    "numeric_array_ref"/PLACEHOLDER
    "arith_exp_paren"/PLACEHOLDER
    "arith_func_ref"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER AINT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER AINT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	AINT({r4arg})"

END DEFINE

DELETE PLACEHOLDER AINT_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER AINT_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_aint"/PLACEHOLDER
    "aint"/PLACEHOLDER
    "dint" /TOKEN
    "qint" /TOKEN

END DEFINE

DELETE PLACEHOLDER ALIAS_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ALIAS_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "name" /TOKEN
    "char_cons"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER ALL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ALL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="All options selected" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ALL"

END DEFINE

DELETE PLACEHOLDER ALPHA -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ALPHA -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Alphabetic character" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A single letter whose presence as the initial letter of a"
    "variable specifies the variable to be of that data type."

END DEFINE

DELETE PLACEHOLDER ALPHA_SPECIFICATION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ALPHA_SPECIFICATION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Alphabetic specification" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=NONTERMINAL -

    "	{alpha}[-{alpha}]"

END DEFINE

DELETE PLACEHOLDER ALTERNATE_RETURN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ALTERNATE_RETURN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An alternate return from a subroutine subprogram."
    "This value can be any integer constant or expression."

END DEFINE

DELETE PLACEHOLDER AMAX0_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER AMAX0_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Maximum Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_amax0"/PLACEHOLDER
    "aimax0" /TOKEN
    "ajmax0" /TOKEN

END DEFINE

DELETE PLACEHOLDER AMIN0_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER AMIN0_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Minimum Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_amin0"/PLACEHOLDER
    "aimin0" /TOKEN
    "ajmin0" /TOKEN

END DEFINE

DELETE PLACEHOLDER AND -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER AND -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=".AND." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.AND."

END DEFINE

DELETE PLACEHOLDER ANINT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ANINT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ANINT({r4arg})"

END DEFINE

DELETE PLACEHOLDER ANINT_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ANINT_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_anint"/PLACEHOLDER
    "anint"/PLACEHOLDER
    "dnint" /TOKEN
    "qnint" /TOKEN

END DEFINE

DELETE PLACEHOLDER AOP -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER AOP -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "add"/PLACEHOLDER
    "sub"/PLACEHOLDER
    "mult"/PLACEHOLDER
    "div"/PLACEHOLDER
    "expo"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER APPEND -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER APPEND -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'APPEND'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'APPEND'"

END DEFINE

DELETE PLACEHOLDER ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=HORIZONTAL -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "Actual arguments must agree in order, number, and data type with "
    "the dummy arguments with which they are associated.  Actual arguments"
    "can be constants, variables, expressions, arrays, array elements, "
    "character substrings, alternate return specifiers, or subprogram names."

END DEFINE

DELETE PLACEHOLDER ARITH_ARRAY_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ARITH_ARRAY_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "integer_array_name"/PLACEHOLDER
    "real_array_name"/PLACEHOLDER
    "logical_array_name"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER ARITH_ARRAY_REF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ARITH_ARRAY_REF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arithmetic Array reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{arith_array_name}({subscr}...)"

END DEFINE

DELETE PLACEHOLDER ARITH_ASSIGN_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ARITH_ASSIGN_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arithmetic assignment element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "	{arith_var}"
    "	{arith_array_ref}"

END DEFINE

DELETE PLACEHOLDER ARITH_EXP -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ARITH_EXP -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arithmetic Expression" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{aelm} [{aop} {aelm}]..."

END DEFINE

DELETE PLACEHOLDER ARITH_EXP_PAREN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ARITH_EXP_PAREN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=" Arithmetic Expression in parentheses" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	({arith_exp})"

END DEFINE

DELETE PLACEHOLDER ARITH_FUNC_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ARITH_FUNC_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arithmetic function name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "integer_func_name"/PLACEHOLDER
    "real_func_name"/PLACEHOLDER
    "logical_func_name"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER ARITH_FUNC_REF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ARITH_FUNC_REF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arithmetic function reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "	{arith_func_name}([arg]...)"

END DEFINE

DELETE PLACEHOLDER ARITH_VAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ARITH_VAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Numeric variable" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "integer_var"/PLACEHOLDER
    "logical_var"/PLACEHOLDER
    "real_var"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER ARRAY_DECL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ARRAY_DECL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Array declarator" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "	{array_name}({dim_decl}...)"

END DEFINE

DELETE PLACEHOLDER ARRAY_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ARRAY_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Array name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "char_array_name"/PLACEHOLDER
    "integer_array_name"/PLACEHOLDER
    "real_array_name"/PLACEHOLDER
    "complex_array_name"/PLACEHOLDER
    "logical_array_name"/PLACEHOLDER
    "record_array_name"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER ARRAY_REF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ARRAY_REF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Array reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "integer_array_ref"/PLACEHOLDER
    "real_array_ref"/PLACEHOLDER
    "logical_array_ref"/PLACEHOLDER
    "complex_array_ref"/PLACEHOLDER
    "char_array_ref"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER ASCENDING_FILE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ASCENDING_FILE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ASCENDING" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ASCENDING"

END DEFINE

DELETE PLACEHOLDER ASIN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ASIN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ASIN ({r4arg})"

END DEFINE

DELETE PLACEHOLDER ASIND -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ASIND -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ASIND ({r4arg})"

END DEFINE

DELETE PLACEHOLDER ASIND_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ASIND_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arc Sine (degrees) Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_asind"/PLACEHOLDER
    "asind"/PLACEHOLDER
    "dasind" /TOKEN
    "qasind" /TOKEN

END DEFINE

DELETE PLACEHOLDER ASIN_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ASIN_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arc Sine Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_asin" /TOKEN
    "asin"/PLACEHOLDER
    "dasin" /TOKEN
    "qasin" /TOKEN

END DEFINE

DELETE PLACEHOLDER ASSERTIONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ASSERTIONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Check asserted relationships" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ASSERTIONS"

END DEFINE

DELETE PLACEHOLDER ASSERTIONS_OPT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ASSERTIONS_OPT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ASSERT statements and directives" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "ASSERTIONS"/PLACEHOLDER
    "NOASSERTIONS"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER ASSERT_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ASSERT_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ASSERT statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ASSERT ({logical_exp})"

END DEFINE

DELETE PLACEHOLDER ASSIGNMENT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ASSIGNMENT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Assignment statements" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "assignment_arith" /TOKEN
    "assignment_char" /TOKEN
    "assignment_log" /TOKEN
    "assignment_struc" /TOKEN

END DEFINE

DELETE PLACEHOLDER ASSOCIATEVARIABLE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ASSOCIATEVARIABLE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ASSOCIATEVARIABLE=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ASSOCIATEVARIABLE = {integer_var}"

END DEFINE

DELETE PLACEHOLDER ASSUME_QUAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ASSUME_QUAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Controls compiler assumptions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/ASSUME=({accuracy_sensitive_opt}, {dummy_aliases_opt}"

END DEFINE

DELETE PLACEHOLDER ATAN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ATAN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ATAN ({r4arg})"

END DEFINE

DELETE PLACEHOLDER ATAN2 -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ATAN2 -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 arguments, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ATAN2 ({r4arg},{r4arg})"

END DEFINE

DELETE PLACEHOLDER ATAN2D -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ATAN2D -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 arguments, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ATAN2D ({r4arg},{r4arg})"

END DEFINE

DELETE PLACEHOLDER ATAN2D_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ATAN2D_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arc Tangent 2 (degrees) Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_atan2d"/PLACEHOLDER
    "atan2d"/PLACEHOLDER
    "datan2d" /TOKEN
    "qatan2d" /TOKEN

END DEFINE

DELETE PLACEHOLDER ATAN2_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ATAN2_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arc Tangent 2 Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_atan2"/PLACEHOLDER
    "atan2"/PLACEHOLDER
    "datan2" /TOKEN
    "qatan2" /TOKEN

END DEFINE

DELETE PLACEHOLDER ATAND -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ATAND -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ATAND ({r4arg})"

END DEFINE

DELETE PLACEHOLDER ATAND_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ATAND_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arc Tangent (degrees) Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_atand"/PLACEHOLDER
    "atand"/PLACEHOLDER
    "datand" /TOKEN
    "qatand" /TOKEN

END DEFINE

DELETE PLACEHOLDER ATAN_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ATAN_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arc Tangent Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_atan"/PLACEHOLDER
    "atan"/PLACEHOLDER
    "datan" /TOKEN
    "qatan" /TOKEN

END DEFINE

DELETE PLACEHOLDER A_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER A_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{real_or_complex_arg}"

END DEFINE

DELETE PLACEHOLDER BACKSPACE_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BACKSPACE_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BACKSPACE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	BACKSPACE (UNIT={unit}[, ERR={lbl}][, IOSTAT={ios}])"

END DEFINE

DELETE PLACEHOLDER BIG_ENDIAN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BIG_ENDIAN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'BIG_ENDIAN'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'BIG_ENDIAN'"

END DEFINE

DELETE PLACEHOLDER BIN_CONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BIN_CONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Binary constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "	B'{bin_dig}...'"
    "	'{bin_dig}...'B"

END DEFINE

DELETE PLACEHOLDER BIN_DIG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BIN_DIG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Binary Digit" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Binary digit - 0 or 1"

END DEFINE

DELETE PLACEHOLDER BLANK -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BLANK -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BLANK=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	BLANK = {blank_options}"

END DEFINE

DELETE PLACEHOLDER BLANK_OPTIONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BLANK_OPTIONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Blank options " -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "null"/PLACEHOLDER
    "zero"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER BLANK_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BLANK_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BLANK = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 BLANK = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER BLAS_QUAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BLAS_QUAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Controls BLAS routine processing" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/BLAS=({inline_opt}, {mapped_opt})"

END DEFINE

DELETE PLACEHOLDER BLOCKDATA_PROGRAM_UNIT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BLOCKDATA_PROGRAM_UNIT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BLOCK DATA program unit" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[options_stmt]"
    "	BLOCK DATA [name]"
    " "
    "C[block_data_header_comments]"
    " "
    "	[implicit_stmt]"
    "	[specification_statement]..."
    "[CDEC$_DIR]..."
    "[CPAR$_DIR]..."
    "	END"
    " "

END DEFINE

DELETE PLACEHOLDER BLOCKSIZE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BLOCKSIZE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BLOCKSIZE=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	BLOCKSIZE = {arith_exp}"

END DEFINE

DELETE PLACEHOLDER BLOCK_DATA_HEADER_COMMENTS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BLOCK_DATA_HEADER_COMMENTS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BLOCK DATA header comments" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "+"
    " "
    " [abstract]"
    " FUNCTIONAL DESCRIPTION: "
    " "
    "     [tbs]"
    " "
    " COMMON BLOCKS:"
    " "
    "     [tbs]"
    " "
    " [design]"
    " "
    "-"

END DEFINE

DELETE PLACEHOLDER BN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BN" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	BN"

END DEFINE

DELETE PLACEHOLDER BOUNDS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BOUNDS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Check array and string bounds" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	BOUNDS"

END DEFINE

DELETE PLACEHOLDER BOUNDS_EXP -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BOUNDS_EXP -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Dimension declaration bounds expression" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{bound_elm} [{aop} {bound_elm}]..."

END DEFINE

DELETE PLACEHOLDER BOUNDS_OPT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BOUNDS_OPT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Array and string bounds" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "BOUNDS"/PLACEHOLDER
    "NOBOUNDS"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER BOUND_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BOUND_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Bounds element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "cons"/PLACEHOLDER
    "p"/PLACEHOLDER
    "common_var"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER BTEST_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BTEST_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Bit test Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_btest"/PLACEHOLDER
    "bitest" /TOKEN
    "bjtest" /TOKEN

END DEFINE

DELETE PLACEHOLDER BUFFERCOUNT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BUFFERCOUNT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BUFFERCOUNT=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	BUFFERCOUNT = {arith_exp}"

END DEFINE

DELETE PLACEHOLDER BUILT_IN_FUNCTIONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BUILT_IN_FUNCTIONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Built-in Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "%loc" /TOKEN
    "%val" /TOKEN
    "%ref" /TOKEN
    "%descr" /TOKEN

END DEFINE

DELETE PLACEHOLDER BYTE_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BYTE_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	BYTE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	BYTE"

END DEFINE

DELETE PLACEHOLDER BZ -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER BZ -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BZ" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	BZ"

END DEFINE

DELETE PLACEHOLDER B_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER B_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{real_or_complex_arg}"

END DEFINE

DELETE PLACEHOLDER B_EDIT_FIELD -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER B_EDIT_FIELD -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BN, BZ" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "BN"/PLACEHOLDER
    "BZ"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER C16ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER C16ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "A COMPLEX*16 argument"

END DEFINE

DELETE PLACEHOLDER C8ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER C8ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "A COMPLEX*8 argument"

END DEFINE

DELETE PLACEHOLDER CALL_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CALL_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CALL statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CALL {program_name}[({arg}...)]"

END DEFINE

DELETE PLACEHOLDER CAMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CAMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CAMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CAMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER CAMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CAMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CAMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CAMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER CARRIAGECONTROL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CARRIAGECONTROL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CARRIAGECONTROL=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CARRIAGECONTROL = {carr_options}"

END DEFINE

DELETE PLACEHOLDER CARRIAGECONTROL_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CARRIAGECONTROL_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CARRIAGECONTROL = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 CARRIAGECONTROL = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER CARR_LIST -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CARR_LIST -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'LIST'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'LIST'"

END DEFINE

DELETE PLACEHOLDER CARR_NONE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CARR_NONE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'NONE'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'NONE'"

END DEFINE

DELETE PLACEHOLDER CARR_OPTIONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CARR_OPTIONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "Fortran"/PLACEHOLDER
    "carr_list"/PLACEHOLDER
    "carr_none"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER CASUM_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CASUM_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CASUM function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SCASUM ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER CAXPY_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CAXPY_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CAXPY subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CAXPY ({n_arg},{a_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER CCOPY_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CCOPY_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CCOPY subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CCOPY ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER CDEC$_DIR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CDEC$_DIR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CDEC$ directive" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "CDEC$	{cdec_dir}"

END DEFINE

DELETE PLACEHOLDER CDEC_DIR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CDEC_DIR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "ALIAS_dir" /TOKEN
    "ASSERT_dir" /TOKEN
    "IDENT_dir" /TOKEN
    "INIT_DEP_FWD_dir" /TOKEN
    "NOVECTOR_dir" /TOKEN
    "PSECT_dir" /TOKEN
    "SUBTITLE_dir" /TOKEN
    "TITLE_dir" /TOKEN

END DEFINE

DELETE PLACEHOLDER CDOTC_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CDOTC_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CDOTC function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CDOTC ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER CDOTU_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CDOTU_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CDOTU function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CDOTU ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER CHANGE_ENTRY -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHANGE_ENTRY -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{dd-mmm-yyyy}     |  {nnn}  | {tbs}"
    "----------------+-------+-----------------------------------------------------"
    "[change_entry]"

END DEFINE

DELETE PLACEHOLDER CHAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Any printable character"

END DEFINE

DELETE PLACEHOLDER CHARACTER_DECL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHARACTER_DECL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Declare as CHARACTER" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "CHARACTER {name}*{len}" /TOKEN
    "CHARACTER*{len} {name}" /TOKEN
    "CHARACTER*(*) {name}" /TOKEN

END DEFINE

DELETE PLACEHOLDER CHARACTER_FIELD_DECL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHARACTER_FIELD_DECL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Declare as CHARACTER" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "CHARACTER {name}*{len}" /TOKEN
    "CHARACTER*{len} {name}" /TOKEN

END DEFINE

DELETE PLACEHOLDER CHARACTER_FIELD_DESCR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHARACTER_FIELD_DESCR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Aw" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	A[width]"

END DEFINE

DELETE PLACEHOLDER CHARACTER_KEY -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHARACTER_KEY -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CHARACTER" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CHARACTER"

END DEFINE

DELETE PLACEHOLDER CHAR_ARRAY_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_ARRAY_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Character array name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Character array name"

END DEFINE

DELETE PLACEHOLDER CHAR_ARRAY_REF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_ARRAY_REF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Character Array reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{char_array_name}({subscr}...)"

END DEFINE

DELETE PLACEHOLDER CHAR_ARRAY_SUBSTRING -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_ARRAY_SUBSTRING -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="{char_array_name}({subscr}...)([integer_exp]:[integer_exp])" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{char_array_name}({subscr}...)([integer_exp]:[integer_exp])"

END DEFINE

DELETE PLACEHOLDER CHAR_ASSIGN_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_ASSIGN_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Character assignment element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "char_var"/PLACEHOLDER
    "char_substring"/PLACEHOLDER
    "char_array_ref"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER CHAR_CONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_CONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Character constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'{char}...'"

END DEFINE

DELETE PLACEHOLDER CHAR_DECL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_DECL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=HORIZONTAL -
    /SEPARATOR="," -
    /TYPE=NONTERMINAL -

    "	{name}*{len}"

END DEFINE

DELETE PLACEHOLDER CHAR_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Character element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "char_cons"/PLACEHOLDER
    "char_var"/PLACEHOLDER
    "char_substring"/PLACEHOLDER
    "char_exp"/PLACEHOLDER
    "char_func_ref"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER CHAR_EXP -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_EXP -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	Character Expression" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{char_elm}[//{char_elm}]..."

END DEFINE

DELETE PLACEHOLDER CHAR_FUNC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_FUNC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CHAR function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CHAR ({var})"

END DEFINE

DELETE PLACEHOLDER CHAR_FUNC_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_FUNC_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Character function name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Character function name"

END DEFINE

DELETE PLACEHOLDER CHAR_FUNC_REF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_FUNC_REF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Character function reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{char_func_name}({arg}...)"

END DEFINE

DELETE PLACEHOLDER CHAR_LEN_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_LEN_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	CHARACTER*{len}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CHARACTER*{len}"

END DEFINE

DELETE PLACEHOLDER CHAR_SCALAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_SCALAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A character scalar memory reference"

END DEFINE

DELETE PLACEHOLDER CHAR_SUBSTRING -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_SUBSTRING -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Character substring" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "char_var_substring"/PLACEHOLDER
    "char_array_substring"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER CHAR_VAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_VAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Character variable" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Character variable"

END DEFINE

DELETE PLACEHOLDER CHAR_VAR_SUBSTRING -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_VAR_SUBSTRING -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="{char_var}([integer_exp]:[integer_exp])" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{char_var}([integer_exp]:[integer_exp])"

END DEFINE

DELETE PLACEHOLDER CHAR_VAR_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHAR_VAR_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	CHARACTER*(*)" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CHARACTER*(*)"

END DEFINE

DELETE PLACEHOLDER CHECK_OPTIONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHECK_OPTIONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CHECK options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "ALL"/PLACEHOLDER
    "ASSERTIONS_opt"/PLACEHOLDER
    "BOUNDS_opt"/PLACEHOLDER
    "OVERFLOW_opt"/PLACEHOLDER
    "UNDERFLOW_opt"/PLACEHOLDER
    "NONE"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER CHECK_QUAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CHECK_QUAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Run-time checking" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/CHECK={check_options}"

END DEFINE

DELETE PLACEHOLDER CLOSE_OPTIONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CLOSE_OPTIONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Close options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=MENU -

    "status_dispose"/PLACEHOLDER
    "error_close"/PLACEHOLDER
    "iostat_close"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER CLOSE_STATUS_OPTIONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CLOSE_STATUS_OPTIONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "keep"/PLACEHOLDER
    "delete"/PLACEHOLDER
    "print"/PLACEHOLDER
    "submit"/PLACEHOLDER
    "print_delete"/PLACEHOLDER
    "submit_delete"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER CLOSE_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CLOSE_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CLOSE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CLOSE (UNIT={unit}, [close_options]...)"

END DEFINE

DELETE PLACEHOLDER CMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER CMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER CMPLX_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CMPLX_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Conversion to COMPLEX*8 " -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CMPLX ({arg})"

END DEFINE

DELETE PLACEHOLDER COLON_FIELD -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COLON_FIELD -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=":" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	:"

END DEFINE

DELETE PLACEHOLDER "COMMON BLOCKS" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "COMMON BLOCKS" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="List of common blocks used" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "COMMON BLOCKS:"
    " "
    "    {tbs}"
    " "

END DEFINE

DELETE PLACEHOLDER COMMON_BLK -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMMON_BLK -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/{common_blk_name}/"

END DEFINE

DELETE PLACEHOLDER COMMON_BLK_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMMON_BLK_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Common block name"

END DEFINE

DELETE PLACEHOLDER COMMON_BLK_SPEC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMMON_BLK_SPEC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="COMMON block specification" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "	/[common_blk_name]/ {common_elm}..."

END DEFINE

DELETE PLACEHOLDER COMMON_BLOCK_REF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMMON_BLOCK_REF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Common Block reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/{common_blk_name}/"

END DEFINE

DELETE PLACEHOLDER COMMON_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMMON_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Common list element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=MENU -

    "var"/PLACEHOLDER
    "array_name"/PLACEHOLDER
    "array_decl"/PLACEHOLDER
    "record_name"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER COMMON_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMMON_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="COMMON statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	COMMON {common_blk_spec}..."

END DEFINE

DELETE PLACEHOLDER COMMON_VAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMMON_VAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Common block variable" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "variable in a common block"

END DEFINE

DELETE PLACEHOLDER COMP16_CONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMP16_CONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Complex*16 constants" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	({comp16_cons_elm},{comp16_cons_elm})"

END DEFINE

DELETE PLACEHOLDER COMP16_CONS_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMP16_CONS_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Complex*16 constant element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "real4_cons"/PLACEHOLDER
    "real8_cons"/PLACEHOLDER
    "int_cons"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER COMP8_CONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMP8_CONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Complex*8 constants" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	({comp8_cons_elm},{comp8_cons_elm})"

END DEFINE

DELETE PLACEHOLDER COMP8_CONS_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMP8_CONS_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Complex*8 constant element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "real4_cons"/PLACEHOLDER
    "int_cons"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER COMPLEX16_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMPLEX16_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="COMPLEX*16" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	COMPLEX*16"

END DEFINE

DELETE PLACEHOLDER COMPLEX8_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMPLEX8_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	COMPLEX*8" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	COMPLEX*8"

END DEFINE

DELETE PLACEHOLDER COMPLEX_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMPLEX_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=HORIZONTAL -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "A complex argument"

END DEFINE

DELETE PLACEHOLDER COMPLEX_ARRAY_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMPLEX_ARRAY_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Complex array name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Complex array name"

END DEFINE

DELETE PLACEHOLDER COMPLEX_ARRAY_REF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMPLEX_ARRAY_REF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Complex Array reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{complex_array_name}({subscr}...)"

END DEFINE

DELETE PLACEHOLDER COMPLEX_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMPLEX_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	COMPLEX" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	COMPLEX"

END DEFINE

DELETE PLACEHOLDER COMPLEX_VAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMPLEX_VAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Complex variable" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "A variable of type COMPLEX*8 or COMPLEX*16"

END DEFINE

DELETE PLACEHOLDER COMPOSITE_FIELD_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COMPOSITE_FIELD_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The name of a field that is a substructure within the record"
    "structure identified by the record name."

END DEFINE

DELETE PLACEHOLDER CONDVAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CONDVAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer variable or array element into which is stored the actual"
    "VMS condition value."

END DEFINE

DELETE PLACEHOLDER CONJG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CONJG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="COMPLEX*8 argument, COMPLEX*8 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CONJG ({c8arg})"

END DEFINE

DELETE PLACEHOLDER CONJG_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CONJG_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Complex Conjugate" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_conjg"/PLACEHOLDER
    "conjg"/PLACEHOLDER
    "dconjg" /TOKEN

END DEFINE

DELETE PLACEHOLDER CONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="constant" -
    /DUPLICATION=HORIZONTAL -
    /SEPARATOR="," -
    /TYPE=MENU -

    "char_cons"/PLACEHOLDER
    "int_cons"/PLACEHOLDER
    "real4_cons"/PLACEHOLDER
    "real8_cons"/PLACEHOLDER
    "real16_cons"/PLACEHOLDER
    "hol_cons"/PLACEHOLDER
    "log_cons"/PLACEHOLDER
    "bin_cons"/PLACEHOLDER
    "oct_cons"/PLACEHOLDER
    "hex_cons"/PLACEHOLDER
    "comp8_cons"/PLACEHOLDER
    "comp16_cons"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER CONSTANT_EXP -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CONSTANT_EXP -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Constant expression" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=NONTERMINAL -

    "	{name} = {cons}"

END DEFINE

DELETE PLACEHOLDER CONTINUE_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CONTINUE_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CONTINUE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "[lbl]	CONTINUE"

END DEFINE

DELETE PLACEHOLDER CONVERT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CONVERT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CONVERT={convert_options}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CONVERT = {convert_options}"

END DEFINE

DELETE PLACEHOLDER CONVERT_OPTIONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CONVERT_OPTIONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Convert options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "little_endian"/PLACEHOLDER
    "big_endian"/PLACEHOLDER
    "cray"/PLACEHOLDER
    "ibm"/PLACEHOLDER
    "vaxg"/PLACEHOLDER
    "vaxd"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER COS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	COS ({r4arg})"

END DEFINE

DELETE PLACEHOLDER COSH -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COSH -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	COSH ({r4arg})"

END DEFINE

DELETE PLACEHOLDER COSH_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COSH_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Hyperbolic Cosine Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_cosh"/PLACEHOLDER
    "cosh"/PLACEHOLDER
    "dcosh" /TOKEN
    "qcosh" /TOKEN

END DEFINE

DELETE PLACEHOLDER COS_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER COS_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="COSINE Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_cos" /TOKEN
    "cos"/PLACEHOLDER
    "dcos" /TOKEN
    "qcos" /TOKEN
    "ccos" /TOKEN
    "cdcos" /TOKEN
    "cosd" /TOKEN
    "dcosd" /TOKEN
    "qcosd" /TOKEN

END DEFINE

DELETE PLACEHOLDER CPAR$_DIR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CPAR$_DIR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CPAR$ directive" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "CPAR$	{cpar_dir}"

END DEFINE

DELETE PLACEHOLDER CPAR_DIR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CPAR_DIR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "CONTEXT_SHARED_dir" /TOKEN
    "CONTEXT_SHARED_ALL_dir" /TOKEN
    "DO_PARALLEL_dir" /TOKEN
    "LOCKOFF_dir" /TOKEN
    "LOCKON_dir" /TOKEN
    "PRIVATE_dir" /TOKEN
    "PRIVATE_ALL_dir" /TOKEN
    "SHARED_dir" /TOKEN
    "SHARED_ALL_dir" /TOKEN

END DEFINE

DELETE PLACEHOLDER CRAY -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CRAY -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'CRAY'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'CRAY'"

END DEFINE

DELETE PLACEHOLDER CROTG_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CROTG_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CROTG subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CROTG ({a_arg},{b_arg},{c_arg},{s_arg})"

END DEFINE

DELETE PLACEHOLDER CSCAL_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CSCAL_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CSCAL subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CSCAL ({n_arg},{a_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER CSET_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CSET_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CSET subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CSET ({n_arg},{a_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER CSROT_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CSROT_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CSROT subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CSROT ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg},{c_arg},{s_arg})"

END DEFINE

DELETE PLACEHOLDER CSSCAL_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CSSCAL_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CSSCAL subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CSSCAL ({n_arg},{a_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER CSUM_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CSUM_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CSUM function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CSUM ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER CSVCAL_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CSVCAL_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CSVCAL subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CSVCAL ({n_arg},{a_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER CSWAP_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CSWAP_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CSWAP subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CSWAP ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER CVCAL_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CVCAL_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CVCAL subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CVCAL ({n_arg},{a_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER CZAXPY_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER CZAXPY_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CZAXPY subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CZAXPY ({n_arg},{a_arg},{x_arg},{incx_arg},{y_arg},{incy_arg},"
    "	1 {z_arg},{incz_arg})"

END DEFINE

DELETE PLACEHOLDER C_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER C_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{real_arg}"

END DEFINE

DELETE PLACEHOLDER DAMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DAMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DAMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DAMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER DAMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DAMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DAMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DAMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER DASUM_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DASUM_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DASUM function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DASUM ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER DATA_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DATA_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Data element for DATA statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=MENU -

    "var"/PLACEHOLDER
    "array_name"/PLACEHOLDER
    "array_ref"/PLACEHOLDER
    "char_substring"/PLACEHOLDER
    "implied_DO_list"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER DATA_SPEC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DATA_SPEC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "	{data_elm}... /{[{unsign_int_cons}*]{cons}}.../"

END DEFINE

DELETE PLACEHOLDER DATA_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DATA_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DATA statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DATA {data_spec},"
    "	1    [data_spec]..."

END DEFINE

DELETE PLACEHOLDER DATE_BUF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DATE_BUF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "var"/PLACEHOLDER
    "array_name"/PLACEHOLDER
    "array_ref"/PLACEHOLDER
    "char_substring"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER DATE_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DATE_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DATE subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DATE ({date_buf})"

END DEFINE

DELETE PLACEHOLDER DAXPY_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DAXPY_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DAXPY subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DAXPY ({n_arg},{a_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER DBLE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DBLE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 or REAL*8 argument" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DBLE({real_arg})"

END DEFINE

DELETE PLACEHOLDER DBLE_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DBLE_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Conversion to REAL*8 Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_dble"/PLACEHOLDER
    "dble"/PLACEHOLDER
    "dbleq" /TOKEN

END DEFINE

DELETE PLACEHOLDER DCMPLX_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DCMPLX_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Conversion to COMPLEX*16 " -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DCMPLX ({arg})"

END DEFINE

DELETE PLACEHOLDER DCOPY_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DCOPY_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DCOPY subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DCOPY ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER "DD-MMM-YYYY" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "DD-MMM-YYYY" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Enter the date (eg. 01-Mar-1992)"

END DEFINE

DELETE PLACEHOLDER DDOT_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DDOT_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DDOT function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SDOT ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER DECLARATION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DECLARATION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Type Declaration" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="" -
    /TYPE=MENU -

    "byte" /TOKEN
    "integer" /TOKEN
    "integer1" /TOKEN
    "integer2" /TOKEN
    "integer4" /TOKEN
    "real" /TOKEN
    "real4" /TOKEN
    "real8" /TOKEN
    "real16" /TOKEN
    "complex" /TOKEN
    "complex8" /TOKEN
    "complex16" /TOKEN
    "double complex" /TOKEN
    "logical" /TOKEN
    "logical1" /TOKEN
    "logical2" /TOKEN
    "logical4" /TOKEN
    "CHARACTER" /TOKEN
    "STRUCTURE" /TOKEN
    "RECORD" /TOKEN

END DEFINE

DELETE PLACEHOLDER DEFAULTFILE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DEFAULTFILE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DEFAULTFILE=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DEFAULTFILE = {char_exp}"

END DEFINE

DELETE PLACEHOLDER DEFAULTFILE_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DEFAULTFILE_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DEFAULTFILE = {dfi}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=NONTERMINAL -

    "	DEFAULTFILE = {dfi}"

END DEFINE

DELETE PLACEHOLDER DEFINE_FILE_SPEC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DEFINE_FILE_SPEC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=NONTERMINAL -

    "	{unit} ({nrec}, {rec_len}, U, {integer_var})"

END DEFINE

DELETE PLACEHOLDER DEFINE_FILE_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DEFINE_FILE_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DEFINE FILE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DEFINE FILE {define_file_spec}..."

END DEFINE

DELETE PLACEHOLDER DELETE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DELETE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Delete" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'DELETE'"

END DEFINE

DELETE PLACEHOLDER DELETE_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DELETE_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DELETE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DELETE (UNIT={unit}[, REC={record_spec}][, ERR={lbl}][, IOSTAT={ios}])"

END DEFINE

DELETE PLACEHOLDER DESCENDING_FILE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DESCENDING_FILE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DESCENDING" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DESCENDING"

END DEFINE

DELETE PLACEHOLDER DESCRIPTION_OR_NONE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DESCRIPTION_OR_NONE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "none"

END DEFINE

DELETE PLACEHOLDER DESIGN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DESIGN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Implementation design, algorithms used, etc." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "DESIGN:"
    " "
    "    {tbs}"
    " "

END DEFINE

DELETE PLACEHOLDER DFI -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DFI -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A character expression specifying the default file name specification"
    "string"

END DEFINE

DELETE PLACEHOLDER DFLOAT_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DFLOAT_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*8 to INTEGER conversion" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_dfloat"/PLACEHOLDER
    "dfloati" /TOKEN
    "dfloatj" /TOKEN

END DEFINE

DELETE PLACEHOLDER DICTIONARY_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DICTIONARY_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DICTIONARY statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DICTIONARY '{char}...[list_opt]'"

END DEFINE

DELETE PLACEHOLDER DIM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DIM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL or REAL arguments and result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DIM ({integer_or_real_arg},{integer_or_real_arg})"

END DEFINE

DELETE PLACEHOLDER DIMENSION_SPEC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DIMENSION_SPEC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Dimension specification" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "	{array_name}({dim_decl}...)"

END DEFINE

DELETE PLACEHOLDER DIMENSION_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DIMENSION_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DIMENSION statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DIMENSION {dimension_spec}..."

END DEFINE

DELETE PLACEHOLDER DIM_DECL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DIM_DECL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Dimension declarator" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=NONTERMINAL -

    "	[{lbound}:]{ubound}"

END DEFINE

DELETE PLACEHOLDER DIM_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DIM_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Positive Difference Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_dim"/PLACEHOLDER
    "iidim" /TOKEN
    "jidim" /TOKEN
    "dim"/PLACEHOLDER
    "ddim" /TOKEN
    "qdim" /TOKEN

END DEFINE

DELETE PLACEHOLDER DIRECT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DIRECT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'DIRECT'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'DIRECT'"

END DEFINE

DELETE PLACEHOLDER DIRECT_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DIRECT_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DIRECT = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 DIRECT = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER DISP -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DISP -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A decimal digit string containing 1 to 5 digits or a character constant"

END DEFINE

DELETE PLACEHOLDER DISPOSE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DISPOSE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DISPOSE={disp_options}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DISPOSE = {disp_options}"

END DEFINE

DELETE PLACEHOLDER DISP_OPTIONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DISP_OPTIONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "keep"/PLACEHOLDER
    "delete"/PLACEHOLDER
    "print"/PLACEHOLDER
    "submit"/PLACEHOLDER
    "print_delete"/PLACEHOLDER
    "submit_delete"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER DIV -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DIV -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="/" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/"

END DEFINE

DELETE PLACEHOLDER DLIST -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DLIST -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "array_ref"/PLACEHOLDER
    "char_substring"/PLACEHOLDER
    "implied_do_list"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER DMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER DMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER DNORM2_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DNORM2_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DNORM2 function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DNORM2 ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER DNRM2_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DNRM2_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DNRM2 function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DNRM2 ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER DNRSQ_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DNRSQ_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DNRSQ function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DNRSQ ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER DOLLAR_FIELD -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DOLLAR_FIELD -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="$" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	$"

END DEFINE

DELETE PLACEHOLDER DOUBLE_COMPLEX_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DOUBLE_COMPLEX_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DOUBLE COMPLEX" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DOUBLE COMPLEX"

END DEFINE

DELETE PLACEHOLDER DOUBLE_PRECISION_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DOUBLE_PRECISION_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	DOUBLE PRECISION" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DOUBLE PRECISION"

END DEFINE

DELETE PLACEHOLDER DO_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DO_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DO statements" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "do_index" /TOKEN
    "do_index_label" /TOKEN
    "do_while" /TOKEN
    "do_while_label" /TOKEN

END DEFINE

DELETE PLACEHOLDER DO_VAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DO_VAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer or real variable"

END DEFINE

DELETE PLACEHOLDER DROTG_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DROTG_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DROTG subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DROTG ({a_arg},{b_arg},{c_arg},{s_arg})"

END DEFINE

DELETE PLACEHOLDER DROT_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DROT_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DROT subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DROT ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg},{c_arg},{s_arg})"

END DEFINE

DELETE PLACEHOLDER DSCAL_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DSCAL_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DSCAL subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DSCAL ({n_arg},{a_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER DSET_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DSET_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DSET subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DSET ({n_arg},{a_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER DSUM_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DSUM_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DSUM function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DSUM ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER DSWAP_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DSWAP_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DSWAP subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DSWAP ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER DTYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DTYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Data type" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "byte_type"/PLACEHOLDER
    "integer_type"/PLACEHOLDER
    "integer1_type"/PLACEHOLDER
    "integer2_type"/PLACEHOLDER
    "integer4_type"/PLACEHOLDER
    "real_type"/PLACEHOLDER
    "real4_type"/PLACEHOLDER
    "real8_type"/PLACEHOLDER
    "double_precision_type"/PLACEHOLDER
    "logical_type"/PLACEHOLDER
    "logical1_type"/PLACEHOLDER
    "logical2_type"/PLACEHOLDER
    "logical4_type"/PLACEHOLDER
    "complex_type"/PLACEHOLDER
    "complex8_type"/PLACEHOLDER
    "complex16_type"/PLACEHOLDER
    "double_complex_type"/PLACEHOLDER
    "char_len_type"/PLACEHOLDER
    "char_var_type"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER DUMMY_ALIASES -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DUMMY_ALIASES -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Dummy arguments may have aliases" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DUMMY_ALIASES"

END DEFINE

DELETE PLACEHOLDER DUMMY_ALIASES_OPT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DUMMY_ALIASES_OPT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Dummy arguments may/may not have aliases" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "dummy_aliases"/PLACEHOLDER
    "nodummy_aliases"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER DVCAL_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DVCAL_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DVCAL subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DVCAL ({n_arg},{a_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER DZASUM_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DZASUM_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DZASUM function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DZASUM ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER DZAXPY_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DZAXPY_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DZAXPY subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DZAXPY ({n_arg},{a_arg},{x_arg},{incx_arg},{y_arg},{incy_arg},"
    "	1 {z_arg},{incz_arg})"

END DEFINE

DELETE PLACEHOLDER DZNORM2_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DZNORM2_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DZNORM2 function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DZNORM2 ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER DZNRM2_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DZNRM2_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DZNRM2 function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DZNRM2 ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER DZNRSQ_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER DZNRSQ_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DZNRSQ function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DZNRSQ ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER "D[+ OR -]{N}..." -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "D[+ OR -]{N}..." -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	D[+ or -]{n}..."

END DEFINE

DELETE PLACEHOLDER D_CODE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER D_CODE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Dw.d" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[repeat]D{width}.{ndec}"

END DEFINE

DELETE PLACEHOLDER EDIT_FIELD_DESCR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EDIT_FIELD_DESCR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="nH,'...',nX,Tn,TLn,TRn,Q,$,:,BN,BZ,S,SP,SS" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "x_edit_field"/PLACEHOLDER
    "t_edit_field"/PLACEHOLDER
    "s_edit_field"/PLACEHOLDER
    "q_edit_field"/PLACEHOLDER
    "b_edit_field"/PLACEHOLDER
    "char_cons"/PLACEHOLDER
    "hollerith_field"/PLACEHOLDER
    "colon_field"/PLACEHOLDER
    "dollar_field"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER ELSE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ELSE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ELSE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ELSE"
    "		{executable_statement}..."

END DEFINE

DELETE PLACEHOLDER ELSE_IF_THEN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ELSE_IF_THEN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ELSE IF statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ELSE IF ({logical_exp}) THEN"
    "		{executable_statement}..."

END DEFINE

DELETE PLACEHOLDER ENDFILE_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ENDFILE_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ENDFILE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ENDFILE (UNIT={unit}[, ERR={lbl}][, IOSTAT={ios}])"

END DEFINE

DELETE PLACEHOLDER ENTRY_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ENTRY_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ENTRY statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ENTRY {name}([p]...)"

END DEFINE

DELETE PLACEHOLDER EQUAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EQUAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=".EQ." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.EQ."

END DEFINE

DELETE PLACEHOLDER EQUIVALENCE_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EQUIVALENCE_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="EQUIVALENCE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	EQUIVALENCE {equiv_spec}..."

END DEFINE

DELETE PLACEHOLDER EQUIV_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EQUIV_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Equivalence element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "var"/PLACEHOLDER
    "array_ref"/PLACEHOLDER
    "char_substring"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER EQUIV_SPEC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EQUIV_SPEC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "	({equiv_elm},{equiv_elm}...)"

END DEFINE

DELETE PLACEHOLDER EQV -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EQV -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=".EQV." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.EQV."

END DEFINE

DELETE PLACEHOLDER ERR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ERR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ERR=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ERR = {lbl}"

END DEFINE

DELETE PLACEHOLDER ERROR_CLOSE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ERROR_CLOSE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Label to branch to upon error" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ERR={lbl}"

END DEFINE

DELETE PLACEHOLDER ERRSNS_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ERRSNS_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ERRSNS subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ERRSNS ({fnum}, {rmssts}, {rmsstv}, {iunit}, {condval})"

END DEFINE

DELETE PLACEHOLDER ERR_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ERR_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ERR = {lbl}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 ERR = {lbl}"

END DEFINE

DELETE PLACEHOLDER EXECUTABLE_STATEMENT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EXECUTABLE_STATEMENT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Fortran executable statements" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="" -
    /TYPE=MENU -

    "assignment"/PLACEHOLDER
    "ACCEPT" /TOKEN
    "ASSERT" /TOKEN
    "BACKSPACE" /TOKEN
    "CALL" /TOKEN
    "CLOSE" /TOKEN
    "CONTINUE" /TOKEN
    "DELETE" /TOKEN
    "DO" /TOKEN
    "ENDFILE" /TOKEN
    "ENTRY" /TOKEN
    "FIND" /TOKEN
    "FORMAT" /TOKEN
    "GOTO" /TOKEN
    "IF" /TOKEN
    "INCLUDE" /TOKEN
    "INQUIRE" /TOKEN
    "OPEN" /TOKEN
    "PAUSE" /TOKEN
    "PRINT" /TOKEN
    "READ" /TOKEN
    "RETURN" /TOKEN
    "REWIND" /TOKEN
    "REWRITE" /TOKEN
    "STOP" /TOKEN
    "TYPE" /TOKEN
    "UNLOCK" /TOKEN
    "WRITE" /TOKEN

END DEFINE

DELETE PLACEHOLDER EXIST_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EXIST_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="EXIST = {logical_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 EXIST = {logical_scalar}"

END DEFINE

DELETE PLACEHOLDER EXIT_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EXIT_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="EXIT routine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	EXIT [({exit_status})]"

END DEFINE

DELETE PLACEHOLDER EXIT_STATUS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EXIT_STATUS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An optional integer argument you can use to specify the image"
    "exit status value"

END DEFINE

DELETE PLACEHOLDER EXPO -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EXPO -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="**" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	**"

END DEFINE

DELETE PLACEHOLDER EXPON -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EXPON -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	EXP ({r4arg})"

END DEFINE

DELETE PLACEHOLDER EXPON_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EXPON_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Exponential" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_exp" /TOKEN
    "expon"/PLACEHOLDER
    "dexp" /TOKEN
    "qexp" /TOKEN
    "cexp" /TOKEN
    "cdexp" /TOKEN

END DEFINE

DELETE PLACEHOLDER EXTENDSIZE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EXTENDSIZE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="EXTENDSIZE=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	EXTENDSIZE = {arith_exp}"

END DEFINE

DELETE PLACEHOLDER EXTEND_QUAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EXTEND_QUAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Width of statement field" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "EXTEND_SOURCE"/PLACEHOLDER
    "NOEXTEND_SOURCE"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER EXTEND_SOURCE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EXTEND_SOURCE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Up to column 132" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/EXTEND_SOURCE"

END DEFINE

DELETE PLACEHOLDER EXTERNAL_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER EXTERNAL_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="EXTERNAL statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	EXTERNAL {name}..."

END DEFINE

DELETE PLACEHOLDER "E[+ OR -]{N}..." -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "E[+ OR -]{N}..." -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Decimal exponent" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	E[+ or -]{n}..."

END DEFINE

DELETE PLACEHOLDER E_CODE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER E_CODE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Ew.d[Ee]" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[repeat]E{width}.{ndec}[E{int_cons}]"

END DEFINE

DELETE PLACEHOLDER "E{INT_CONS}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "E{INT_CONS}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Number of characters in exponent" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	E{int_cons}"

END DEFINE

DELETE PLACEHOLDER F77 -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER F77 -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Fortran-77" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/F77"

END DEFINE

DELETE PLACEHOLDER F77_QUAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER F77_QUAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Fortran standard interpretation rules" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "F77"/PLACEHOLDER
    "NOF77"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER FALSE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FALSE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Logical false constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.FALSE."

END DEFINE

DELETE PLACEHOLDER FI -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FI -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A character expression, numeric scalar memory reference, or numeric"
    "array name reference whose value specifies the name of the file to be"
    "inquired about"

END DEFINE

DELETE PLACEHOLDER FIELD_DECLARATION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FIELD_DECLARATION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Field Declaration Statement" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="" -
    /TYPE=MENU -

    "byte" /TOKEN
    "integer" /TOKEN
    "integer1" /TOKEN
    "integer2" /TOKEN
    "integer4" /TOKEN
    "real" /TOKEN
    "real4" /TOKEN
    "real8" /TOKEN
    "double precision" /TOKEN
    "complex" /TOKEN
    "complex8" /TOKEN
    "complex16" /TOKEN
    "double complex" /TOKEN
    "logical" /TOKEN
    "logical1" /TOKEN
    "logical2" /TOKEN
    "logical4" /TOKEN
    "character_field" /TOKEN
    "RECORD" /TOKEN
    "STRUCTURE" /TOKEN
    "UNION" /TOKEN
    "PARAMETER" /TOKEN

END DEFINE

DELETE PLACEHOLDER FIELD_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FIELD_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "A list of fields having the structure of the associated structure"
    "declaration.  A field name list is allowed only in nested structure"
    "declarations."

END DEFINE

DELETE PLACEHOLDER FIELD_SPEC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FIELD_SPEC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=HORIZONTAL -
    /SEPARATOR=", " -
    /TYPE=MENU -

    "integer_field_descr"/PLACEHOLDER
    "real_and_complex_field_descr"/PLACEHOLDER
    "logical_field_descr"/PLACEHOLDER
    "character_field_descr"/PLACEHOLDER
    "edit_field_descr"/PLACEHOLDER
    "scale_factor_descr"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER FILE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FILE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FILE=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	FILE = {char_exp}"

END DEFINE

DELETE PLACEHOLDER FILE_OR_UNIT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FILE_OR_UNIT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "file_par" /TOKEN
    "unit_par" /TOKEN

END DEFINE

DELETE PLACEHOLDER FILE_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FILE_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FILE = {fi}" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="," -
    /TYPE=NONTERMINAL -

    "	1 FILE = {fi},"
    "	1 [defaultfile_par]"

END DEFINE

DELETE PLACEHOLDER FILE_SPEC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FILE_SPEC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "File specification"

END DEFINE

DELETE PLACEHOLDER FIND_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FIND_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FIND statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	FIND (UNIT={unit}, REC={record_spec}[, ERR={lbl}][, IOSTAT={ios}])"

END DEFINE

DELETE PLACEHOLDER FIXED -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FIXED -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FIXED" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'FIXED'"

END DEFINE

DELETE PLACEHOLDER FLOAT_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FLOAT_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="INTEGER to REAL*4 conversion" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_float"/PLACEHOLDER
    "floati" /TOKEN
    "floatj" /TOKEN

END DEFINE

DELETE PLACEHOLDER FMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Format Specifier" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A statement label of a FORMAT statement, an integer variable that"
    "has been assigned a FORMAT statement label with an ASSIGN statement,"
    "or the name of an array, array element, or character expression containing"
    "a run-time format"

END DEFINE

DELETE PLACEHOLDER FNUM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FNUM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer variable or array element into which is stored the most"
    "recent Fortran run-time error number."

END DEFINE

DELETE PLACEHOLDER FORM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FORM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FORM = {form_options}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	FORM = {form_options}"

END DEFINE

DELETE PLACEHOLDER "FORMAL PARAMETERS" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "FORMAL PARAMETERS" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Formal parameters for subprogram" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "FORMAL PARAMETERS:"
    " "
    "    {parameters}"
    " "

END DEFINE

DELETE PLACEHOLDER FORMATTED -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FORMATTED -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'FORMATTED'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'FORMATTED'"

END DEFINE

DELETE PLACEHOLDER FORMATTED_DIRECT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FORMATTED_DIRECT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Formatted direct READ" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}, FMT={fmt}, REC={rec}[, ERR={lbl}][, IOSTAT={ios}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER FORMATTED_INDEXED -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FORMATTED_INDEXED -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Formatted indexed READ" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}, FMT={fmt}, {keyspec}[, KEYID={kn}][, ERR={lbl}][, IOSTAT={ios}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER FORMATTED_INTERNAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FORMATTED_INTERNAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Formatted internal READ" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={ifile}, FMT={fmt}[, ERR={lbl}][, IOSTAT={ios}][, END={lbl}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER FORMATTED_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FORMATTED_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FORMATTED = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 FORMATTED = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER FORMATTED_REWRITE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FORMATTED_REWRITE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Formatted REWRITE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	REWRITE (UNIT={unit}, FMT={fmt}[, ERR={lbl}][, IOSTAT={ios}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER FORMAT_SEQ -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FORMAT_SEQ -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Formatted sequential READ" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}, FMT={fmt}[, ERR={lbl}][, IOSTAT={ios}][, END={lbl}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER FORMAT_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FORMAT_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FORMAT statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{lbl}	FORMAT ([/]...{field_spec}...[/]...)"

END DEFINE

DELETE PLACEHOLDER FORM_OPTIONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FORM_OPTIONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Format options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "formatted"/PLACEHOLDER
    "unformatted"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER FORM_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FORM_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FORM = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 FORM = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER FORTRAN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FORTRAN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'Fortran'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'Fortran'"

END DEFINE

DELETE PLACEHOLDER FUNCTION_HEADER_COMMENTS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FUNCTION_HEADER_COMMENTS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Function header" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "+"
    " "
    " [abstract]"
    " FUNCTIONAL DESCRIPTION:"
    " "
    "     [tbs]"
    " "
    " [formal parameters]"
    " [common blocks]"
    " "
    " FUNCTION VALUE:"
    " "
    "     [tbs]"
    " "
    " [design]"
    "-"

END DEFINE

DELETE PLACEHOLDER FUNCTION_PROGRAM_UNIT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FUNCTION_PROGRAM_UNIT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FUNCTION program unit" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[options_stmt]"
    "	[dtype] FUNCTION {name}([p]...)"
    "	"
    "C[function_header_comments]"
    "	[implicit_stmt]"
    "	[specification_statement]..."
    " "
    "[CDEC$_DIR]..."
    "[CPAR$_DIR]..."
    " "
    "	[executable_statement]..."
    "	RETURN"
    "	END"
    " "

END DEFINE

DELETE PLACEHOLDER FUNCTION_RETURN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER FUNCTION_RETURN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Return from FUNCTION" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	RETURN "

END DEFINE

DELETE PLACEHOLDER F_CODE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER F_CODE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Fw.d" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[repeat]F{width}.{ndec}"

END DEFINE

DELETE PLACEHOLDER GENERIC_ABS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_ABS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic absolute value function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ABS ({arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_ACOS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_ACOS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Arc cosine function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ACOS({arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_ACOSD -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_ACOSD -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Arc cosine function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ACOSD({arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_AINT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_AINT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic REAL argument Trunctation Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	AINT({real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_AMAX0 -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_AMAX0 -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Maximum function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	AMAX0 ({integer_arg}...)"

END DEFINE

DELETE PLACEHOLDER GENERIC_AMIN0 -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_AMIN0 -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Minimum function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	AMIN0 ({integer_arg}...)"

END DEFINE

DELETE PLACEHOLDER GENERIC_ANINT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_ANINT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic REAL argument Trunctation Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ANINT({real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_ASIND -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_ASIND -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Arc Sine (degree) function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ASIND ({arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_ATAN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_ATAN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Arc Tangent Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ATAN ({arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_ATAN2 -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_ATAN2 -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Arc Tangent2 Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ATAN2 ({real_arg},{real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_ATAN2D -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_ATAN2D -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Arc Tangent2 (degrees) Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ATAN2 ({real_arg},{real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_ATAND -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_ATAND -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Arc Tangent (degrees) Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ATAND ({real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_BTEST -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_BTEST -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic bit test function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	BTEST ({integer_arg}, {integer_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_CONJG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_CONJG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Complex Conjugate function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	CONJG ({complex_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_COSH -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_COSH -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Hyperbolic cosine Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	COSH ({real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_DBLE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_DBLE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic conversion to REAL*8 Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DBLE({arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_DFLOAT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_DFLOAT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic INTEGER to REAL*8 conversion" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DFLOAT ({integer_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_DIM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_DIM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic positive difference function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	DIM ({integer_or_real_arg},{integer_or_real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_FLOAT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_FLOAT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic INTEGER to REAL*4 conversion" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	FLOAT ({integer_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_IABS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_IABS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Integer absolute value function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IABS({integer_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_IAND -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_IAND -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic bitwise AND function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IAND ({integer_arg}, {integer_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_IBCLR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_IBCLR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic bit clear function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IBCLR ({integer_arg}, {integer_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_IBITS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_IBITS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic bit extraction function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IBITS ({integer_arg}, {integer_arg}, {integer_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_IBSET -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_IBSET -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Bit Set function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IBSET ({integer_arg}, {integer_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_IDIM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_IDIM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic positive difference function for INTEGER arguments" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IDIM ({integer_arg},{integer_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_IDINT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_IDINT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic REAL*8 argument Trunctation Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IDINT({real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_IDNINT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_IDNINT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic REAL*8 argument Trunctation Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IDNINT({real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_IEOR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_IEOR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic bitwise Exclusive OR function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IEOR ({integer_arg}, {integer_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_IFIX -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_IFIX -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic REAL*4 to INTEGER conversion" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IFIX ({r4arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_IMAG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_IMAG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Imaginary Part function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IMAG ({complex_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_INT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_INT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Truncation (INT) Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	INT({real_or_complex_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_IOR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_IOR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic bitwise OR function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IOR ({integer_arg}, {integer_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_IQINT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_IQINT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic REAL*16 argument Trunctation Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IQINT({real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_IQNINT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_IQNINT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic REAL*16 argument Trunctation Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IQNINT({real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_ISHFT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_ISHFT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic bitwise SHIFT function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ISHFT ({integer_arg}, {integer_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_ISHFTC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_ISHFTC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic bitwise circular shift function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ISHFTC ({integer_arg}, {integer_arg}, {integer_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_ISIGN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_ISIGN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic integer transfer of sign function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ISIGN ({integer_arg}, {integer_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_MAX -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_MAX -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Maximum function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	MAX ({integer_or_real_arg}...)"

END DEFINE

DELETE PLACEHOLDER GENERIC_MAX0 -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_MAX0 -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Maximum function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	MAX0 ({integer_arg}...)"

END DEFINE

DELETE PLACEHOLDER GENERIC_MAX1 -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_MAX1 -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Maximum function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	MAX1 ({real_arg}...)"

END DEFINE

DELETE PLACEHOLDER GENERIC_MIN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_MIN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Minimum function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	MIN ({integer_or_real_arg}...)"

END DEFINE

DELETE PLACEHOLDER GENERIC_MIN0 -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_MIN0 -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Minimum function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	MIN0 ({integer_arg}...)"

END DEFINE

DELETE PLACEHOLDER GENERIC_MIN1 -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_MIN1 -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Minimum function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	MIN1 ({real_arg}...)"

END DEFINE

DELETE PLACEHOLDER GENERIC_MOD -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_MOD -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic remainder function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	MOD ({integer_or_real_arg},{integer_or_real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_NINT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_NINT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Nearest Integer (NINT) Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	NINT({real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_NOT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_NOT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic bitwise NOT function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	NOT ({integer_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_REAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_REAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic conversion to REAL*4 Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	REAL({arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_SIGN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_SIGN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic transfer of sign function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SIGN ({integer_or_real_arg}, {integer_or_real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_SINH -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_SINH -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Hyperbolic Sine Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SINH ({real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_TANH -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_TANH -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic hyperbolic tangent function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	TANH ({real_arg})"

END DEFINE

DELETE PLACEHOLDER GENERIC_ZEXT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GENERIC_ZEXT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic zero-extend function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZEXT({integer_arg})"

END DEFINE

DELETE PLACEHOLDER GOTO_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GOTO_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="GO TO statements" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "go_unconditional" /TOKEN
    "go_computed" /TOKEN

END DEFINE

DELETE PLACEHOLDER GREATER_THAN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GREATER_THAN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=".GT." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.GT."

END DEFINE

DELETE PLACEHOLDER GREATER_THAN_OR_EQUAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GREATER_THAN_OR_EQUAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=".GE." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.GE."

END DEFINE

DELETE PLACEHOLDER GRP_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER GRP_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A symbolic name given to the namelist"

END DEFINE

DELETE PLACEHOLDER G_CODE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER G_CODE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Gw.d[Ee]" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[repeat]G{width}.{ndec}[E{int_cons}]"

END DEFINE

DELETE PLACEHOLDER G_FLOAT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER G_FLOAT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="G_floating" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/G_FLOATING"

END DEFINE

DELETE PLACEHOLDER G_FLOAT_QUAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER G_FLOAT_QUAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Double precision data type" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "G_FLOAT"/PLACEHOLDER
    "NOG_FLOAT"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER HEX_CONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER HEX_CONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Hexadecimal constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "	X'{hex_dig}...'"
    "	'{hex_dig}...'X"
    "	Z'{hex_dig}...'"
    "	'{hex_dig}...'Z"

END DEFINE

DELETE PLACEHOLDER HEX_DIG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER HEX_DIG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Hexidecimal Digit" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A hexadecimal digit from 0 to 9, or a character from A to F"

END DEFINE

DELETE PLACEHOLDER HOLLERITH_FIELD -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER HOLLERITH_FIELD -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="nHc..." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{nchar}H{char}..."

END DEFINE

DELETE PLACEHOLDER HOL_CONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER HOL_CONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Hollerith constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{n}H{char}..."

END DEFINE

DELETE PLACEHOLDER I2ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER I2ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "An INTEGER*2 argument"

END DEFINE

DELETE PLACEHOLDER I4 -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER I4 -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Four bytes" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/I4"

END DEFINE

DELETE PLACEHOLDER I4ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER I4ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "An INTEGER*4 argument"

END DEFINE

DELETE PLACEHOLDER I4_QUAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER I4_QUAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Default INTEGER data length" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "I4"/PLACEHOLDER
    "NOI4"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER IABS_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IABS_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Integer absolute value function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_iabs"/PLACEHOLDER
    "iiabs" /TOKEN
    "jiabs" /TOKEN

END DEFINE

DELETE PLACEHOLDER IAND_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IAND_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BITWISE AND Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_iand"/PLACEHOLDER
    "iiand" /TOKEN
    "jiand" /TOKEN

END DEFINE

DELETE PLACEHOLDER IBCLR_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IBCLR_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Bit Clear Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_ibclr"/PLACEHOLDER
    "iibclr" /TOKEN
    "jibclr" /TOKEN

END DEFINE

DELETE PLACEHOLDER IBITS_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IBITS_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Bit Extraction Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_ibits"/PLACEHOLDER
    "iibits" /TOKEN
    "jibits" /TOKEN

END DEFINE

DELETE PLACEHOLDER IBM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IBM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'IBM'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'IBM'"

END DEFINE

DELETE PLACEHOLDER IBSET_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IBSET_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Bit Set Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_ibset"/PLACEHOLDER
    "iibset" /TOKEN
    "jibset" /TOKEN

END DEFINE

DELETE PLACEHOLDER ICAMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ICAMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ICAMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ICAMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER ICAMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ICAMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ICAMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ICAMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER ICHAR_FUNC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ICHAR_FUNC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ICHAR function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ICHAR ({char})"

END DEFINE

DELETE PLACEHOLDER ICMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ICMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ICMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ICMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER ICMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ICMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ICMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ICMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER IDAMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IDAMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="IDAMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IDAMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER IDAMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IDAMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="IDAMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IDAMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER IDATE_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IDATE_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="IDATE subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IDATE ({integer_var},{integer_var},{integer_var})"

END DEFINE

DELETE PLACEHOLDER IDIM_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IDIM_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Positive Difference Functions for INTEGER arguments" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_idim"/PLACEHOLDER
    "iidim" /TOKEN
    "jidim" /TOKEN

END DEFINE

DELETE PLACEHOLDER IDINT_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IDINT_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_idint"/PLACEHOLDER
    "iidint" /TOKEN
    "jidint" /TOKEN

END DEFINE

DELETE PLACEHOLDER IDMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IDMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="IDMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IDMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER IDMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IDMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="IDMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IDMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER IDNINT_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IDNINT_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_idnint"/PLACEHOLDER
    "iidnnt" /TOKEN
    "jidnnt" /TOKEN

END DEFINE

DELETE PLACEHOLDER IEOR_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IEOR_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BITWISE Exclusive or Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_ieor"/PLACEHOLDER
    "iieor" /TOKEN
    "jieor" /TOKEN

END DEFINE

DELETE PLACEHOLDER IFILE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IFILE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An internal file specifier"

END DEFINE

DELETE PLACEHOLDER IFIX_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IFIX_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 to INTEGER conversion" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_ifix"/PLACEHOLDER
    "iifix" /TOKEN
    "jifix" /TOKEN
    "hfix" /TOKEN

END DEFINE

DELETE PLACEHOLDER IF_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IF_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="IF statements" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "IF_LOGICAL" /TOKEN
    "IF_ARITH" /TOKEN
    "IF_THEN" /TOKEN

END DEFINE

DELETE PLACEHOLDER IMAG_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IMAG_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Imaginary part of COMPLEX" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_imag"/PLACEHOLDER
    "aimag" /TOKEN
    "dimag" /TOKEN

END DEFINE

DELETE PLACEHOLDER IMPLICIT_NONE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IMPLICIT_NONE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Disable implicit typing" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IMPLICIT NONE"

END DEFINE

DELETE PLACEHOLDER IMPLICIT_SPECIFICATION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IMPLICIT_SPECIFICATION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=NONTERMINAL -

    "	{dtype} ({alpha_specification}...)"

END DEFINE

DELETE PLACEHOLDER IMPLICIT_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IMPLICIT_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="IMPLICIT statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "implicit_type"/PLACEHOLDER
    "implicit_none"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER IMPLICIT_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IMPLICIT_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Override implicit typing" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IMPLICIT {implicit_specification}..."

END DEFINE

DELETE PLACEHOLDER IMPLIED_DO_LIST -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IMPLIED_DO_LIST -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Implied DO-list" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	({dlist},{integer_var}={integer_exp},{integer_exp}[, {integer_exp}])"

END DEFINE

DELETE PLACEHOLDER INCLUDE_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INCLUDE_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Include source text" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "include_file" /TOKEN
    "include_library_module" /TOKEN

END DEFINE

DELETE PLACEHOLDER INCX_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INCX_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{integer_arg}"

END DEFINE

DELETE PLACEHOLDER INCY_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INCY_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{integer_arg}"

END DEFINE

DELETE PLACEHOLDER INCZ_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INCZ_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{integer_arg}"

END DEFINE

DELETE PLACEHOLDER INDEXED -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INDEXED -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="INDEXED" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'INDEXED'"

END DEFINE

DELETE PLACEHOLDER INDEX_FUNC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INDEX_FUNC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="INDEX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	INDEX ({char_exp},{char_substring})"

END DEFINE

DELETE PLACEHOLDER INITIALSIZE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INITIALSIZE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="INITIALSIZE=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	INITIALSIZE = {arith_exp}"

END DEFINE

DELETE PLACEHOLDER INLINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INLINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generate inline code if possible" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	INLINE"

END DEFINE

DELETE PLACEHOLDER INLINE_OPT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INLINE_OPT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Controls inline code generation" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "INLINE"/PLACEHOLDER
    "NOINLINE"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER INQUIRE_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INQUIRE_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="," -
    /TYPE=MENU -

    "access_par" /TOKEN
    "blank_par" /TOKEN
    "carriagecontrol_par" /TOKEN
    "direct_par" /TOKEN
    "err_par" /TOKEN
    "exist_par" /TOKEN
    "form_par" /TOKEN
    "formatted_par" /TOKEN
    "iostat_par" /TOKEN
    "keyed_par" /TOKEN
    "name_par" /TOKEN
    "named_par" /TOKEN
    "nextrec_par" /TOKEN
    "number_par" /TOKEN
    "opened_par" /TOKEN
    "organization_par" /TOKEN
    "recl_par" /TOKEN
    "recordtype_par" /TOKEN
    "sequential_par" /TOKEN
    "unformatted_par" /TOKEN

END DEFINE

DELETE PLACEHOLDER INQUIRE_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INQUIRE_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="INQUIRE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	INQUIRE ("
    "	1 {file_or_unit},"
    "	1 {inquire_par}...)"

END DEFINE

DELETE PLACEHOLDER INTEGER1_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER1_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	INTEGER*1" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	INTEGER*1"

END DEFINE

DELETE PLACEHOLDER INTEGER2_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER2_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	INTEGER*2" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	INTEGER*2"

END DEFINE

DELETE PLACEHOLDER INTEGER4_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER4_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	INTEGER*4" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	INTEGER*4"

END DEFINE

DELETE PLACEHOLDER INTEGER_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=HORIZONTAL -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "An integer argument"

END DEFINE

DELETE PLACEHOLDER INTEGER_ARRAY_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER_ARRAY_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Integer array name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Integer array name"

END DEFINE

DELETE PLACEHOLDER INTEGER_ARRAY_REF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER_ARRAY_REF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Integer Array reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{integer_array_name}({subscr}...)"

END DEFINE

DELETE PLACEHOLDER INTEGER_EXP -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER_EXP -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Integer expression" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{int_elm} [{aop} {int_elm}]..."

END DEFINE

DELETE PLACEHOLDER INTEGER_EXP_PAREN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER_EXP_PAREN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=" Integer Expression in parentheses" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	({integer_exp})"

END DEFINE

DELETE PLACEHOLDER INTEGER_FIELD_DESCR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER_FIELD_DESCR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Iw, Ow, Zw, Iw.m, Ow.m, Zw.m" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "i_code"/PLACEHOLDER
    "o_code"/PLACEHOLDER
    "z_code"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER INTEGER_FUNC_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER_FUNC_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Integer function name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Integer function name"

END DEFINE

DELETE PLACEHOLDER INTEGER_FUNC_REF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER_FUNC_REF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Integer FUNCTION reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{integer_func_name}({arg}...)"

END DEFINE

DELETE PLACEHOLDER INTEGER_KEY -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER_KEY -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="INTEGER" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	INTEGER"

END DEFINE

DELETE PLACEHOLDER INTEGER_OR_REAL_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER_OR_REAL_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=HORIZONTAL -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "An integer or real argument"

END DEFINE

DELETE PLACEHOLDER INTEGER_SCALAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER_SCALAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer scalar memory reference"

END DEFINE

DELETE PLACEHOLDER INTEGER_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	INTEGER" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	INTEGER"

END DEFINE

DELETE PLACEHOLDER INTEGER_VAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTEGER_VAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Integer variable" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Integer variable"

END DEFINE

DELETE PLACEHOLDER INTRINSIC_FUNC_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTRINSIC_FUNC_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=HORIZONTAL -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "Intrinsic function name - Get help for a list of function names"

END DEFINE

DELETE PLACEHOLDER INTRINSIC_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INTRINSIC_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="INTRINSIC statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	INTRINSIC {intrinsic_func_name}..."

END DEFINE

DELETE PLACEHOLDER INT_CONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INT_CONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Integer constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[+ or -]{n}..."

END DEFINE

DELETE PLACEHOLDER INT_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INT_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Integer element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "int_cons"/PLACEHOLDER
    "integer_var"/PLACEHOLDER
    "integer_array_ref"/PLACEHOLDER
    "integer_exp"/PLACEHOLDER
    "integer_func_ref"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER INT_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER INT_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Truncation Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_int"/PLACEHOLDER
    "iint" /TOKEN
    "jint" /TOKEN
    "iidint" /TOKEN
    "jidint" /TOKEN
    "iiqint" /TOKEN
    "jiqint" /TOKEN

END DEFINE

DELETE PLACEHOLDER IOR_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IOR_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BITWISE OR Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_ior"/PLACEHOLDER
    "iior" /TOKEN
    "jior" /TOKEN

END DEFINE

DELETE PLACEHOLDER IOS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IOS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "integer_var"/PLACEHOLDER
    "arith_array_ref"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER IOSTAT_CLOSE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IOSTAT_CLOSE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Variable to receive error status" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IOSTAT={ios}"

END DEFINE

DELETE PLACEHOLDER IOSTAT_OPEN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IOSTAT_OPEN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="IOSTAT=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IOSTAT = {integer_var}"

END DEFINE

DELETE PLACEHOLDER IOSTAT_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IOSTAT_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="IOSTAT = {integer_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 IOSTAT = {ios}"

END DEFINE

DELETE PLACEHOLDER IO_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IO_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="I/O list element " -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "The I/O list in an input or output statement contains the names of"
    "variables,  arrays, array elements, and character substrings from"
    "which or to which data will be transferred.  The I/O list in an output"
    "statement can also contain constants and expressions to be output."

END DEFINE

DELETE PLACEHOLDER IQINT_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IQINT_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_iqint"/PLACEHOLDER
    "iiqint" /TOKEN
    "jiqint" /TOKEN

END DEFINE

DELETE PLACEHOLDER IQNINT_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IQNINT_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_iqnint"/PLACEHOLDER
    "iiqnnt" /TOKEN
    "jiqnnt" /TOKEN

END DEFINE

DELETE PLACEHOLDER ISAMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ISAMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ISAMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ISAMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER ISAMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ISAMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ISAMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ISAMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER ISHFTC_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ISHFTC_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BITWISE circular shift Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_ishftc"/PLACEHOLDER
    "iishftc" /TOKEN
    "jishftc" /TOKEN

END DEFINE

DELETE PLACEHOLDER ISHFT_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ISHFT_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BITWISE SHIFT Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_ishft"/PLACEHOLDER
    "iishft" /TOKEN
    "jishft" /TOKEN

END DEFINE

DELETE PLACEHOLDER ISIGN_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ISIGN_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Transfer of Sign Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_isign"/PLACEHOLDER
    "iisign" /TOKEN
    "jisign" /TOKEN

END DEFINE

DELETE PLACEHOLDER ISMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ISMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ISMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ISMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER ISMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ISMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ISMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ISMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER IUNIT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IUNIT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer variable or array element into which is stored the logical"
    "unit number, if the last error was an I/O error"

END DEFINE

DELETE PLACEHOLDER IZAMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IZAMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="IZAMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IZAMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER IZAMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IZAMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="IZAMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IZAMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER IZMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IZMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="IZMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IZMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER IZMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER IZMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="IZMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	IZMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER I_CODE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER I_CODE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="I{width}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[repeat]I{width}[min_char]"

END DEFINE

DELETE PLACEHOLDER KDIRECTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER KDIRECTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "ascending_file"/PLACEHOLDER
    "descending_file"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER KEEP -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER KEEP -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Retain" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'KEEP'"

END DEFINE

DELETE PLACEHOLDER KEYED -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER KEYED -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'KEYED'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'KEYED'"

END DEFINE

DELETE PLACEHOLDER KEYED_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER KEYED_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="KEYED = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 KEYED = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER KEYSPEC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER KEYSPEC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Key specifier" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "key" /TOKEN
    "keyeq" /TOKEN
    "keyge" /TOKEN
    "keygt" /TOKEN
    "keynxt" /TOKEN
    "keynxtne" /TOKEN
    "keylt" /TOKEN
    "keyle" /TOKEN

END DEFINE

DELETE PLACEHOLDER KEY_EXP -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER KEY_EXP -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Key expressioin" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "char_exp"/PLACEHOLDER
    "integer_exp"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER KEY_OPEN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER KEY_OPEN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="KEY ={integer_exp}:{integer_exp}[{:{ktype}[:{kdirection}]}])" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	KEY = ({integer_exp}:{integer_exp}[:{ktype}[:{kdirection}]])"

END DEFINE

DELETE PLACEHOLDER KTYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER KTYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "integer_key"/PLACEHOLDER
    "character_key"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER LAB -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LAB -
    /LANGUAGE="Fortran" -
    /AUTO_SUBSTITUTE  -
    /DESCRIPTION="Do statement label" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The label of an executable statement.  The statement must physically"
    "follow in the same program unit."

END DEFINE

DELETE PLACEHOLDER LBL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LBL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "The label of an executable statement.  "

END DEFINE

DELETE PLACEHOLDER LBOUND -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LBOUND -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Upper bound" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{bounds_exp}"

END DEFINE

DELETE PLACEHOLDER LEN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LEN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Length in characters"

END DEFINE

DELETE PLACEHOLDER LENGTH_FUNC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LENGTH_FUNC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="LENGTH function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	LEN ({char_exp})"

END DEFINE

DELETE PLACEHOLDER LESS_THAN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LESS_THAN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=".LT." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.LT."

END DEFINE

DELETE PLACEHOLDER LESS_THAN_OR_EQUAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LESS_THAN_OR_EQUAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=".LE." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.LE."

END DEFINE

DELETE PLACEHOLDER LIST -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LIST -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	

END DEFINE

DELETE PLACEHOLDER LIST_DIRECTED_INTERNAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LIST_DIRECTED_INTERNAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="List-directed internal READ" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={ifile}, FMT=*[, ERR={lbl}][, IOSTAT={ios}][, END={lbl}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER LIST_DIRECTED_SEQ -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LIST_DIRECTED_SEQ -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="List-directed sequential READ" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}, FMT=*[, ERR={lbl}][, IOSTAT={ios}][, END={lbl}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER LIST_OPT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LIST_OPT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "list"/PLACEHOLDER
    "nolist"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER LITTLE_ENDIAN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LITTLE_ENDIAN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'LITTLE_ENDIAN'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'LITTLE_ENDIAN'"

END DEFINE

DELETE PLACEHOLDER LOG10_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOG10_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Common Logarithm" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_log10" /TOKEN
    "alog10" /TOKEN
    "dlog10" /TOKEN
    "qlog10" /TOKEN

END DEFINE

DELETE PLACEHOLDER LOGICAL1_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOGICAL1_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	LOGICAL*1" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	LOGICAL*1"

END DEFINE

DELETE PLACEHOLDER LOGICAL2_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOGICAL2_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	LOGICAL*2" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	LOGICAL*2"

END DEFINE

DELETE PLACEHOLDER LOGICAL4_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOGICAL4_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	LOGICAL*4" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	LOGICAL*4"

END DEFINE

DELETE PLACEHOLDER LOGICAL_ARRAY_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOGICAL_ARRAY_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Logical array name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Logical array name"

END DEFINE

DELETE PLACEHOLDER LOGICAL_ARRAY_REF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOGICAL_ARRAY_REF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Logical Array reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{logical_array_name}({subscr}...)"

END DEFINE

DELETE PLACEHOLDER LOGICAL_ASSIGN_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOGICAL_ASSIGN_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Logical assignment element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "logical_var"/PLACEHOLDER
    "logical_array_ref"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER LOGICAL_EXP -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOGICAL_EXP -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	Logical Expression" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[.NOT.]{log_elm}[{lop}{log_elm}]..."

END DEFINE

DELETE PLACEHOLDER LOGICAL_EXP_PAREN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOGICAL_EXP_PAREN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Logical expression in parentheses" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	({logical_exp})"

END DEFINE

DELETE PLACEHOLDER LOGICAL_FIELD_DESCR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOGICAL_FIELD_DESCR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Lw" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	L{width}"

END DEFINE

DELETE PLACEHOLDER LOGICAL_FUNC_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOGICAL_FUNC_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Logical function  name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Logical function name"

END DEFINE

DELETE PLACEHOLDER LOGICAL_FUNC_REF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOGICAL_FUNC_REF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Logical FUNCTION reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{logical_func_name}({arg}...)"

END DEFINE

DELETE PLACEHOLDER LOGICAL_SCALAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOGICAL_SCALAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A logical scalar memory reference"

END DEFINE

DELETE PLACEHOLDER LOGICAL_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOGICAL_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	LOGICAL" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	LOGICAL"

END DEFINE

DELETE PLACEHOLDER LOGICAL_VAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOGICAL_VAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Logical variable" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Logical variable"

END DEFINE

DELETE PLACEHOLDER LOG_CONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOG_CONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Logical constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "true"/PLACEHOLDER
    "false"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER LOG_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOG_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Logical element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "log_cons"/PLACEHOLDER
    "logical_var"/PLACEHOLDER
    "logical_array_ref"/PLACEHOLDER
    "relational_exp"/PLACEHOLDER
    "logical_exp_paren"/PLACEHOLDER
    "integer_exp_paren"/PLACEHOLDER
    "integer_func_ref"/PLACEHOLDER
    "logical_func_ref"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER LOG_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOG_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Natural Logarithm" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_log" /TOKEN
    "alog" /TOKEN
    "dlog" /TOKEN
    "qlog" /TOKEN
    "clog" /TOKEN
    "cdlog" /TOKEN

END DEFINE

DELETE PLACEHOLDER LOP -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LOP -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Logical Operators" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "and"/PLACEHOLDER
    "not"/PLACEHOLDER
    "or"/PLACEHOLDER
    "neqv"/PLACEHOLDER
    "xor"/PLACEHOLDER
    "eqv"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER LSE$BLOCK_COMMENT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LSE$BLOCK_COMMENT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "!", " {tbs}"
    "!"

END DEFINE

DELETE PLACEHOLDER LSE$GENERIC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LSE$GENERIC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{tbs}"

END DEFINE

DELETE PLACEHOLDER LSE$LINE_COMMENT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER LSE$LINE_COMMENT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "!  {tbs}"

END DEFINE

DELETE PLACEHOLDER MAIN_HEADER_COMMENTS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MAIN_HEADER_COMMENTS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Main program header comments" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "+"
    " "
    " [abstract]"
    " FUNCTIONAL DESCRIPTION:"
    " "
    "     [tbs]"
    " "
    " AUTHOR(S): "
    " "
    "     [tbs]"
    " "
    " CREATION DATE: "
    " "
    "     [tbs]"
    " "
    " [common blocks]"
    " [design]"
    " "
    " MODIFICATION HISTORY:"
    " "
    "        Date     | Name  | Description"
    " ----------------+-------+-----------------------------------------------------"
    " [change_entry]"
    "-"

END DEFINE

DELETE PLACEHOLDER MAIN_PROGRAM_UNIT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MAIN_PROGRAM_UNIT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="MAIN program unit" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[options_stmt]"
    "	[program_stmt]"
    " "
    "C[main_header_comments]"
    "	[implicit_stmt]"
    "	[specification_statement]..."
    " "
    "[CDEC$_DIR]..."
    "[CPAR$_DIR]..."
    " "
    "	[executable_statement]..."
    "	END"
    " "

END DEFINE

DELETE PLACEHOLDER MAPPED -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MAPPED -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Map to RTL if not inlined" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	MAPPED"

END DEFINE

DELETE PLACEHOLDER MAPPED_OPT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MAPPED_OPT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Controls mapping to Run-Time Library" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "MAPPED"/PLACEHOLDER
    "NOMAPPED"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER MAP_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MAP_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="MAP statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	MAP"
    "		{field_declaration}..."
    "	END MAP"
    "	[more_map]..."

END DEFINE

DELETE PLACEHOLDER MAX0_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MAX0_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Maximum Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_max0"/PLACEHOLDER
    "imax0" /TOKEN
    "jmax0" /TOKEN

END DEFINE

DELETE PLACEHOLDER MAX1_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MAX1_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Maximum Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_max1"/PLACEHOLDER
    "imax1" /TOKEN
    "jmax1" /TOKEN

END DEFINE

DELETE PLACEHOLDER MAXREC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MAXREC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="MAXREC=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	MAXREC = {arith_exp}"

END DEFINE

DELETE PLACEHOLDER MAX_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MAX_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Maximum Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_max"/PLACEHOLDER
    "imax0" /TOKEN
    "jmax0" /TOKEN
    "amax1" /TOKEN
    "dmax1" /TOKEN
    "qmax1" /TOKEN

END DEFINE

DELETE PLACEHOLDER MIN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MIN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Minimum number of characters that must appear within the field"

END DEFINE

DELETE PLACEHOLDER MIN0_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MIN0_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Minimum Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_min0"/PLACEHOLDER
    "imin0" /TOKEN
    "jmin0" /TOKEN

END DEFINE

DELETE PLACEHOLDER MIN1_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MIN1_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Minimum Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_min1"/PLACEHOLDER
    "imin1" /TOKEN
    "jmin1" /TOKEN

END DEFINE

DELETE PLACEHOLDER MINUS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MINUS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="-" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	-"

END DEFINE

DELETE PLACEHOLDER MIN_CHAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MIN_CHAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.{min}"

END DEFINE

DELETE PLACEHOLDER MIN_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MIN_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Minimum Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_min"/PLACEHOLDER
    "imin0" /TOKEN
    "jmin0" /TOKEN
    "amin1" /TOKEN
    "dmin1" /TOKEN
    "qmin1" /TOKEN

END DEFINE

DELETE PLACEHOLDER MODULE_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MODULE_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The name of a text module located in a text library."

END DEFINE

DELETE PLACEHOLDER MOD_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MOD_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Remainder Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_mod"/PLACEHOLDER
    "imod" /TOKEN
    "jmod" /TOKEN
    "amod" /TOKEN
    "dmod" /TOKEN
    "qmod" /TOKEN

END DEFINE

DELETE PLACEHOLDER MORE_MAP -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MORE_MAP -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	MAP"
    "		{field_declaration}..."
    "	END MAP"

END DEFINE

DELETE PLACEHOLDER MORE_PARAMETERS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MORE_PARAMETERS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="A list of parameters" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="," -
    /TYPE=NONTERMINAL -

    "	{constant_exp}"

END DEFINE

DELETE PLACEHOLDER MULT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MULT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="*" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	*"

END DEFINE

DELETE PLACEHOLDER MVBITS_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MVBITS_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="MVBITS subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	MVBITS ({mvm},{mvi},{mvlen},{mvn},{mvj})"

END DEFINE

DELETE PLACEHOLDER MVI -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MVI -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer expression that identifies the first bit position in the "
    "field transferred from mvm"

END DEFINE

DELETE PLACEHOLDER MVJ -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MVJ -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer expression that identifies the bit in which the transferred"
    "bit field begins."

END DEFINE

DELETE PLACEHOLDER MVLEN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MVLEN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer expression that identifies the length of the field transferred "
    "from mvm"

END DEFINE

DELETE PLACEHOLDER MVM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MVM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer variable or array element that represents the source"
    "location; that is, the location from which a bit field is transferred."

END DEFINE

DELETE PLACEHOLDER MVN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER MVN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer variable or array element that represents the destination"
    "location; that is, the location to which a bit field is transferred"

END DEFINE

DELETE PLACEHOLDER N -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER N -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="String of decimal digits" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A decimal digit"

END DEFINE

DELETE PLACEHOLDER NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Symbolic name" -
    /DUPLICATION=HORIZONTAL -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "A symbolic name  is  a string of  letters,  digits,  and  the  special"
    "characters dollar sign ($) and underscore (_).   The  first  character"
    "in a symbolic name must be a letter.   The  symbolic  name can contain"
    "a maximum of 31 characters. Fortran-77 limits the length of a symbolic"
    "name to 6 characters"

END DEFINE

DELETE PLACEHOLDER NAMED_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NAMED_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NAMED = {logical_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 NAMED = {logical_scalar}"

END DEFINE

DELETE PLACEHOLDER NAMELIST_DIRECTED_SEQ -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NAMELIST_DIRECTED_SEQ -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Namelist-directed sequential READ" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}, NML={grp_name}[, ERR={lbl}][, IOSTAT={ios}][, END={lbl}])"

END DEFINE

DELETE PLACEHOLDER NAMELIST_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NAMELIST_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NAMELIST element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=MENU -

    "var"/PLACEHOLDER
    "array_name"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER NAMELIST_SPEC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NAMELIST_SPEC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=NONTERMINAL -

    "	/{grp_name}/ {namelist_elm}..."

END DEFINE

DELETE PLACEHOLDER NAMELIST_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NAMELIST_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NAMELIST statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	NAMELIST {namelist_spec}..."

END DEFINE

DELETE PLACEHOLDER NAME_OPEN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NAME_OPEN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NAME=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	NAME = {char_exp}"

END DEFINE

DELETE PLACEHOLDER NAME_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NAME_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NAME = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 NAME = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER NCHAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NCHAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The number of characters to be transferred"

END DEFINE

DELETE PLACEHOLDER NDEC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NDEC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Number of characters to the right of the decimal point."

END DEFINE

DELETE PLACEHOLDER NEQV -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NEQV -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=".NEQV." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.NEQV."

END DEFINE

DELETE PLACEHOLDER NEW -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NEW -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Create new file" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'NEW'"

END DEFINE

DELETE PLACEHOLDER NEXTREC_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NEXTREC_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NEXTREC = {integer_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 NEXTREC = {integer_scalar}"

END DEFINE

DELETE PLACEHOLDER NINT_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NINT_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Nearest Integer Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_nint"/PLACEHOLDER
    "inint" /TOKEN
    "jnint" /TOKEN
    "iidnnt" /TOKEN
    "jidnnt" /TOKEN
    "iiqnnt" /TOKEN
    "jiqnnt" /TOKEN

END DEFINE

DELETE PLACEHOLDER NNN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NNN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Enter initials (eg. SBL)"

END DEFINE

DELETE PLACEHOLDER NOACCURACY_SENSITIVE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOACCURACY_SENSITIVE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Not sensitive to accuracy" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	NOACCURACY_SENSITIVE"

END DEFINE

DELETE PLACEHOLDER NOASSERTIONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOASSERTIONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Do not check asserted relationships" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	NOASSERTIONS"

END DEFINE

DELETE PLACEHOLDER NOBOUNDS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOBOUNDS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Do not check array and string bounds" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	NOBOUNDS"

END DEFINE

DELETE PLACEHOLDER NODUMMY_ALIASES -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NODUMMY_ALIASES -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Dummy arguments may not have aliases" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	NODUMMY_ALIASES"

END DEFINE

DELETE PLACEHOLDER NOEXTEND_SOURCE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOEXTEND_SOURCE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Up to column 72" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/NOEXTEND_SOURCE"

END DEFINE

DELETE PLACEHOLDER NOF77 -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOF77 -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Fortran-66" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/NOF77"

END DEFINE

DELETE PLACEHOLDER NOG_FLOAT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOG_FLOAT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="D_floating" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/NOG_FLOATING"

END DEFINE

DELETE PLACEHOLDER NOI4 -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOI4 -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Two bytes" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/NOI4"

END DEFINE

DELETE PLACEHOLDER NOINLINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOINLINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Do not generate inline code" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	NOINLINE"

END DEFINE

DELETE PLACEHOLDER NOLIST -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOLIST -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	

END DEFINE

DELETE PLACEHOLDER NOMAPPED -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOMAPPED -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Use external routine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	NOMAPPED"

END DEFINE

DELETE PLACEHOLDER NONE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NONE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="No options selected" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	NONE"

END DEFINE

DELETE PLACEHOLDER NOOVERFLOW -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOOVERFLOW -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Do not check for integer overflow" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	NOOVERFLOW"

END DEFINE

DELETE PLACEHOLDER NORECURSIVE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NORECURSIVE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Not recursion-capable" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/NORECURSIVE"

END DEFINE

DELETE PLACEHOLDER NOSPANBLOCKS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOSPANBLOCKS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NOSPANBLOCKS" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	NOSPANBLOCKS"

END DEFINE

DELETE PLACEHOLDER NOT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=".NOT." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.NOT."

END DEFINE

DELETE PLACEHOLDER NOT_EQUAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOT_EQUAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=".NE." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.NE."

END DEFINE

DELETE PLACEHOLDER NOT_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOT_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BITWISE Complement Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_not"/PLACEHOLDER
    "inot" /TOKEN
    "jnot" /TOKEN

END DEFINE

DELETE PLACEHOLDER NOUNDERFLOW -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NOUNDERFLOW -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Do not check for floating underfkiw" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	NOUNDERFLOW"

END DEFINE

DELETE PLACEHOLDER NREC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NREC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Integer specifying the number of records in file - constant or variable"

END DEFINE

DELETE PLACEHOLDER NULL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NULL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'NULL'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'NULL'"

END DEFINE

DELETE PLACEHOLDER NUMBER_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NUMBER_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NUMBER = {integer_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 NUMBER = {integer_scalar}"

END DEFINE

DELETE PLACEHOLDER NUMERIC_ARRAY_REF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NUMERIC_ARRAY_REF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Numeric Array reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{arith_array_name}({subscr}...)"

END DEFINE

DELETE PLACEHOLDER NWORKERS_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER NWORKERS_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NWORKERS routine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	NWORKERS ()"

END DEFINE

DELETE PLACEHOLDER N_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER N_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{integer_arg}"

END DEFINE

DELETE PLACEHOLDER OBJECT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER OBJECT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Anything with a valid data type, except assumed size arrays"
    "or passed-length characters"

END DEFINE

DELETE PLACEHOLDER OCT_CONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER OCT_CONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Octal constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "	O'{oct_dig}...'"
    "	'{oct_dig}...'O"

END DEFINE

DELETE PLACEHOLDER OCT_DIG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER OCT_DIG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Octal Digit" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Octal digit - Range is 0 to 7"

END DEFINE

DELETE PLACEHOLDER OLD -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER OLD -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Use existing file" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'OLD'"

END DEFINE

DELETE PLACEHOLDER OLD_FUNCTION_HEADER_COMMENTS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER OLD_FUNCTION_HEADER_COMMENTS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Function header" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    " "
    " FUNCTIONAL DESCRIPTION:	"
    " "
    "	[tbs]"
    " "
    " DUMMY ARGUMENTS:"
    " "
    "	[description_or_none]"
    " "
    " IMPLICIT INPUTS:"
    " "
    "	[description_or_none]"
    " "
    " IMPLICIT OUTPUTS:"
    " "
    "	[description_or_none]"
    " "
    " FUNCTION VALUE:"
    " "
    "	[tbs]"
    " "
    " SIDE EFFECTS:"
    " "
    "	[description_or_none]"
    " "
    " "

END DEFINE

DELETE PLACEHOLDER OLD_HEADER_COMMENTS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER OLD_HEADER_COMMENTS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Main program header" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    " "
    " PROGRAM DESCRIPTION: "
    " "
    "	    [tbs]"
    " "
    " AUTHORS: "
    " "
    "	    [tbs]"
    " "
    " CREATION DATE: 	[tbs]"
    " "
    " "
    "		    C H A N G E   L O G"
    " "
    "        Date     | Name  | Description"
    "-----------------+-------+-----------------------------------------------------"
    " [change_entry]"
    " "

END DEFINE

DELETE PLACEHOLDER OLD_SUBROUTINE_HEADER_COMMENTS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER OLD_SUBROUTINE_HEADER_COMMENTS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Subroutine header" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    " "
    " FUNCTIONAL DESCRIPTION:	"
    " "
    "	[tbs]"
    " "
    " DUMMY ARGUMENTS:"
    " "
    "	[description_or_none]"
    " "
    " IMPLICIT INPUTS:"
    " "
    "	[description_or_none]"
    " "
    " IMPLICIT OUTPUTS:"
    " "
    "	[description_or_none]"
    " "
    " "
    " SIDE EFFECTS:"
    " "
    "	[description_or_none]"
    " "
    " "

END DEFINE

DELETE PLACEHOLDER OPENED_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER OPENED_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="OPENED = {logical_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 OPENED = {logical_scalar}"

END DEFINE

DELETE PLACEHOLDER OPEN_PARAMETER -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER OPEN_PARAMETER -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="," -
    /TYPE=MENU -

    "ACCESS" /TOKEN
    "ASSOCIATEVARIABLE" /TOKEN
    "BLOCKSIZE" /TOKEN
    "BLANK" /TOKEN
    "BUFFERCOUNT" /TOKEN
    "CARRIAGECONTROL" /TOKEN
    "CONVERT" /TOKEN
    "DEFAULTFILE" /TOKEN
    "DISPOSE" /TOKEN
    "ERR" /TOKEN
    "EXTENDSIZE" /TOKEN
    "FILE" /TOKEN
    "FORM" /TOKEN
    "INITIALSIZE" /TOKEN
    "IOSTAT_open" /TOKEN
    "KEY_open" /TOKEN
    "MAXREC" /TOKEN
    "NAME_open" /TOKEN
    "NOSPANBLOCKS" /TOKEN
    "ORGANIZATION" /TOKEN
    "READONLY" /TOKEN
    "RECL" /TOKEN
    "RECORDSIZE" /TOKEN
    "RECORDTYPE" /TOKEN
    "SHARED" /TOKEN
    "STATUS_open" /TOKEN
    "USEROPEN" /TOKEN

END DEFINE

DELETE PLACEHOLDER OPEN_STATUS_OPTIONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER OPEN_STATUS_OPTIONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="STATUS options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "old"/PLACEHOLDER
    "new"/PLACEHOLDER
    "scratch"/PLACEHOLDER
    "unknown"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER OPEN_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER OPEN_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="OPEN statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	OPEN ("
    "	1 UNIT={unit},"
    "	1 {open_parameter}...)"

END DEFINE

DELETE PLACEHOLDER OPTIONS_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER OPTIONS_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="OPTIONS statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	OPTIONS {qualifier}"

END DEFINE

DELETE PLACEHOLDER OR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER OR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=".OR." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.OR."

END DEFINE

DELETE PLACEHOLDER ORGANIZATION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ORGANIZATION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ORGANIZATION = {org_options}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ORGANIZATION = {org_options}"

END DEFINE

DELETE PLACEHOLDER ORGANIZATION_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ORGANIZATION_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ORGANIZATION = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 ORGANIZATION = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER ORG_OPTIONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ORG_OPTIONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ORGANIZATION options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "sequential"/PLACEHOLDER
    "relative"/PLACEHOLDER
    "indexed"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER OVERFLOW -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER OVERFLOW -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Check for integer overflow" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	OVERFLOW"

END DEFINE

DELETE PLACEHOLDER OVERFLOW_OPT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER OVERFLOW_OPT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Integer overflow" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "OVERFLOW"/PLACEHOLDER
    "NOOVERFLOW"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER O_CODE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER O_CODE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="O{width}.{min_char}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[repeat]O{width}[min_char]"

END DEFINE

DELETE PLACEHOLDER P -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER P -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="The name of an argument." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "The name of an argument."

END DEFINE

DELETE PLACEHOLDER PARAMETERS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER PARAMETERS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="One or more parameters" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{p}:"
    "    {tbs}"
    "[additional_parameters]..."

END DEFINE

DELETE PLACEHOLDER PARAMETER_LIST -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER PARAMETER_LIST -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="   Parameter list" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{constant_exp},"
    "	1 [more_parameters]..."

END DEFINE

DELETE PLACEHOLDER PARAMETER_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER PARAMETER_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="PARAMETER statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "typed_parameter_stmt" /TOKEN
    "untyped_parameter_stmt" /TOKEN

END DEFINE

DELETE PLACEHOLDER PAR_VAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER PAR_VAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=MENU -

    "var"/PLACEHOLDER
    "common_blk"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER PATTR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER PATTR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=MENU -

    "NOSHR"
    "SHR"
    "WRT"
    "NOWRT"
    "LCL"
    "GBL"
    "ALIGN" /TOKEN

END DEFINE

DELETE PLACEHOLDER PAUSE_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER PAUSE_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="PAUSE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	PAUSE [disp]"

END DEFINE

DELETE PLACEHOLDER PNUM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER PNUM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The integer scale factor in the range -128 through 127."

END DEFINE

DELETE PLACEHOLDER POINTEE_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER POINTEE_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Variable whose address is contained in the pointer" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "var"/PLACEHOLDER
    "array_decl"/PLACEHOLDER
    "record_name"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER POINTER_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER POINTER_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Variable containing address of pointee" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{integer_var}"

END DEFINE

DELETE PLACEHOLDER POINTER_SPEC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER POINTER_SPEC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Specification of association between pointer and pointee" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "	({pointer_elm},{pointee_elm})"

END DEFINE

DELETE PLACEHOLDER POINTER_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER POINTER_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="POINTER statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	POINTER {pointer_spec}..."

END DEFINE

DELETE PLACEHOLDER POSIT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER POSIT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="+" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	+"

END DEFINE

DELETE PLACEHOLDER PRINT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER PRINT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Print and retain" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'PRINT'"

END DEFINE

DELETE PLACEHOLDER PRINT_DELETE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER PRINT_DELETE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Print then delete" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'PRINT/DELETE'"

END DEFINE

DELETE PLACEHOLDER PRINT_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER PRINT_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="PRINT statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "print1" /TOKEN
    "print2" /TOKEN
    "print3" /TOKEN

END DEFINE

DELETE PLACEHOLDER PROCEDURE_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER PROCEDURE_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The symbolic name of the USEROPEN procedure. The procedure "
    "name must be declared EXTERNAL. "

END DEFINE

DELETE PLACEHOLDER PROGRAM_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER PROGRAM_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Subprogram name or entry point" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Subprogram name or entry point"

END DEFINE

DELETE PLACEHOLDER PROGRAM_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER PROGRAM_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="PROGRAM statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	PROGRAM {name}"

END DEFINE

DELETE PLACEHOLDER PROGRAM_UNIT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER PROGRAM_UNIT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Fortran program unit " -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="" -
    /TYPE=MENU -

    "main" /TOKEN
    "subroutine" /TOKEN
    "function" /TOKEN
    "block" /TOKEN

END DEFINE

DELETE PLACEHOLDER QFLOAT_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER QFLOAT_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="INTEGER to REAL*16 conversion" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	QFLOAT ({integer_arg})"

END DEFINE

DELETE PLACEHOLDER QUALIFIER -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER QUALIFIER -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="" -
    /TYPE=MENU -

    "ASSUME_qual"/PLACEHOLDER
    "BLAS_qual"/PLACEHOLDER
    "CHECK_qual"/PLACEHOLDER
    "EXTEND_qual"/PLACEHOLDER
    "F77_qual"/PLACEHOLDER
    "G_FLOAT_qual"/PLACEHOLDER
    "I4_qual"/PLACEHOLDER
    "RECURSIVE_qual"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER "Q[+ OR -]{N}..." -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "Q[+ OR -]{N}..." -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Q[+ or -]{n}..." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	Q[+ or -]{n}..."

END DEFINE

DELETE PLACEHOLDER Q_EDIT_FIELD -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER Q_EDIT_FIELD -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Q" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	Q"

END DEFINE

DELETE PLACEHOLDER R16ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER R16ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "A REAL*16 argument"

END DEFINE

DELETE PLACEHOLDER R4ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER R4ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "A REAL*4 argument"

END DEFINE

DELETE PLACEHOLDER R8ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER R8ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "A REAL*8 argument"

END DEFINE

DELETE PLACEHOLDER RANI -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RANI -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Result is set equal to the value associated, byt the function, with"
    "the argument rani.  The argument rani must be an INTEGER*4 variable or an"
    "INTEGER*4 array element"

END DEFINE

DELETE PLACEHOLDER RAN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RAN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RAN function (random generator)" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	RAN ({rani})"

END DEFINE

DELETE PLACEHOLDER READONLY -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER READONLY -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="READONLY" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	READONLY"

END DEFINE

DELETE PLACEHOLDER READ_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER READ_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="READ statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	READ {read_stmt_type}"

END DEFINE

DELETE PLACEHOLDER READ_STMT_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER READ_STMT_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "format_seq"/PLACEHOLDER
    "list_directed_seq"/PLACEHOLDER
    "namelist_directed_seq"/PLACEHOLDER
    "unformatted_seq"/PLACEHOLDER
    "formatted_direct"/PLACEHOLDER
    "unformatted_direct"/PLACEHOLDER
    "formatted_indexed"/PLACEHOLDER
    "unformatted_indexed"/PLACEHOLDER
    "formatted_internal"/PLACEHOLDER
    "list_directed_internal"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER REAL16_CONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REAL16_CONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Real*16 constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[+ or -][n]....{n}...[Q[+ or -]{n}...]"

END DEFINE

DELETE PLACEHOLDER REAL4_CONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REAL4_CONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Real*4 constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[+ or -][n]....{n}...[E[+ or -]{n}...]"

END DEFINE

DELETE PLACEHOLDER REAL4_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REAL4_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	REAL*4" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	REAL*4"

END DEFINE

DELETE PLACEHOLDER REAL8_CONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REAL8_CONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Real*8 constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[+ or -][n]....{n}...[D[+ or -]{n}...]"

END DEFINE

DELETE PLACEHOLDER REAL8_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REAL8_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	REAL*8" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	REAL*8"

END DEFINE

DELETE PLACEHOLDER REAL_AND_COMPLEX_FIELD_DESCR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REAL_AND_COMPLEX_FIELD_DESCR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Fw.d, Ew.d, Dw.d, Gw.d, Ew.dEe, Gw.dEe" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "f_code"/PLACEHOLDER
    "e_code"/PLACEHOLDER
    "d_code"/PLACEHOLDER
    "g_code"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER REAL_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REAL_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=HORIZONTAL -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "A real argument"

END DEFINE

DELETE PLACEHOLDER REAL_ARRAY_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REAL_ARRAY_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Real array name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Real array name"

END DEFINE

DELETE PLACEHOLDER REAL_ARRAY_REF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REAL_ARRAY_REF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Real Array reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{real_array_name}({subscr}...)"

END DEFINE

DELETE PLACEHOLDER REAL_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REAL_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Conversion to REAL*4 Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_real"/PLACEHOLDER
    "floati" /TOKEN
    "floatj" /TOKEN
    "sngl" /TOKEN
    "snglq" /TOKEN

END DEFINE

DELETE PLACEHOLDER REAL_FUNC_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REAL_FUNC_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Real function name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Real function name"

END DEFINE

DELETE PLACEHOLDER REAL_OR_COMPLEX_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REAL_OR_COMPLEX_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=HORIZONTAL -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "A real or complex argument"

END DEFINE

DELETE PLACEHOLDER REAL_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REAL_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	REAL" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	REAL"

END DEFINE

DELETE PLACEHOLDER REAL_VAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REAL_VAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Real variable" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Real variable"

END DEFINE

DELETE PLACEHOLDER REC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A numeric expression with a value that represents the position in a "
    "direct access file of the record to be accessed.  The value must be "
    "greater than or equal to one, and less than or equal to the maximum "
    "number of record cells allowed in the file.  "

END DEFINE

DELETE PLACEHOLDER RECL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RECL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RECL=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	RECL = {arith_exp}"

END DEFINE

DELETE PLACEHOLDER RECL_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RECL_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RECL = {integer_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 RECL = {integer_scalar}"

END DEFINE

DELETE PLACEHOLDER RECORDSIZE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RECORDSIZE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RECORDSIZE=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	RECORDSIZE = {arith_exp}"

END DEFINE

DELETE PLACEHOLDER RECORDTYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RECORDTYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RECORDTYPE=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	RECORDTYPE = {record_options}"

END DEFINE

DELETE PLACEHOLDER RECORDTYPE_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RECORDTYPE_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RECORDTYPE = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 RECORDTYPE = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER RECORD_ARRAY_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RECORD_ARRAY_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Record array name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Record array name"

END DEFINE

DELETE PLACEHOLDER RECORD_DECL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RECORD_DECL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RECORD declaration" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	RECORD /{structure_name}/ {record_name_list}..."

END DEFINE

DELETE PLACEHOLDER RECORD_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RECORD_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "The symbolic name of a record."

END DEFINE

DELETE PLACEHOLDER RECORD_NAME_LIST -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RECORD_NAME_LIST -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Record name list" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=TERMINAL -

    "A list of one or more variable names or array names separated "
    "by commas.  All of the records named in this list have the "
    "same structure and are allocated separately in memory."

END DEFINE

DELETE PLACEHOLDER RECORD_OPTIONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RECORD_OPTIONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RECORDTYPE options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "fixed"/PLACEHOLDER
    "variable"/PLACEHOLDER
    "segmented"/PLACEHOLDER
    "stream"/PLACEHOLDER
    "stream_cr"/PLACEHOLDER
    "stream_lf"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER RECORD_REF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RECORD_REF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The name used in the RECORD statement to identify a record."

END DEFINE

DELETE PLACEHOLDER RECORD_SPEC -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RECORD_SPEC -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Record specifier"

END DEFINE

DELETE PLACEHOLDER RECURSIVE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RECURSIVE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Recursion-capable" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	/RECURSIVE"

END DEFINE

DELETE PLACEHOLDER RECURSIVE_QUAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RECURSIVE_QUAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generation of recursion-capable code" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "RECURSIVE"/PLACEHOLDER
    "NORECURSIVE"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER REC_LEN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REC_LEN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Length of each record in 16-bit words"

END DEFINE

DELETE PLACEHOLDER RELATIONAL_EXP -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RELATIONAL_EXP -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="	Relational Expression" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "arith_relational_exp" /TOKEN
    "char_relational_exp" /TOKEN

END DEFINE

DELETE PLACEHOLDER RELATIVE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RELATIVE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RELATIVE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'RELATIVE'"

END DEFINE

DELETE PLACEHOLDER REPEAT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REPEAT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Repeat count" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The repeat count for the field descriptor.  If you omit this "
    "value, the repeat count is assumed to be 1."

END DEFINE

DELETE PLACEHOLDER RETURN_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RETURN_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RETURN statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "subroutine_return"/PLACEHOLDER
    "function_return"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER REWIND_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REWIND_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REWIND statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	REWIND (UNIT={unit}[, ERR={lbl}][, IOSTAT={ios}])"

END DEFINE

DELETE PLACEHOLDER REWRITE_OPTS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER REWRITE_OPTS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REWRITE options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "formatted_rewrite"/PLACEHOLDER
    "unformatted_rewrite"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER RMSSTS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RMSSTS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer variable or array element into which is stored the RMS"
    "completion status code (STS), if the last error was an RMS I/O error"

END DEFINE

DELETE PLACEHOLDER RMSSTV -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER RMSSTV -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer variable or array element into which is stored the RMS"
    "status value (STV) if the last error was an RMS I/O error."

END DEFINE

DELETE PLACEHOLDER ROP -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ROP -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Relational Operators" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "less_than"/PLACEHOLDER
    "less_than_or_equal"/PLACEHOLDER
    "equal"/PLACEHOLDER
    "not_equal"/PLACEHOLDER
    "greater_than"/PLACEHOLDER
    "greater_than_or_equal"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER S -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER S -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="S" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	S"

END DEFINE

DELETE PLACEHOLDER SAMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SAMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SAMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SAMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER SAMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SAMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SAMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SAMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER SASUM_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SASUM_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SASUM function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SASUM ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER SAVE_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SAVE_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=MENU -

    "var"/PLACEHOLDER
    "array_name"/PLACEHOLDER
    "common_block_ref"/PLACEHOLDER
    "record_name"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER SAVE_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SAVE_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SAVE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SAVE {save_elm}..."

END DEFINE

DELETE PLACEHOLDER SAXPY_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SAXPY_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SAXPY subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SAXPY ({n_arg},{a_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER SCALE_FACTOR_DESCR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SCALE_FACTOR_DESCR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="nP" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{pnum}P"

END DEFINE

DELETE PLACEHOLDER SCNORM2_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SCNORM2_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SCNORM2 function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SCNORM2 ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER SCNRM2_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SCNRM2_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SCNRM2 function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SCNRM2 ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER SCNRSQ_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SCNRSQ_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SCNRSQ function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SCNRSQ ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER SCOPY_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SCOPY_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SCOPY subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SCOPY ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER SCRATCH -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SCRATCH -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Create temporary file" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'SCRATCH'"

END DEFINE

DELETE PLACEHOLDER SDOT_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SDOT_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SDOT function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SDOT ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER SECNDS_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SECNDS_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SECNDS routine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SECNDS ({x})"

END DEFINE

DELETE PLACEHOLDER SEGMENTED -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SEGMENTED -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SEGMENTED" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'SEGMENTED'"

END DEFINE

DELETE PLACEHOLDER SEQUENTIAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SEQUENTIAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'SEQUENTIAL'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'SEQUENTIAL'"

END DEFINE

DELETE PLACEHOLDER SEQUENTIAL_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SEQUENTIAL_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SEQUENTIAL = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 SEQUENTIAL = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER SHARED -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SHARED -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SHARED" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SHARED"

END DEFINE

DELETE PLACEHOLDER SIGN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SIGN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument and result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SIGN ({r4arg}, {r4arg})"

END DEFINE

DELETE PLACEHOLDER SIGN_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SIGN_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Transfer of Sign Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_sign"/PLACEHOLDER
    "iisign" /TOKEN
    "jisign" /TOKEN
    "sign"/PLACEHOLDER
    "dsign" /TOKEN
    "qsign" /TOKEN

END DEFINE

DELETE PLACEHOLDER SIN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SIN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SIN ({r4arg})"

END DEFINE

DELETE PLACEHOLDER SINH -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SINH -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SINH ({r4arg})"

END DEFINE

DELETE PLACEHOLDER SINH_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SINH_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Hyperbolic Sine Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_sinh"/PLACEHOLDER
    "sinh"/PLACEHOLDER
    "dsinh" /TOKEN
    "qsinh" /TOKEN

END DEFINE

DELETE PLACEHOLDER SIN_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SIN_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SINE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_sin" /TOKEN
    "sin"/PLACEHOLDER
    "dsin" /TOKEN
    "qsin" /TOKEN
    "csin" /TOKEN
    "cdsin" /TOKEN
    "sind" /TOKEN
    "dsind" /TOKEN
    "qsind" /TOKEN

END DEFINE

DELETE PLACEHOLDER SIZEOF_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SIZEOF_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SIZEOF routine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SIZEOF ({object})"

END DEFINE

DELETE PLACEHOLDER SMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER SMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER SNORM2_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SNORM2_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SNORM2 function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SNORM2 ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER SNRM2_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SNRM2_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SNRM2 function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SNRM2 ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER SNRSQ_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SNRSQ_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SNRSQ function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SNRSQ ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER SP -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SP -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SP" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SP"

END DEFINE

DELETE PLACEHOLDER SPECIFICATION_STATEMENT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SPECIFICATION_STATEMENT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Specification Statements" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="" -
    /TYPE=MENU -

    "declaration"/PLACEHOLDER
    "COMMON" /TOKEN
    "DATA" /TOKEN
    "DICTIONARY" /TOKEN
    "DIMENSION" /TOKEN
    "EQUIVALENCE" /TOKEN
    "EXTERNAL" /TOKEN
    "FORMAT" /TOKEN
    "IMPLICIT" /TOKEN
    "INCLUDE" /TOKEN
    "INTRINSIC" /TOKEN
    "NAMELIST" /TOKEN
    "PARAMETER" /TOKEN
    "POINTER" /TOKEN
    "RECORD" /TOKEN
    "SAVE" /TOKEN
    "STRUCTURE" /TOKEN
    "VOLATILE" /TOKEN

END DEFINE

DELETE PLACEHOLDER SQRT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SQRT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SQRT ({r4arg})"

END DEFINE

DELETE PLACEHOLDER SQRT_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SQRT_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Square Root" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_sqrt" /TOKEN
    "sqrt"/PLACEHOLDER
    "dsqrt" /TOKEN
    "qsqrt" /TOKEN
    "csqrt" /TOKEN
    "cdsqrt" /TOKEN

END DEFINE

DELETE PLACEHOLDER SROTG_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SROTG_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SROTG subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SROTG ({a_arg},{b_arg},{c_arg},{s_arg})"

END DEFINE

DELETE PLACEHOLDER SROT_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SROT_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SROT subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SROT ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg},{c_arg},{s_arg})"

END DEFINE

DELETE PLACEHOLDER SS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SS" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SS"

END DEFINE

DELETE PLACEHOLDER SSCAL_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SSCAL_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SSCAL subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SSCAL ({n_arg},{a_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER SSET_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SSET_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SSET subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SSET ({n_arg},{a_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER SSUM_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SSUM_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SSUM function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SSUM ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER SSWAP_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SSWAP_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SSWAP subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SSWAP ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER STATUS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER STATUS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Status of file after closing" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	STATUS={close_status_options}"

END DEFINE

DELETE PLACEHOLDER STATUS_DISPOSE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER STATUS_DISPOSE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Status or dispose option" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "status"/PLACEHOLDER
    "dispose"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER STATUS_OPEN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER STATUS_OPEN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="STATUS=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	STATUS = {open_status_options}"

END DEFINE

DELETE PLACEHOLDER STOP_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER STOP_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="STOP statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	STOP [disp]"

END DEFINE

DELETE PLACEHOLDER STREAM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER STREAM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="STREAM" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'STREAM'"

END DEFINE

DELETE PLACEHOLDER STREAM_CR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER STREAM_CR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="STREAM_CR" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'STREAM_CR'"

END DEFINE

DELETE PLACEHOLDER STREAM_LF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER STREAM_LF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="STREAM_LF" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'STREAM_LF'"

END DEFINE

DELETE PLACEHOLDER STRING -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER STRING -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="31 printable characters" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Any character string"

END DEFINE

DELETE PLACEHOLDER STRUCTURE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER STRUCTURE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Structure declaration" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	STRUCTURE [/{structure_decl_name}/] [field_name]..."
    "		{field_declaration}..."
    "	END STRUCTURE    !{structure_decl_name}"

END DEFINE

DELETE PLACEHOLDER STRUCTURE_DECL_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER STRUCTURE_DECL_NAME -
    /LANGUAGE="Fortran" -
    /AUTO_SUBSTITUTE  -
    /DESCRIPTION="structure declaration name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The name used to identify a structure.  The structure name is used in"
    "subsequent RECORD statements to refer to a structure"

END DEFINE

DELETE PLACEHOLDER STRUCTURE_NAME -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER STRUCTURE_NAME -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Structure name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The name of a previously declared record structure."

END DEFINE

DELETE PLACEHOLDER SUB -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SUB -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="-" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	-"

END DEFINE

DELETE PLACEHOLDER SUBMIT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SUBMIT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Submit as batch job and retain" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'SUBMIT'"

END DEFINE

DELETE PLACEHOLDER SUBMIT_DELETE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SUBMIT_DELETE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Submit as batch job then delete" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'SUBMIT/DELETE'"

END DEFINE

DELETE PLACEHOLDER SUBROUTINE_HEADER_COMMENTS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SUBROUTINE_HEADER_COMMENTS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Subroutine header" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "+"
    " "
    " [abstract]"
    " FUNCTIONAL DESCRIPTION: "
    " "
    "     [tbs]"
    " "
    " [formal parameters]"
    " [common blocks]"
    " [design]"
    " "
    "-"

END DEFINE

DELETE PLACEHOLDER SUBROUTINE_PROGRAM_UNIT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SUBROUTINE_PROGRAM_UNIT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SUBROUTINE program unit" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[options_stmt]"
    "	SUBROUTINE {name}([p]...)"
    " "
    "C[subroutine_header_comments]"
    "	[implicit_stmt]"
    "	[specification_statement]..."
    " "
    "[CDEC$_DIR]..."
    "[CPAR$_DIR]..."
    " "
    "	[executable_statement]..."
    "	RETURN [alternate_return]"
    "	END"
    " "

END DEFINE

DELETE PLACEHOLDER SUBROUTINE_RETURN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SUBROUTINE_RETURN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Return from SUBROUTINE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	RETURN [alternate_return]"

END DEFINE

DELETE PLACEHOLDER SUBSCR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SUBSCR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Subscript expression" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "	{arith_exp}"

END DEFINE

DELETE PLACEHOLDER SVCAL_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SVCAL_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SVCAL subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SVCAL ({n_arg},{a_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER SZAXPY_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER SZAXPY_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SZAXPY subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	SZAXPY ({n_arg},{a_arg},{x_arg},{incx_arg},{y_arg},{incy_arg},"
    "	1 {z_arg},{incz_arg})"

END DEFINE

DELETE PLACEHOLDER S_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER S_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{real_or_complex_arg}"

END DEFINE

DELETE PLACEHOLDER S_EDIT_FIELD -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER S_EDIT_FIELD -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="S, SS, SP" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "S"/PLACEHOLDER
    "SS"/PLACEHOLDER
    "SP"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER T -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER T -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="T" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	T {tnum}"

END DEFINE

DELETE PLACEHOLDER TAN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER TAN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	TAN ({r4arg})"

END DEFINE

DELETE PLACEHOLDER TAND -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER TAND -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument, REAL*4 result (degrees)" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	TAND ({r4arg})"

END DEFINE

DELETE PLACEHOLDER TAND_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER TAND_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Tangent (degrees) Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_tand" /TOKEN
    "tand"/PLACEHOLDER
    "dtand" /TOKEN
    "qtand" /TOKEN

END DEFINE

DELETE PLACEHOLDER TANH -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER TANH -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4 argument and result" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	TANH ({r4arg})"

END DEFINE

DELETE PLACEHOLDER TANH_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER TANH_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Hyperbolic Tangent Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_tanh"/PLACEHOLDER
    "tanh"/PLACEHOLDER
    "dtanh" /TOKEN
    "qtanh" /TOKEN

END DEFINE

DELETE PLACEHOLDER TAN_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER TAN_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Tangent Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_tan" /TOKEN
    "tan"/PLACEHOLDER
    "dtan" /TOKEN
    "qtan" /TOKEN
    "ctan" /TOKEN
    "cdtan" /TOKEN

END DEFINE

DELETE PLACEHOLDER TBS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER TBS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "To be specified"

END DEFINE

DELETE PLACEHOLDER TIME_BUF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER TIME_BUF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "var"/PLACEHOLDER
    "array_name"/PLACEHOLDER
    "array_ref"/PLACEHOLDER
    "char_substring"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER TIME_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER TIME_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="TIME routine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	TIME ({time_buf})"

END DEFINE

DELETE PLACEHOLDER TL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER TL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="TL" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	TL {tnum}"

END DEFINE

DELETE PLACEHOLDER TNUM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER TNUM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The number of character spaces to tab over"

END DEFINE

DELETE PLACEHOLDER TR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER TR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="TR" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	TR {tnum}"

END DEFINE

DELETE PLACEHOLDER TRUE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER TRUE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Logical true constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.TRUE."

END DEFINE

DELETE PLACEHOLDER TYPE_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER TYPE_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="TYPE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "type1" /TOKEN
    "type2" /TOKEN
    "type3" /TOKEN

END DEFINE

DELETE PLACEHOLDER T_EDIT_FIELD -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER T_EDIT_FIELD -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="T edit descriptor" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "T"/PLACEHOLDER
    "TL"/PLACEHOLDER
    "TR"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER UBOUND -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UBOUND -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Lower bound" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{bounds_exp}"

END DEFINE

DELETE PLACEHOLDER UNDERFLOW -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNDERFLOW -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Check for floating underflow" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	UNDERFLOW"

END DEFINE

DELETE PLACEHOLDER UNDERFLOW_OPT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNDERFLOW_OPT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Floating underflow" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "UNDERFLOW"/PLACEHOLDER
    "NOUNDERFLOW"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER UNFORMATTED -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNFORMATTED -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'UNFORMATTED'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'UNFORMATTED'"

END DEFINE

DELETE PLACEHOLDER UNFORMATTED_DIRECT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNFORMATTED_DIRECT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Unformatted direct READ" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}, REC={rec}[, ERR={lbl}][, IOSTAT={ios}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER UNFORMATTED_INDEXED -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNFORMATTED_INDEXED -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Unformatted indexed READ" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}, {keyspec}[, KEYID={kn}][, ERR={lbl}][, IOSTAT={ios}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER UNFORMATTED_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNFORMATTED_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="UNFORMATTED = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 UNFORMATTED = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER UNFORMATTED_REWRITE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNFORMATTED_REWRITE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Unformatted REWRITE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	REWRITE (UNIT={unit}[, ERR={lbl}][, IOSTAT={ios}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER UNFORMATTED_SEQ -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNFORMATTED_SEQ -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Unformatted sequential READ" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}[, ERR={lbl}][, IOSTAT={ios}][, END={lbl}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER UNION_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNION_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="UNION statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	UNION "
    "	MAP"
    "		{declaration}..."
    "	END MAP"
    "	MAP"
    "		{declaration}..."
    "	END MAP"
    "	[more_map]..."
    "	END UNION"

END DEFINE

DELETE PLACEHOLDER UNIT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNIT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer expression with a value in the range of 0 through 99"
    "that refers to a specific file or I/O device.  If necessary, the"
    "value is converted to integer data type before being used"

END DEFINE

DELETE PLACEHOLDER UNIT_PAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNIT_PAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="UNIT = {unit_value}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	1 UNIT = {unit_value}"

END DEFINE

DELETE PLACEHOLDER UNIT_VALUE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNIT_VALUE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The number of the logical unit to be inquired about.  The unit"
    "does not have to exist, nor does it need to be connected to a "
    "file.  If the unit is connected to a file, the inquiry encompasses"
    "both the connection and the file."

END DEFINE

DELETE PLACEHOLDER UNKNOWN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNKNOWN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Use existing file if any" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'UNKNOWN'"

END DEFINE

DELETE PLACEHOLDER UNLOCK_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNLOCK_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="UNLOCK statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	UNLOCK (UNIT={unit}[, ERR={lbl}][, IOSTAT={ios}])"

END DEFINE

DELETE PLACEHOLDER UNQUALIFIED_RECORD_REF -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNQUALIFIED_RECORD_REF -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="unqualified record reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{record_ref}[.{composite_field_name}]..."

END DEFINE

DELETE PLACEHOLDER UNSIGN_INT_CONS -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER UNSIGN_INT_CONS -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Unsigned Integer constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{n}..."

END DEFINE

DELETE PLACEHOLDER USEROPEN -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER USEROPEN -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="USEROPEN=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	USEROPEN = {procedure_name}"

END DEFINE

DELETE PLACEHOLDER VAR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER VAR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Symbolic Name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=MENU -

    "integer_var"/PLACEHOLDER
    "char_var"/PLACEHOLDER
    "logical_var"/PLACEHOLDER
    "real_var"/PLACEHOLDER
    "complex_var"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER VARIABLE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER VARIABLE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="VARIABLE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'VARIABLE'"

END DEFINE

DELETE PLACEHOLDER VAXD -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER VAXD -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'VAXD'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'VAXD'"

END DEFINE

DELETE PLACEHOLDER VAXG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER VAXG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'VAXG'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'VAXG'"

END DEFINE

DELETE PLACEHOLDER VIRTUAL_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER VIRTUAL_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="VIRTUAL statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	VIRTUAL {array_ref}"

END DEFINE

DELETE PLACEHOLDER VOLATILE_ELM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER VOLATILE_ELM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=MENU -

    "var"/PLACEHOLDER
    "common_block_ref"/PLACEHOLDER
    "array_decl"/PLACEHOLDER
    "record_name"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER VOLATILE_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER VOLATILE_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="VOLATILE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	VOLATILE {volatile_elm}..."

END DEFINE

DELETE PLACEHOLDER WIDTH -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER WIDTH -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "External field width in characters"

END DEFINE

DELETE PLACEHOLDER WRITE_STMT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER WRITE_STMT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="WRITE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	WRITE {write_stmt_type}"

END DEFINE

DELETE PLACEHOLDER WRITE_STMT_TYPE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER WRITE_STMT_TYPE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "wr_format_seq"/PLACEHOLDER
    "wr_list_directed_seq"/PLACEHOLDER
    "wr_namelist_directed_seq"/PLACEHOLDER
    "wr_unformatted_seq"/PLACEHOLDER
    "wr_formatted_direct"/PLACEHOLDER
    "wr_unformatted_direct"/PLACEHOLDER
    "wr_formatted_indexed"/PLACEHOLDER
    "wr_unformatted_indexed"/PLACEHOLDER
    "wr_formatted_internal"/PLACEHOLDER
    "wr_list_directed_internal"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER WR_FORMATTED_DIRECT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER WR_FORMATTED_DIRECT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Formatted direct WRITE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}, FMT={fmt}, REC={rec}[, ERR={lbl}][, IOSTAT={ios}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER WR_FORMATTED_INDEXED -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER WR_FORMATTED_INDEXED -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Formatted indexed WRITE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}, FMT={fmt}[, ERR={lbl}][, IOSTAT={ios}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER WR_FORMATTED_INTERNAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER WR_FORMATTED_INTERNAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Formatted internal WRITE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={ifile}, FMT={fmt}[, ERR={lbl}][, IOSTAT={ios}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER WR_FORMAT_SEQ -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER WR_FORMAT_SEQ -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Formatted sequential WRITE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}, FMT={fmt}[, ERR={lbl}][, IOSTAT={ios}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER WR_LIST_DIRECTED_INTERNAL -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER WR_LIST_DIRECTED_INTERNAL -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="List-directed internal WRITE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={ifile}, FMT=*[, ERR={lbl}][, IOSTAT={ios}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER WR_LIST_DIRECTED_SEQ -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER WR_LIST_DIRECTED_SEQ -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="List-directed sequential WRITE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}, FMT=*[, ERR={lbl}][, IOSTAT={ios}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER WR_NAMELIST_DIRECTED_SEQ -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER WR_NAMELIST_DIRECTED_SEQ -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Namelist-directed sequential WRITE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}, NML={grp_name}[, ERR={lbl}][, IOSTAT={ios}])"

END DEFINE

DELETE PLACEHOLDER WR_UNFORMATTED_DIRECT -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER WR_UNFORMATTED_DIRECT -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Unformatted direct WRITE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}, REC={rec}[, ERR={lbl}][, IOSTAT={ios}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER WR_UNFORMATTED_INDEXED -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER WR_UNFORMATTED_INDEXED -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Unformatted indexed WRITE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}[, ERR={lbl}][, IOSTAT={ios}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER WR_UNFORMATTED_SEQ -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER WR_UNFORMATTED_SEQ -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Unformatted sequential WRITE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	(UNIT={unit}[, ERR={lbl}][, IOSTAT={ios}]) [io_elm]..."

END DEFINE

DELETE PLACEHOLDER X -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER X -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Result is set equal to the time in seconds since midnight, "
    "minus the user-supplied value of x"

END DEFINE

DELETE PLACEHOLDER XNUM -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER XNUM -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Number of character positions to be passed over"

END DEFINE

DELETE PLACEHOLDER XOR -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER XOR -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=".XOR." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	.XOR."

END DEFINE

DELETE PLACEHOLDER X_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER X_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{real_or_complex_arg}"

END DEFINE

DELETE PLACEHOLDER X_EDIT_FIELD -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER X_EDIT_FIELD -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="X" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{xnum}X"

END DEFINE

DELETE PLACEHOLDER Y_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER Y_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{real_or_complex_arg}"

END DEFINE

DELETE PLACEHOLDER ZAMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZAMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZAMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZAMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER ZAMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZAMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZAMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZAMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER ZAXPY_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZAXPY_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZAXPY subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZAXPY ({n_arg},{a_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER ZCOPY_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZCOPY_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZCOPY subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZCOPY ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER ZDOTC_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZDOTC_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZDOTC function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZDOTC ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER ZDOTU_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZDOTU_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZDOTU function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZDOTU ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER ZDROT_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZDROT_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZDROT subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZDROT ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg},{c_arg},{s_arg})"

END DEFINE

DELETE PLACEHOLDER ZDSCAL_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZDSCAL_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZDSCAL subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZDSCAL ({n_arg},{a_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER ZDVCAL_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZDVCAL_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZDVCAL subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZDVCAL ({n_arg},{a_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER ZERO -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZERO -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="'ZERO'" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	'ZERO'"

END DEFINE

DELETE PLACEHOLDER ZEXT_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZEXT_FUNCTION -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Zero-extend Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "generic_zext"/PLACEHOLDER
    "izext" /TOKEN
    "jzext" /TOKEN

END DEFINE

DELETE PLACEHOLDER ZMAX_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZMAX_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZMAX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZMAX ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER ZMIN_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZMIN_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZMIN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZMIN ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER ZROTG_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZROTG_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZROTG subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZROTG ({a_arg},{b_arg},{c_arg},{s_arg})"

END DEFINE

DELETE PLACEHOLDER ZSCAL_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZSCAL_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZSCAL subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZSCAL ({n_arg},{a_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER ZSET_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZSET_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZSET subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZSET ({n_arg},{a_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER ZSUM_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZSUM_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZSUM function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZSUM ({n_arg},{x_arg},{incx_arg})"

END DEFINE

DELETE PLACEHOLDER ZSWAP_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZSWAP_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZSWAP subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZSWAP ({n_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER ZVCAL_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZVCAL_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZVCAL subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZVCAL ({n_arg},{a_arg},{x_arg},{incx_arg},{y_arg},{incy_arg})"

END DEFINE

DELETE PLACEHOLDER ZZAXPY_ROUTINE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER ZZAXPY_ROUTINE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ZZAXPY subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	ZZAXPY ({n_arg},{a_arg},{x_arg},{incx_arg},{y_arg},{incy_arg},"
    "	1 {z_arg},{incz_arg})"

END DEFINE

DELETE PLACEHOLDER Z_ARG -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER Z_ARG -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{real_or_complex_arg}"

END DEFINE

DELETE PLACEHOLDER Z_CODE -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER Z_CODE -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Z{width}.{min_char}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	[repeat]Z{width}[min_char]"

END DEFINE

DELETE PLACEHOLDER "[{UNSIGN_INT_CONS}*]{CONS}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "[{UNSIGN_INT_CONS}*]{CONS}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Constant value for Data element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "	[{unsign_int_cons}*]{cons}"

END DEFINE

DELETE PLACEHOLDER "{AOP} {AELM}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "{AOP} {AELM}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{aop} {aelm} "

END DEFINE

DELETE PLACEHOLDER "{AOP} {BOUND_ELM}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "{AOP} {BOUND_ELM}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{aop} {bound_elm}"

END DEFINE

DELETE PLACEHOLDER "{AOP} {INT_ELM}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "{AOP} {INT_ELM}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{aop} {int_elm}"

END DEFINE

DELETE PLACEHOLDER "{LBOUND}:" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "{LBOUND}:" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{lbound}:"

END DEFINE

DELETE PLACEHOLDER "{LOP}{LOG_ELM}" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "{LOP}{LOG_ELM}" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{lop}{log_elm}"

END DEFINE

DELETE PLACEHOLDER "{UNSIGN_INT_CONS}*" -
    /LANGUAGE="Fortran"
DEFINE PLACEHOLDER "{UNSIGN_INT_CONS}*" -
    /LANGUAGE="Fortran" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "	{unsign_int_cons}*"

END DEFINE

DELETE TOKEN "%DESCR" -
    /LANGUAGE="Fortran"
DEFINE TOKEN "%DESCR" -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Pass by descriptor" -

    "	%DESCR({arg})"

END DEFINE

DELETE TOKEN "%LOC" -
    /LANGUAGE="Fortran"
DEFINE TOKEN "%LOC" -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Obtain address of argument" -

    "	%LOC({arg})"

END DEFINE

DELETE TOKEN "%REF" -
    /LANGUAGE="Fortran"
DEFINE TOKEN "%REF" -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Pass by reference" -

    "	%REF({arg})"

END DEFINE

DELETE TOKEN "%VAL" -
    /LANGUAGE="Fortran"
DEFINE TOKEN "%VAL" -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Pass by immediate value)" -

    "	%VAL({arg})"

END DEFINE

DELETE TOKEN ABS -
    /LANGUAGE="Fortran"
DEFINE TOKEN ABS -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ABS_FUNCTION

END DEFINE
DELETE TOKEN ACCEPT -
    /LANGUAGE="Fortran"
DEFINE TOKEN ACCEPT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ACCEPT_STMT

END DEFINE
DELETE TOKEN ACCEPT1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN ACCEPT1 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Formatted ACCEPT" -

    "	ACCEPT {fmt},   [io_elm]..."

END DEFINE

DELETE TOKEN ACCEPT2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN ACCEPT2 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="List-directed ACCEPT" -

    "	ACCEPT *, [io_elm]..."

END DEFINE

DELETE TOKEN ACCEPT3 -
    /LANGUAGE="Fortran"
DEFINE TOKEN ACCEPT3 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Namelist-directed ACCEPT" -

    "	ACCEPT {grp_name}"

END DEFINE

DELETE TOKEN ACCESS -
    /LANGUAGE="Fortran"
DEFINE TOKEN ACCESS -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ACCESS

END DEFINE
DELETE TOKEN ACCESS_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN ACCESS_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ACCESS_PAR

END DEFINE
DELETE TOKEN ACOS -
    /LANGUAGE="Fortran"
DEFINE TOKEN ACOS -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ACOS_FUNCTION

END DEFINE
DELETE TOKEN ACOSD -
    /LANGUAGE="Fortran"
DEFINE TOKEN ACOSD -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ACOSD_FUNCTION

END DEFINE
DELETE TOKEN AIMAG -
    /LANGUAGE="Fortran"
DEFINE TOKEN AIMAG -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*8 argument, REAL*4 result" -

    "	AIMAG ({c8arg})"

END DEFINE

DELETE TOKEN AIMAX0 -
    /LANGUAGE="Fortran"
DEFINE TOKEN AIMAX0 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 arguments, REAL*4 result" -

    "	AIMAX0 ({i2arg}...)"

END DEFINE

DELETE TOKEN AIMIN0 -
    /LANGUAGE="Fortran"
DEFINE TOKEN AIMIN0 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 arguments, REAL*4 result" -

    "	AIMIN0 ({i2arg}...)"

END DEFINE

DELETE TOKEN AINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN AINT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=AINT_FUNCTION

END DEFINE
DELETE TOKEN AJMAX0 -
    /LANGUAGE="Fortran"
DEFINE TOKEN AJMAX0 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 arguments, REAL*4 result" -

    "	AJMAX0 ({i4arg}...)"

END DEFINE

DELETE TOKEN AJMIN0 -
    /LANGUAGE="Fortran"
DEFINE TOKEN AJMIN0 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 arguments, REAL*4 result" -

    "	AJMIN0 ({i4arg}...)"

END DEFINE

DELETE TOKEN ALIAS_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN ALIAS_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Define alternate name for external reference" -

    "	ALIAS {name}, {alias_name}"

END DEFINE

DELETE TOKEN ALIGN -
    /LANGUAGE="Fortran"
DEFINE TOKEN ALIGN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="PSECT alignment" -

    "	ALIGN={int_cons}"

END DEFINE

DELETE TOKEN ALOG -
    /LANGUAGE="Fortran"
DEFINE TOKEN ALOG -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -

    "	LOG ({r4arg})"

END DEFINE

DELETE TOKEN ALOG10 -
    /LANGUAGE="Fortran"
DEFINE TOKEN ALOG10 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 argument, REAL*4 result" -

    "	ALOG10 ({r4arg})"

END DEFINE

DELETE TOKEN AMAX0 -
    /LANGUAGE="Fortran"
DEFINE TOKEN AMAX0 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=AMAX0_FUNCTION

END DEFINE
DELETE TOKEN AMAX1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN AMAX1 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 argument and result" -

    "	AMAX1 ({r4arg}...)"

END DEFINE

DELETE TOKEN AMIN0 -
    /LANGUAGE="Fortran"
DEFINE TOKEN AMIN0 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=AMIN0_FUNCTION

END DEFINE
DELETE TOKEN AMIN1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN AMIN1 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 argument and result" -

    "	AMIN1 ({r4arg}...)"

END DEFINE

DELETE TOKEN AMOD -
    /LANGUAGE="Fortran"
DEFINE TOKEN AMOD -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 arguments and result" -

    "	AMOD ({r4arg},{r4arg})"

END DEFINE

DELETE TOKEN ANINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN ANINT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ANINT_FUNCTION

END DEFINE
DELETE TOKEN ARITH_RELATIONAL_EXP -
    /LANGUAGE="Fortran"
DEFINE TOKEN ARITH_RELATIONAL_EXP -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Arithmetic relational expression" -

    "	{arith_exp} {rop} {arith_exp}"

END DEFINE

DELETE TOKEN ASIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN ASIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ASIN_FUNCTION

END DEFINE
DELETE TOKEN ASIND -
    /LANGUAGE="Fortran"
DEFINE TOKEN ASIND -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ASIND_FUNCTION

END DEFINE
DELETE TOKEN ASSERT -
    /LANGUAGE="Fortran"
DEFINE TOKEN ASSERT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ASSERT_STMT

END DEFINE
DELETE TOKEN ASSERT_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN ASSERT_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Assert that a logical relationship holds" -

    "	ASSERT ({logical_exp})"

END DEFINE

DELETE TOKEN ASSIGNMENT -
    /LANGUAGE="Fortran"
DEFINE TOKEN ASSIGNMENT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ASSIGNMENT

END DEFINE
DELETE TOKEN ASSIGNMENT_ARITH -
    /LANGUAGE="Fortran"
DEFINE TOKEN ASSIGNMENT_ARITH -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Arithmetic ASSIGNMENT statement" -

    "	{arith_assign_elm} = {arith_exp}"

END DEFINE

DELETE TOKEN ASSIGNMENT_CHAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN ASSIGNMENT_CHAR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Character ASSIGNMENT Statement" -

    "	{char_assign_elm} = {char_exp}"

END DEFINE

DELETE TOKEN ASSIGNMENT_LOG -
    /LANGUAGE="Fortran"
DEFINE TOKEN ASSIGNMENT_LOG -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Logical ASSIGNMENT statement" -

    "	{logical_assign_elm} = {logical_exp}"

END DEFINE

DELETE TOKEN ASSIGNMENT_STRUC -
    /LANGUAGE="Fortran"
DEFINE TOKEN ASSIGNMENT_STRUC -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Structured_variable ASSIGNMENT statement" -

    "	{unqualified_record_ref} = {unqualified_record_ref}"

END DEFINE

DELETE TOKEN ASSOCIATEVARIABLE -
    /LANGUAGE="Fortran"
DEFINE TOKEN ASSOCIATEVARIABLE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ASSOCIATEVARIABLE

END DEFINE
DELETE TOKEN ATAN -
    /LANGUAGE="Fortran"
DEFINE TOKEN ATAN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ATAN_FUNCTION

END DEFINE
DELETE TOKEN ATAN2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN ATAN2 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ATAN2_FUNCTION

END DEFINE
DELETE TOKEN ATAN2D -
    /LANGUAGE="Fortran"
DEFINE TOKEN ATAN2D -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ATAN2D_FUNCTION

END DEFINE
DELETE TOKEN ATAND -
    /LANGUAGE="Fortran"
DEFINE TOKEN ATAND -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ATAND_FUNCTION

END DEFINE
DELETE TOKEN BACKSPACE -
    /LANGUAGE="Fortran"
DEFINE TOKEN BACKSPACE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=BACKSPACE_STMT

END DEFINE
DELETE TOKEN BITEST -
    /LANGUAGE="Fortran"
DEFINE TOKEN BITEST -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 arguments and result" -

    "	BITEST ({i2arg}, {i2arg})"

END DEFINE

DELETE TOKEN BJTEST -
    /LANGUAGE="Fortran"
DEFINE TOKEN BJTEST -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 arguments and result" -

    "	BJTEST ({i4arg}, {i4arg})"

END DEFINE

DELETE TOKEN BLANK -
    /LANGUAGE="Fortran"
DEFINE TOKEN BLANK -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=BLANK

END DEFINE
DELETE TOKEN BLANK_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN BLANK_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=BLANK_PAR

END DEFINE
DELETE TOKEN BLOCK -
    /LANGUAGE="Fortran"
DEFINE TOKEN BLOCK -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=BLOCKDATA_PROGRAM_UNIT

END DEFINE
DELETE TOKEN BLOCKSIZE -
    /LANGUAGE="Fortran"
DEFINE TOKEN BLOCKSIZE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=BLOCKSIZE

END DEFINE
DELETE TOKEN BLOCK_DATA_HEADER_COMMENTS -
    /LANGUAGE="Fortran"
DEFINE TOKEN BLOCK_DATA_HEADER_COMMENTS -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=BLOCK_DATA_HEADER_COMMENTS

END DEFINE
DELETE TOKEN BTEST -
    /LANGUAGE="Fortran"
DEFINE TOKEN BTEST -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=BTEST_FUNCTION

END DEFINE
DELETE TOKEN BUFFERCOUNT -
    /LANGUAGE="Fortran"
DEFINE TOKEN BUFFERCOUNT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=BUFFERCOUNT

END DEFINE
DELETE TOKEN BUILT_IN -
    /LANGUAGE="Fortran"
DEFINE TOKEN BUILT_IN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=BUILT_IN_FUNCTIONS

END DEFINE
DELETE TOKEN BYTE -
    /LANGUAGE="Fortran"
DEFINE TOKEN BYTE -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as BYTE" -

    "	BYTE {name}..."

END DEFINE

DELETE TOKEN CABS -
    /LANGUAGE="Fortran"
DEFINE TOKEN CABS -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*8 argument, REAL*4 result" -

    "	CABS ({c8arg})"

END DEFINE

DELETE TOKEN CALL -
    /LANGUAGE="Fortran"
DEFINE TOKEN CALL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CALL_STMT

END DEFINE
DELETE TOKEN CAMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN CAMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CAMAX_ROUTINE

END DEFINE
DELETE TOKEN CAMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN CAMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CAMIN_ROUTINE

END DEFINE
DELETE TOKEN CARRIAGECONTROL -
    /LANGUAGE="Fortran"
DEFINE TOKEN CARRIAGECONTROL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CARRIAGECONTROL

END DEFINE
DELETE TOKEN CARRIAGECONTROL_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN CARRIAGECONTROL_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CARRIAGECONTROL_PAR

END DEFINE
DELETE TOKEN CASUM -
    /LANGUAGE="Fortran"
DEFINE TOKEN CASUM -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CASUM_ROUTINE

END DEFINE
DELETE TOKEN CAXPY -
    /LANGUAGE="Fortran"
DEFINE TOKEN CAXPY -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CAXPY_ROUTINE

END DEFINE
DELETE TOKEN CCOPY -
    /LANGUAGE="Fortran"
DEFINE TOKEN CCOPY -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CCOPY_ROUTINE

END DEFINE
DELETE TOKEN CCOS -
    /LANGUAGE="Fortran"
DEFINE TOKEN CCOS -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*8 argument, COMPLEX*8 result" -

    "	CCOS ({c8arg})"

END DEFINE

DELETE TOKEN CDABS -
    /LANGUAGE="Fortran"
DEFINE TOKEN CDABS -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*16 argument, REAL*8 result" -

    "	CDABS ({c16arg})"

END DEFINE

DELETE TOKEN CDCOS -
    /LANGUAGE="Fortran"
DEFINE TOKEN CDCOS -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*16 argument, COMPLEX*16 result" -

    "	CDCOS ({c16arg})"

END DEFINE

DELETE TOKEN CDEC$_DIRECTIVE -
    /LANGUAGE="Fortran"
DEFINE TOKEN CDEC$_DIRECTIVE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CDEC$_DIR

END DEFINE
DELETE TOKEN CDEXP -
    /LANGUAGE="Fortran"
DEFINE TOKEN CDEXP -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*16 argument, COMPLEX*16 result" -

    "	CDEXP ({c16arg})"

END DEFINE

DELETE TOKEN CDLOG -
    /LANGUAGE="Fortran"
DEFINE TOKEN CDLOG -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*16 argument, COMPLEX*16 result" -

    "	CDLOG ({c16arg})"

END DEFINE

DELETE TOKEN CDOTC -
    /LANGUAGE="Fortran"
DEFINE TOKEN CDOTC -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CDOTC_ROUTINE

END DEFINE
DELETE TOKEN CDOTU -
    /LANGUAGE="Fortran"
DEFINE TOKEN CDOTU -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CDOTU_ROUTINE

END DEFINE
DELETE TOKEN CDSIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN CDSIN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*16 argument, COMPLEX*16 result" -

    "	CDSIN ({c16arg})"

END DEFINE

DELETE TOKEN CDSQRT -
    /LANGUAGE="Fortran"
DEFINE TOKEN CDSQRT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*16 argument, COMPLEX*16 result" -

    "	CDSQRT ({c16arg})"

END DEFINE

DELETE TOKEN CDTAN -
    /LANGUAGE="Fortran"
DEFINE TOKEN CDTAN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*16 argument, COMPLEX*16 result" -

    "	CDTAN ({c16arg})"

END DEFINE

DELETE TOKEN CEXP -
    /LANGUAGE="Fortran"
DEFINE TOKEN CEXP -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*8 argument, COMPLEX*8 result" -

    "	CEXP ({c8arg})"

END DEFINE

DELETE TOKEN CHAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN CHAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CHAR_FUNC

END DEFINE
DELETE TOKEN CHARACTER -
    /LANGUAGE="Fortran"
DEFINE TOKEN CHARACTER -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CHARACTER_DECL

END DEFINE
DELETE TOKEN "CHARACTER {NAME}*{LEN}" -
    /LANGUAGE="Fortran"
DEFINE TOKEN "CHARACTER {NAME}*{LEN}" -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Individual length CHARACTER declaration" -

    "	CHARACTER {char_decl}..."

END DEFINE

DELETE TOKEN "CHARACTER*(*) {NAME}" -
    /LANGUAGE="Fortran"
DEFINE TOKEN "CHARACTER*(*) {NAME}" -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Passed length CHARACTER declaration" -

    "	CHARACTER*(*) {name}..."

END DEFINE

DELETE TOKEN "CHARACTER*{LEN} {NAME}" -
    /LANGUAGE="Fortran"
DEFINE TOKEN "CHARACTER*{LEN} {NAME}" -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Uniform length CHARACTER declaration" -

    "	CHARACTER*{len} {name}..."

END DEFINE

DELETE TOKEN CHARACTER_FIELD -
    /LANGUAGE="Fortran"
DEFINE TOKEN CHARACTER_FIELD -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CHARACTER_FIELD_DECL

END DEFINE
DELETE TOKEN CHAR_RELATIONAL_EXP -
    /LANGUAGE="Fortran"
DEFINE TOKEN CHAR_RELATIONAL_EXP -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Character relational expression" -

    "	{char_exp} {rop} {char_exp}"

END DEFINE

DELETE TOKEN CLOG -
    /LANGUAGE="Fortran"
DEFINE TOKEN CLOG -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*8 argument, COMPLEX*8 result" -

    "	CLOG ({c8arg})"

END DEFINE

DELETE TOKEN CLOSE -
    /LANGUAGE="Fortran"
DEFINE TOKEN CLOSE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CLOSE_STMT

END DEFINE
DELETE TOKEN CMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN CMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CMAX_ROUTINE

END DEFINE
DELETE TOKEN CMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN CMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CMIN_ROUTINE

END DEFINE
DELETE TOKEN CMPLX -
    /LANGUAGE="Fortran"
DEFINE TOKEN CMPLX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CMPLX_FUNCTION

END DEFINE
DELETE TOKEN COMMON -
    /LANGUAGE="Fortran"
DEFINE TOKEN COMMON -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=COMMON_STMT

END DEFINE
DELETE TOKEN COMPLEX -
    /LANGUAGE="Fortran"
DEFINE TOKEN COMPLEX -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as COMPLEX" -

    "	COMPLEX {name}..."

END DEFINE

DELETE TOKEN COMPLEX16 -
    /LANGUAGE="Fortran"
DEFINE TOKEN COMPLEX16 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as COMPLEX*16" -

    "	COMPLEX*16 {name}..."

END DEFINE

DELETE TOKEN COMPLEX8 -
    /LANGUAGE="Fortran"
DEFINE TOKEN COMPLEX8 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as COMPLEX*8" -

    "	COMPLEX*8 {name}..."

END DEFINE

DELETE TOKEN CONJG -
    /LANGUAGE="Fortran"
DEFINE TOKEN CONJG -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CONJG_FUNCTION

END DEFINE
DELETE TOKEN CONTEXT_SHARED_ALL_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN CONTEXT_SHARED_ALL_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Set default allocation to CONTEXT_SHARED" -

    "	CONTEXT_SHARED_ALL"

END DEFINE

DELETE TOKEN CONTEXT_SHARED_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN CONTEXT_SHARED_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Specify context-shared allocation" -

    "	CONTEXT_SHARED {var}..."

END DEFINE

DELETE TOKEN CONTINUE -
    /LANGUAGE="Fortran"
DEFINE TOKEN CONTINUE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CONTINUE_STMT

END DEFINE
DELETE TOKEN CONVERT -
    /LANGUAGE="Fortran"
DEFINE TOKEN CONVERT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CONVERT

END DEFINE
DELETE TOKEN COS -
    /LANGUAGE="Fortran"
DEFINE TOKEN COS -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=COS_FUNCTION

END DEFINE
DELETE TOKEN COSD -
    /LANGUAGE="Fortran"
DEFINE TOKEN COSD -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 argument, REAL*4 result (degrees)" -

    "	COSD ({r4arg})"

END DEFINE

DELETE TOKEN COSH -
    /LANGUAGE="Fortran"
DEFINE TOKEN COSH -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=COSH_FUNCTION

END DEFINE
DELETE TOKEN CPAR$_DIRECTIVE -
    /LANGUAGE="Fortran"
DEFINE TOKEN CPAR$_DIRECTIVE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CPAR$_DIR

END DEFINE
DELETE TOKEN CROTG -
    /LANGUAGE="Fortran"
DEFINE TOKEN CROTG -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CROTG_ROUTINE

END DEFINE
DELETE TOKEN CSCAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN CSCAL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CSCAL_ROUTINE

END DEFINE
DELETE TOKEN CSET -
    /LANGUAGE="Fortran"
DEFINE TOKEN CSET -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CSET_ROUTINE

END DEFINE
DELETE TOKEN CSIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN CSIN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*8 argument, COMPLEX*8 result" -

    "	CSIN ({c8arg})"

END DEFINE

DELETE TOKEN CSQRT -
    /LANGUAGE="Fortran"
DEFINE TOKEN CSQRT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*8 argument, COMPLEX*8 result" -

    "	CSSQRT ({c8arg})"

END DEFINE

DELETE TOKEN CSROT -
    /LANGUAGE="Fortran"
DEFINE TOKEN CSROT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CSROT_ROUTINE

END DEFINE
DELETE TOKEN CSSCAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN CSSCAL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CSSCAL_ROUTINE

END DEFINE
DELETE TOKEN CSUM -
    /LANGUAGE="Fortran"
DEFINE TOKEN CSUM -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CSUM_ROUTINE

END DEFINE
DELETE TOKEN CSVCAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN CSVCAL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CSVCAL_ROUTINE

END DEFINE
DELETE TOKEN CSWAP -
    /LANGUAGE="Fortran"
DEFINE TOKEN CSWAP -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CSWAP_ROUTINE

END DEFINE
DELETE TOKEN CTAN -
    /LANGUAGE="Fortran"
DEFINE TOKEN CTAN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*8 argument, COMPLEX*8 result" -

    "	CTAN ({c8arg})"

END DEFINE

DELETE TOKEN CVCAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN CVCAL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CVCAL_ROUTINE

END DEFINE
DELETE TOKEN CZAXPY -
    /LANGUAGE="Fortran"
DEFINE TOKEN CZAXPY -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=CZAXPY_ROUTINE

END DEFINE
DELETE TOKEN DABS -
    /LANGUAGE="Fortran"
DEFINE TOKEN DABS -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DABS ({r8arg})"

END DEFINE

DELETE TOKEN DACOS -
    /LANGUAGE="Fortran"
DEFINE TOKEN DACOS -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DACOS ({r8arg})"

END DEFINE

DELETE TOKEN DACOSD -
    /LANGUAGE="Fortran"
DEFINE TOKEN DACOSD -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DACOSD ({r8arg})"

END DEFINE

DELETE TOKEN DAMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN DAMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DAMAX_ROUTINE

END DEFINE
DELETE TOKEN DAMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN DAMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DAMIN_ROUTINE

END DEFINE
DELETE TOKEN DASIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN DASIN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DASIN ({r8arg})"

END DEFINE

DELETE TOKEN DASIND -
    /LANGUAGE="Fortran"
DEFINE TOKEN DASIND -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DASIND ({r8arg})"

END DEFINE

DELETE TOKEN DASUM -
    /LANGUAGE="Fortran"
DEFINE TOKEN DASUM -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DASUM_ROUTINE

END DEFINE
DELETE TOKEN DATA -
    /LANGUAGE="Fortran"
DEFINE TOKEN DATA -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DATA_STMT

END DEFINE
DELETE TOKEN DATAN -
    /LANGUAGE="Fortran"
DEFINE TOKEN DATAN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DATAN ({r8arg})"

END DEFINE

DELETE TOKEN DATAN2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN DATAN2 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 arguments, REAL*8 result" -

    "	DATAN2 ({r8arg},{r8arg})"

END DEFINE

DELETE TOKEN DATAN2D -
    /LANGUAGE="Fortran"
DEFINE TOKEN DATAN2D -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 arguments, REAL*8 result" -

    "	DATAN2D ({r8arg},{r8arg})"

END DEFINE

DELETE TOKEN DATAND -
    /LANGUAGE="Fortran"
DEFINE TOKEN DATAND -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DATAND ({r8arg})"

END DEFINE

DELETE TOKEN DATE -
    /LANGUAGE="Fortran"
DEFINE TOKEN DATE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DATE_ROUTINE

END DEFINE
DELETE TOKEN DAXPY -
    /LANGUAGE="Fortran"
DEFINE TOKEN DAXPY -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DAXPY_ROUTINE

END DEFINE
DELETE TOKEN DBLE -
    /LANGUAGE="Fortran"
DEFINE TOKEN DBLE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DBLE_FUNCTION

END DEFINE
DELETE TOKEN DBLEQ -
    /LANGUAGE="Fortran"
DEFINE TOKEN DBLEQ -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 or COMPLEX argument" -

    "	DBLEQ({real_or_complex_arg})"

END DEFINE

DELETE TOKEN DCMPLX -
    /LANGUAGE="Fortran"
DEFINE TOKEN DCMPLX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DCMPLX_FUNCTION

END DEFINE
DELETE TOKEN DCONJG -
    /LANGUAGE="Fortran"
DEFINE TOKEN DCONJG -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*16 argument, COMPLEX*16 result" -

    "	DCONJG ({c16arg})"

END DEFINE

DELETE TOKEN DCOPY -
    /LANGUAGE="Fortran"
DEFINE TOKEN DCOPY -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DCOPY_ROUTINE

END DEFINE
DELETE TOKEN DCOS -
    /LANGUAGE="Fortran"
DEFINE TOKEN DCOS -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DCOS ({r8arg})"

END DEFINE

DELETE TOKEN DCOSD -
    /LANGUAGE="Fortran"
DEFINE TOKEN DCOSD -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result (degrees)" -

    "	DCOSD ({r8arg})"

END DEFINE

DELETE TOKEN DCOSH -
    /LANGUAGE="Fortran"
DEFINE TOKEN DCOSH -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DCOSH ({r8arg})"

END DEFINE

DELETE TOKEN DDIM -
    /LANGUAGE="Fortran"
DEFINE TOKEN DDIM -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 arguments and result" -

    "	DDIM ({r8arg},{r8arg})"

END DEFINE

DELETE TOKEN DDOT -
    /LANGUAGE="Fortran"
DEFINE TOKEN DDOT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DDOT_ROUTINE

END DEFINE
DELETE TOKEN DECLARATION -
    /LANGUAGE="Fortran"
DEFINE TOKEN DECLARATION -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DECLARATION

END DEFINE
DELETE TOKEN DEFAULTFILE -
    /LANGUAGE="Fortran"
DEFINE TOKEN DEFAULTFILE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DEFAULTFILE

END DEFINE
DELETE TOKEN DEFAULTFILE_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN DEFAULTFILE_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DEFAULTFILE_PAR

END DEFINE
DELETE TOKEN DEFINE -
    /LANGUAGE="Fortran"
DEFINE TOKEN DEFINE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DEFINE_FILE_STMT

END DEFINE
DELETE TOKEN DELETE -
    /LANGUAGE="Fortran"
DEFINE TOKEN DELETE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DELETE_STMT

END DEFINE
DELETE TOKEN DEXP -
    /LANGUAGE="Fortran"
DEFINE TOKEN DEXP -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DEXP ({r8arg})"

END DEFINE

DELETE TOKEN DFLOAT -
    /LANGUAGE="Fortran"
DEFINE TOKEN DFLOAT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DFLOAT_FUNCTION

END DEFINE
DELETE TOKEN DFLOATI -
    /LANGUAGE="Fortran"
DEFINE TOKEN DFLOATI -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 argument, REAL*8 result" -

    "	DFLOATI ({i2arg})"

END DEFINE

DELETE TOKEN DFLOATJ -
    /LANGUAGE="Fortran"
DEFINE TOKEN DFLOATJ -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 argument, REAL*8 result" -

    "	DFLOATJ ({i4arg})"

END DEFINE

DELETE TOKEN DICTIONARY -
    /LANGUAGE="Fortran"
DEFINE TOKEN DICTIONARY -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DICTIONARY_STMT

END DEFINE
DELETE TOKEN DIM -
    /LANGUAGE="Fortran"
DEFINE TOKEN DIM -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DIM_FUNCTION

END DEFINE
DELETE TOKEN DIMAG -
    /LANGUAGE="Fortran"
DEFINE TOKEN DIMAG -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*16 argument, REAL*8 result" -

    "	DIMAG ({c16arg})"

END DEFINE

DELETE TOKEN DIMENSION -
    /LANGUAGE="Fortran"
DEFINE TOKEN DIMENSION -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DIMENSION_STMT

END DEFINE
DELETE TOKEN DINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN DINT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DINT({r8arg})"

END DEFINE

DELETE TOKEN DIRECT_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN DIRECT_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DIRECT_PAR

END DEFINE
DELETE TOKEN DISPOSE -
    /LANGUAGE="Fortran"
DEFINE TOKEN DISPOSE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DISPOSE

END DEFINE
DELETE TOKEN DLOG -
    /LANGUAGE="Fortran"
DEFINE TOKEN DLOG -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DLOG ({r8arg})"

END DEFINE

DELETE TOKEN DLOG10 -
    /LANGUAGE="Fortran"
DEFINE TOKEN DLOG10 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DLOG10 ({r8arg})"

END DEFINE

DELETE TOKEN DMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN DMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DMAX_ROUTINE

END DEFINE
DELETE TOKEN DMAX1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN DMAX1 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument and result" -

    "	DMAX1 ({r8arg}...)"

END DEFINE

DELETE TOKEN DMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN DMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DMIN_ROUTINE

END DEFINE
DELETE TOKEN DMIN1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN DMIN1 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument and result" -

    "	DMIN1 ({r8arg}...)"

END DEFINE

DELETE TOKEN DMOD -
    /LANGUAGE="Fortran"
DEFINE TOKEN DMOD -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 arguments and result" -

    "	DMOD ({r8arg},{r8arg})"

END DEFINE

DELETE TOKEN DNINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN DNINT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DNINT({r8arg})"

END DEFINE

DELETE TOKEN DNORM2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN DNORM2 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DNORM2_ROUTINE

END DEFINE
DELETE TOKEN DNRM2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN DNRM2 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DNRM2_ROUTINE

END DEFINE
DELETE TOKEN DNRSQ -
    /LANGUAGE="Fortran"
DEFINE TOKEN DNRSQ -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DNRSQ_ROUTINE

END DEFINE
DELETE TOKEN DO -
    /LANGUAGE="Fortran"
DEFINE TOKEN DO -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DO_STMT

END DEFINE
DELETE TOKEN "DOUBLE COMPLEX" -
    /LANGUAGE="Fortran"
DEFINE TOKEN "DOUBLE COMPLEX" -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as DOUBLE COMPLEX" -

    "	DOUBLE COMPLEX {name}..."

END DEFINE

DELETE TOKEN "DOUBLE PRECISION" -
    /LANGUAGE="Fortran"
DEFINE TOKEN "DOUBLE PRECISION" -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as DOUBLE PRECISION" -

    "	DOUBLE PRECISION {name}..."

END DEFINE

DELETE TOKEN DO_INDEX -
    /LANGUAGE="Fortran"
DEFINE TOKEN DO_INDEX -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Indexed DO (DO)" -

    "	DO {do_var}={arith_exp},{arith_exp} [,{arith_exp}]"
    "		{executable_statement}..."
    "	END DO"

END DEFINE

DELETE TOKEN DO_INDEX_LABEL -
    /LANGUAGE="Fortran"
DEFINE TOKEN DO_INDEX_LABEL -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Indexed DO (DO) with label" -

    "	DO {lab} {do_var}={arith_exp},{arith_exp} [,{arith_exp}]"
    "		{executable_statement}..."
    "{lab}	END DO"

END DEFINE

DELETE TOKEN DO_PARALLEL_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN DO_PARALLEL_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Execute following loop in parallel" -

    "	DO_PARALLEL [integer_exp]"

END DEFINE

DELETE TOKEN DO_WHILE -
    /LANGUAGE="Fortran"
DEFINE TOKEN DO_WHILE -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Pretested indefinite DO (DO WHILE)" -

    "	DO WHILE ({logical_exp})"
    "		{executable_statement}..."
    "	END DO"

END DEFINE

DELETE TOKEN DO_WHILE_LABEL -
    /LANGUAGE="Fortran"
DEFINE TOKEN DO_WHILE_LABEL -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Pretested indefinite DO (DO WHILE) with label" -

    "	DO {lab} WHILE ({logical_exp})"
    "		{executable_statement}..."
    "{lab}	END DO"

END DEFINE

DELETE TOKEN DPROD -
    /LANGUAGE="Fortran"
DEFINE TOKEN DPROD -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 product of REAL*4's" -

    "	DPROD ({r4arg},{r4arg})"

END DEFINE

DELETE TOKEN DREAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN DREAL -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="COMPLEX*16 argument, REAL*8 result" -

    "	DREAL ({c16arg})"

END DEFINE

DELETE TOKEN DROT -
    /LANGUAGE="Fortran"
DEFINE TOKEN DROT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DROT_ROUTINE

END DEFINE
DELETE TOKEN DROTG -
    /LANGUAGE="Fortran"
DEFINE TOKEN DROTG -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DROTG_ROUTINE

END DEFINE
DELETE TOKEN DSCAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN DSCAL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DSCAL_ROUTINE

END DEFINE
DELETE TOKEN DSET -
    /LANGUAGE="Fortran"
DEFINE TOKEN DSET -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DSET_ROUTINE

END DEFINE
DELETE TOKEN DSIGN -
    /LANGUAGE="Fortran"
DEFINE TOKEN DSIGN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument and result" -

    "	DSIGN ({r8arg}, {r8arg})"

END DEFINE

DELETE TOKEN DSIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN DSIN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DSIN ({r8arg})"

END DEFINE

DELETE TOKEN DSIND -
    /LANGUAGE="Fortran"
DEFINE TOKEN DSIND -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result (degrees)" -

    "	DSIND ({r8arg})"

END DEFINE

DELETE TOKEN DSINH -
    /LANGUAGE="Fortran"
DEFINE TOKEN DSINH -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DSINH ({r8arg})"

END DEFINE

DELETE TOKEN DSQRT -
    /LANGUAGE="Fortran"
DEFINE TOKEN DSQRT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DSQRT ({r8arg})"

END DEFINE

DELETE TOKEN DSUM -
    /LANGUAGE="Fortran"
DEFINE TOKEN DSUM -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DSUM_ROUTINE

END DEFINE
DELETE TOKEN DSWAP -
    /LANGUAGE="Fortran"
DEFINE TOKEN DSWAP -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DSWAP_ROUTINE

END DEFINE
DELETE TOKEN DTAN -
    /LANGUAGE="Fortran"
DEFINE TOKEN DTAN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result" -

    "	DTAN ({r8arg})"

END DEFINE

DELETE TOKEN DTAND -
    /LANGUAGE="Fortran"
DEFINE TOKEN DTAND -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, REAL*8 result (degrees)" -

    "	DTAND ({r8arg})"

END DEFINE

DELETE TOKEN DTANH -
    /LANGUAGE="Fortran"
DEFINE TOKEN DTANH -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="" -

    "	DTANH ({r8arg})"

END DEFINE

DELETE TOKEN DVCAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN DVCAL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DVCAL_ROUTINE

END DEFINE
DELETE TOKEN DZASUM -
    /LANGUAGE="Fortran"
DEFINE TOKEN DZASUM -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DZASUM_ROUTINE

END DEFINE
DELETE TOKEN DZAXPY -
    /LANGUAGE="Fortran"
DEFINE TOKEN DZAXPY -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DZAXPY_ROUTINE

END DEFINE
DELETE TOKEN DZNORM2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN DZNORM2 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DZNORM2_ROUTINE

END DEFINE
DELETE TOKEN DZNRM2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN DZNRM2 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DZNRM2_ROUTINE

END DEFINE
DELETE TOKEN DZNRSQ -
    /LANGUAGE="Fortran"
DEFINE TOKEN DZNRSQ -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=DZNRSQ_ROUTINE

END DEFINE
DELETE TOKEN ENDFILE -
    /LANGUAGE="Fortran"
DEFINE TOKEN ENDFILE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ENDFILE_STMT

END DEFINE
DELETE TOKEN ENTRY -
    /LANGUAGE="Fortran"
DEFINE TOKEN ENTRY -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ENTRY_STMT

END DEFINE
DELETE TOKEN EQUIVALENCE -
    /LANGUAGE="Fortran"
DEFINE TOKEN EQUIVALENCE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=EQUIVALENCE_STMT

END DEFINE
DELETE TOKEN ERR -
    /LANGUAGE="Fortran"
DEFINE TOKEN ERR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ERR

END DEFINE
DELETE TOKEN ERRSNS -
    /LANGUAGE="Fortran"
DEFINE TOKEN ERRSNS -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ERRSNS_ROUTINE

END DEFINE
DELETE TOKEN ERR_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN ERR_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ERR_PAR

END DEFINE
DELETE TOKEN EXECUTABLE_STATEMENT -
    /LANGUAGE="Fortran"
DEFINE TOKEN EXECUTABLE_STATEMENT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=EXECUTABLE_STATEMENT

END DEFINE
DELETE TOKEN EXIST_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN EXIST_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=EXIST_PAR

END DEFINE
DELETE TOKEN EXIT -
    /LANGUAGE="Fortran"
DEFINE TOKEN EXIT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=EXIT_ROUTINE

END DEFINE
DELETE TOKEN EXPON -
    /LANGUAGE="Fortran"
DEFINE TOKEN EXPON -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=EXPON_FUNCTION

END DEFINE
DELETE TOKEN EXTENDSIZE -
    /LANGUAGE="Fortran"
DEFINE TOKEN EXTENDSIZE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=EXTENDSIZE

END DEFINE
DELETE TOKEN EXTERNAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN EXTERNAL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=EXTERNAL_STMT

END DEFINE
DELETE TOKEN FIELD_DECLARATION -
    /LANGUAGE="Fortran"
DEFINE TOKEN FIELD_DECLARATION -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=FIELD_DECLARATION

END DEFINE
DELETE TOKEN FILE -
    /LANGUAGE="Fortran"
DEFINE TOKEN FILE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=FILE

END DEFINE
DELETE TOKEN FILE_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN FILE_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=FILE_PAR

END DEFINE
DELETE TOKEN FIND -
    /LANGUAGE="Fortran"
DEFINE TOKEN FIND -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=FIND_STMT

END DEFINE
DELETE TOKEN FLOAT -
    /LANGUAGE="Fortran"
DEFINE TOKEN FLOAT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=FLOAT_FUNCTION

END DEFINE
DELETE TOKEN FLOATI -
    /LANGUAGE="Fortran"
DEFINE TOKEN FLOATI -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 argument" -

    "	FLOATI({i2arg})"

END DEFINE

DELETE TOKEN FLOATJ -
    /LANGUAGE="Fortran"
DEFINE TOKEN FLOATJ -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 or REAL*4 argument" -

    "	FLOATJ({integer_arg})"

END DEFINE

DELETE TOKEN FORM -
    /LANGUAGE="Fortran"
DEFINE TOKEN FORM -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=FORM

END DEFINE
DELETE TOKEN FORMAT -
    /LANGUAGE="Fortran"
DEFINE TOKEN FORMAT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=FORMAT_STMT

END DEFINE
DELETE TOKEN FORMATTED_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN FORMATTED_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=FORMATTED_PAR

END DEFINE
DELETE TOKEN FORM_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN FORM_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=FORM_PAR

END DEFINE
DELETE TOKEN FUNCTION -
    /LANGUAGE="Fortran"
DEFINE TOKEN FUNCTION -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=FUNCTION_PROGRAM_UNIT

END DEFINE
DELETE TOKEN GENERIC_ASIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN GENERIC_ASIN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Generic Arc Sine Function" -

    "	ASIN ({arg})"

END DEFINE

DELETE TOKEN GENERIC_COS -
    /LANGUAGE="Fortran"
DEFINE TOKEN GENERIC_COS -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Generic Cosine Function" -

    "	COS ({arg})"

END DEFINE

DELETE TOKEN GENERIC_EXP -
    /LANGUAGE="Fortran"
DEFINE TOKEN GENERIC_EXP -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Generic Exponential Function" -

    "	EXP ({arg})"

END DEFINE

DELETE TOKEN GENERIC_LOG -
    /LANGUAGE="Fortran"
DEFINE TOKEN GENERIC_LOG -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Generic LOG Function" -

    "	LOG ({arg})"

END DEFINE

DELETE TOKEN GENERIC_LOG10 -
    /LANGUAGE="Fortran"
DEFINE TOKEN GENERIC_LOG10 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Generic Common Logarithm Function" -

    "	LOG10 ({arg})"

END DEFINE

DELETE TOKEN GENERIC_SIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN GENERIC_SIN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Generic Sine Function" -

    "	SIN ({arg})"

END DEFINE

DELETE TOKEN GENERIC_SQRT -
    /LANGUAGE="Fortran"
DEFINE TOKEN GENERIC_SQRT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Generic SQRT Function" -

    "	SQRT ({arg})"

END DEFINE

DELETE TOKEN GENERIC_TAN -
    /LANGUAGE="Fortran"
DEFINE TOKEN GENERIC_TAN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Generic Tangent Function" -

    "	TAN ({arg})"

END DEFINE

DELETE TOKEN GENERIC_TAND -
    /LANGUAGE="Fortran"
DEFINE TOKEN GENERIC_TAND -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Generic Tangent (degrees) Function" -

    "	TAND ({arg})"

END DEFINE

DELETE TOKEN GOTO -
    /LANGUAGE="Fortran"
DEFINE TOKEN GOTO -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=GOTO_STMT

END DEFINE
DELETE TOKEN GO_COMPUTED -
    /LANGUAGE="Fortran"
DEFINE TOKEN GO_COMPUTED -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Computed GO TO statement" -

    "	GO TO ({lbl}...), {arith_exp}"

END DEFINE

DELETE TOKEN GO_UNCONDITIONAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN GO_UNCONDITIONAL -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Unconditional GO TO statement" -

    "	GO TO {lbl}"

END DEFINE

DELETE TOKEN HEADER_FUNCTION -
    /LANGUAGE="Fortran"
DEFINE TOKEN HEADER_FUNCTION -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=FUNCTION_HEADER_COMMENTS

END DEFINE
DELETE TOKEN HFIX -
    /LANGUAGE="Fortran"
DEFINE TOKEN HFIX -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 argument, INTEGER*2 result" -

    "	HFIX ({r4arg})"

END DEFINE

DELETE TOKEN IABS -
    /LANGUAGE="Fortran"
DEFINE TOKEN IABS -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IABS_FUNCTION

END DEFINE
DELETE TOKEN IAND -
    /LANGUAGE="Fortran"
DEFINE TOKEN IAND -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IAND_FUNCTION

END DEFINE
DELETE TOKEN IARGCOUNT_FUNC -
    /LANGUAGE="Fortran"
DEFINE TOKEN IARGCOUNT_FUNC -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="IARGCOUNT function" -

    "	IARGCOUNT ()"

END DEFINE

DELETE TOKEN IARGPTR_FUNC -
    /LANGUAGE="Fortran"
DEFINE TOKEN IARGPTR_FUNC -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="IARGPTR function" -

    "	IARGPTR ()"

END DEFINE

DELETE TOKEN IBITS -
    /LANGUAGE="Fortran"
DEFINE TOKEN IBITS -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IBITS_FUNCTION

END DEFINE
DELETE TOKEN IBLCR -
    /LANGUAGE="Fortran"
DEFINE TOKEN IBLCR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IBCLR_FUNCTION

END DEFINE
DELETE TOKEN IBSET -
    /LANGUAGE="Fortran"
DEFINE TOKEN IBSET -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IBSET_FUNCTION

END DEFINE
DELETE TOKEN ICAMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN ICAMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ICAMAX_ROUTINE

END DEFINE
DELETE TOKEN ICAMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN ICAMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ICAMIN_ROUTINE

END DEFINE
DELETE TOKEN ICHAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN ICHAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ICHAR_FUNC

END DEFINE
DELETE TOKEN ICMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN ICMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ICMAX_ROUTINE

END DEFINE
DELETE TOKEN ICMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN ICMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ICMIN_ROUTINE

END DEFINE
DELETE TOKEN IDAMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN IDAMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IDAMAX_ROUTINE

END DEFINE
DELETE TOKEN IDAMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN IDAMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IDAMIN_ROUTINE

END DEFINE
DELETE TOKEN IDATE -
    /LANGUAGE="Fortran"
DEFINE TOKEN IDATE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IDATE_ROUTINE

END DEFINE
DELETE TOKEN IDENT_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN IDENT_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Specify module identification" -

    "	IDENT '{string}'"

END DEFINE

DELETE TOKEN IDIM -
    /LANGUAGE="Fortran"
DEFINE TOKEN IDIM -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IDIM_FUNCTION

END DEFINE
DELETE TOKEN IDINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN IDINT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IDINT_FUNCTION

END DEFINE
DELETE TOKEN IDMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN IDMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IDMAX_ROUTINE

END DEFINE
DELETE TOKEN IDMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN IDMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IDMIN_ROUTINE

END DEFINE
DELETE TOKEN IDNINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN IDNINT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IDNINT_FUNCTION

END DEFINE
DELETE TOKEN IEOR -
    /LANGUAGE="Fortran"
DEFINE TOKEN IEOR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IEOR_FUNCTION

END DEFINE
DELETE TOKEN IF -
    /LANGUAGE="Fortran"
DEFINE TOKEN IF -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IF_STMT

END DEFINE
DELETE TOKEN IFIX -
    /LANGUAGE="Fortran"
DEFINE TOKEN IFIX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IFIX_FUNCTION

END DEFINE
DELETE TOKEN IF_ARITH -
    /LANGUAGE="Fortran"
DEFINE TOKEN IF_ARITH -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Arithmetic IF statement" -

    "	IF ({arith_exp}) {lbl}, {lbl}, {lbl}"

END DEFINE

DELETE TOKEN IF_LOGICAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN IF_LOGICAL -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Logical IF statement" -

    "	IF ({logical_exp}) {executable_statement}"

END DEFINE

DELETE TOKEN IF_THEN -
    /LANGUAGE="Fortran"
DEFINE TOKEN IF_THEN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Block IF statement" -

    "	IF ({logical_exp}) THEN"
    "		{executable_statement}..."
    "	[ELSE_IF_THEN]..."
    "	[ELSE]"
    "	END IF"

END DEFINE

DELETE TOKEN IIABS -
    /LANGUAGE="Fortran"
DEFINE TOKEN IIABS -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 argument, INTEGER*2 result" -

    "	IIABS ({i2arg})"

END DEFINE

DELETE TOKEN IIAND -
    /LANGUAGE="Fortran"
DEFINE TOKEN IIAND -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 arguments and result" -

    "	IIAND ({i2arg}, {i2arg})"

END DEFINE

DELETE TOKEN IIBCLR -
    /LANGUAGE="Fortran"
DEFINE TOKEN IIBCLR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 arguments and result" -

    "	IIBCLR ({i2arg}, {i2arg})"

END DEFINE

DELETE TOKEN IIBITS -
    /LANGUAGE="Fortran"
DEFINE TOKEN IIBITS -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 arguments and result" -

    "	IIBITS ({i2arg}, {i2arg}, {i2arg})"

END DEFINE

DELETE TOKEN IIBSET -
    /LANGUAGE="Fortran"
DEFINE TOKEN IIBSET -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 arguments and result" -

    "	IIBSET ({i2arg}, {i2arg})"

END DEFINE

DELETE TOKEN IIDIM -
    /LANGUAGE="Fortran"
DEFINE TOKEN IIDIM -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 arguments and result" -

    "	IIDIM ({i2arg},{i2arg})"

END DEFINE

DELETE TOKEN IIDINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN IIDINT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, INTEGER*2 result" -

    "	IIDINT({r8arg})"

END DEFINE

DELETE TOKEN IIDNNT -
    /LANGUAGE="Fortran"
DEFINE TOKEN IIDNNT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, INTEGER*2 result" -

    "	IIDNNT({r8arg})"

END DEFINE

DELETE TOKEN IIEOR -
    /LANGUAGE="Fortran"
DEFINE TOKEN IIEOR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 arguments and result" -

    "	IIEOR ({i2arg}, {i2arg})"

END DEFINE

DELETE TOKEN IIFIX -
    /LANGUAGE="Fortran"
DEFINE TOKEN IIFIX -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 argument, INTEGER*2 result" -

    "	IIFIX ({r4arg})"

END DEFINE

DELETE TOKEN IINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN IINT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 argument, INTEGER*2 result" -

    "	IINT({r4arg})"

END DEFINE

DELETE TOKEN IIOR -
    /LANGUAGE="Fortran"
DEFINE TOKEN IIOR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 arguments and result" -

    "	IIOR ({i2arg}, {i2arg})"

END DEFINE

DELETE TOKEN IIQINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN IIQINT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, INTEGER*4 result" -

    "	IIQINT({r16arg})"

END DEFINE

DELETE TOKEN IIQNNT -
    /LANGUAGE="Fortran"
DEFINE TOKEN IIQNNT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, INTEGER*4 result" -

    "	IIQNNT({r16arg})"

END DEFINE

DELETE TOKEN IISHFT -
    /LANGUAGE="Fortran"
DEFINE TOKEN IISHFT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 arguments and result" -

    "	IISHFT {i2arg}, {i2arg})"

END DEFINE

DELETE TOKEN IISHFTC -
    /LANGUAGE="Fortran"
DEFINE TOKEN IISHFTC -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 arguments and result" -

    "	IISHFTC ({i2arg}, {i2arg}, {i2arg})"

END DEFINE

DELETE TOKEN IISIGN -
    /LANGUAGE="Fortran"
DEFINE TOKEN IISIGN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 arguments and result" -

    "	IISIGN ({i2arg}, {i2arg})"

END DEFINE

DELETE TOKEN IMAG -
    /LANGUAGE="Fortran"
DEFINE TOKEN IMAG -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IMAG_FUNCTION

END DEFINE
DELETE TOKEN IMAX0 -
    /LANGUAGE="Fortran"
DEFINE TOKEN IMAX0 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 argument and result" -

    "	IMAX0 ({i2arg}...)"

END DEFINE

DELETE TOKEN IMAX1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN IMAX1 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 arguments, INTEGER*2 result" -

    "	IMAX1 ({r4arg}...)"

END DEFINE

DELETE TOKEN IMIN0 -
    /LANGUAGE="Fortran"
DEFINE TOKEN IMIN0 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 argument and result" -

    "	IMIN0 ({i2arg}...)"

END DEFINE

DELETE TOKEN IMIN1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN IMIN1 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 arguments, INTEGER*2 result" -

    "	IMIN1 ({r4arg}...)"

END DEFINE

DELETE TOKEN IMOD -
    /LANGUAGE="Fortran"
DEFINE TOKEN IMOD -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 arguments and result" -

    "	IMOD ({i2arg},{i2arg})"

END DEFINE

DELETE TOKEN IMPLICIT -
    /LANGUAGE="Fortran"
DEFINE TOKEN IMPLICIT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IMPLICIT_STMT

END DEFINE
DELETE TOKEN INCLUDE -
    /LANGUAGE="Fortran"
DEFINE TOKEN INCLUDE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=INCLUDE_STMT

END DEFINE
DELETE TOKEN INCLUDE_FILE -
    /LANGUAGE="Fortran"
DEFINE TOKEN INCLUDE_FILE -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Include source from a file" -

    "	INCLUDE '{file_spec} [list_opt]'"

END DEFINE

DELETE TOKEN INCLUDE_LIBRARY_MODULE -
    /LANGUAGE="Fortran"
DEFINE TOKEN INCLUDE_LIBRARY_MODULE -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Include source from a text library" -

    "	INCLUDE '[file_spec]({module_name})[list_opt]'"

END DEFINE

DELETE TOKEN INDEX -
    /LANGUAGE="Fortran"
DEFINE TOKEN INDEX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=INDEX_FUNC

END DEFINE
DELETE TOKEN ININT -
    /LANGUAGE="Fortran"
DEFINE TOKEN ININT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 argument, INTEGER*2 result" -

    "	ININT({r4arg})"

END DEFINE

DELETE TOKEN INITIALSIZE -
    /LANGUAGE="Fortran"
DEFINE TOKEN INITIALSIZE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=INITIALSIZE

END DEFINE
DELETE TOKEN INIT_DEP_FWD_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN INIT_DEP_FWD_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Initialize loop dependencies to forward direction" -

    "	INIT_DEP_FWD"

END DEFINE

DELETE TOKEN INOT -
    /LANGUAGE="Fortran"
DEFINE TOKEN INOT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 arguments and result" -

    "	INOT ({i2arg})"

END DEFINE

DELETE TOKEN INQUIRE -
    /LANGUAGE="Fortran"
DEFINE TOKEN INQUIRE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=INQUIRE_STMT

END DEFINE
DELETE TOKEN INT -
    /LANGUAGE="Fortran"
DEFINE TOKEN INT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=INT_FUNCTION

END DEFINE
DELETE TOKEN INTEGER -
    /LANGUAGE="Fortran"
DEFINE TOKEN INTEGER -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as INTEGER" -

    "	INTEGER {name}..."

END DEFINE

DELETE TOKEN INTEGER1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN INTEGER1 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as INTEGER*1" -

    "	INTEGER*1 {name}..."

END DEFINE

DELETE TOKEN INTEGER2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN INTEGER2 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as INTEGER*2" -

    "	INTEGER*2 {name}..."

END DEFINE

DELETE TOKEN INTEGER4 -
    /LANGUAGE="Fortran"
DEFINE TOKEN INTEGER4 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as INTEGER*4" -

    "	INTEGER*4 {name}..."

END DEFINE

DELETE TOKEN INTRINSIC -
    /LANGUAGE="Fortran"
DEFINE TOKEN INTRINSIC -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=INTRINSIC_STMT

END DEFINE
DELETE TOKEN IOR -
    /LANGUAGE="Fortran"
DEFINE TOKEN IOR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IOR_FUNCTION

END DEFINE
DELETE TOKEN IOSTAT_OPEN -
    /LANGUAGE="Fortran"
DEFINE TOKEN IOSTAT_OPEN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IOSTAT_OPEN

END DEFINE
DELETE TOKEN IOSTAT_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN IOSTAT_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IOSTAT_PAR

END DEFINE
DELETE TOKEN IQINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN IQINT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IQINT_FUNCTION

END DEFINE
DELETE TOKEN IQNINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN IQNINT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IQNINT_FUNCTION

END DEFINE
DELETE TOKEN ISAMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN ISAMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ISAMAX_ROUTINE

END DEFINE
DELETE TOKEN ISAMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN ISAMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ISAMIN_ROUTINE

END DEFINE
DELETE TOKEN ISHFT -
    /LANGUAGE="Fortran"
DEFINE TOKEN ISHFT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ISHFT_FUNCTION

END DEFINE
DELETE TOKEN ISHFTC -
    /LANGUAGE="Fortran"
DEFINE TOKEN ISHFTC -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ISHFTC_FUNCTION

END DEFINE
DELETE TOKEN ISIGN -
    /LANGUAGE="Fortran"
DEFINE TOKEN ISIGN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ISIGN_FUNCTION

END DEFINE
DELETE TOKEN ISMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN ISMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ISMAX_ROUTINE

END DEFINE
DELETE TOKEN ISMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN ISMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ISMIN_ROUTINE

END DEFINE
DELETE TOKEN IZAMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN IZAMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IZAMAX_ROUTINE

END DEFINE
DELETE TOKEN IZAMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN IZAMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IZAMIN_ROUTINE

END DEFINE
DELETE TOKEN IZEXT -
    /LANGUAGE="Fortran"
DEFINE TOKEN IZEXT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*2 result" -

    "	ZEXT({integer_arg})"

END DEFINE

DELETE TOKEN IZMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN IZMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IZMAX_ROUTINE

END DEFINE
DELETE TOKEN IZMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN IZMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=IZMIN_ROUTINE

END DEFINE
DELETE TOKEN JIABS -
    /LANGUAGE="Fortran"
DEFINE TOKEN JIABS -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 argument, INTEGER*4 result" -

    "	JIABS ({i4arg})"

END DEFINE

DELETE TOKEN JIAND -
    /LANGUAGE="Fortran"
DEFINE TOKEN JIAND -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 arguments and result" -

    "	JIAND ({i4arg}, {i4arg})"

END DEFINE

DELETE TOKEN JIBCLR -
    /LANGUAGE="Fortran"
DEFINE TOKEN JIBCLR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 arguments and result" -

    "	JIBCLR ({i4arg}, {i4arg})"

END DEFINE

DELETE TOKEN JIBITS -
    /LANGUAGE="Fortran"
DEFINE TOKEN JIBITS -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 arguments and result" -

    "	JIBITS ({i4arg}, {i4arg}, {i4arg})"

END DEFINE

DELETE TOKEN JIBSET -
    /LANGUAGE="Fortran"
DEFINE TOKEN JIBSET -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 arguments and result" -

    "	JIBSET ({i4arg}, {i4arg})"

END DEFINE

DELETE TOKEN JIDIM -
    /LANGUAGE="Fortran"
DEFINE TOKEN JIDIM -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 arguments and result" -

    "	JIDIM ({i4arg},{i4arg})"

END DEFINE

DELETE TOKEN JIDINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN JIDINT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, INTEGER*4 result" -

    "	JIDINT({r8arg})"

END DEFINE

DELETE TOKEN JIDNNT -
    /LANGUAGE="Fortran"
DEFINE TOKEN JIDNNT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument, INTEGER*4 result" -

    "	JIDNNT({r8arg})"

END DEFINE

DELETE TOKEN JIEOR -
    /LANGUAGE="Fortran"
DEFINE TOKEN JIEOR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 arguments and result" -

    "	JIEOR ({i4arg}, {i4arg})"

END DEFINE

DELETE TOKEN JIFIX -
    /LANGUAGE="Fortran"
DEFINE TOKEN JIFIX -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 argument, INTEGER*4 result" -

    "	JIFIX ({r4arg})"

END DEFINE

DELETE TOKEN JINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN JINT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 argument, INTEGER*4 result" -

    "	JINT({r4arg})"

END DEFINE

DELETE TOKEN JIOR -
    /LANGUAGE="Fortran"
DEFINE TOKEN JIOR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 arguments and result" -

    "	JIOR ({i4arg}, {i4arg})"

END DEFINE

DELETE TOKEN JIQINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN JIQINT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, INTEGER*4 result" -

    "	JIQINT({real_or_complex_arg})"

END DEFINE

DELETE TOKEN JIQNNT -
    /LANGUAGE="Fortran"
DEFINE TOKEN JIQNNT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, INTEGER*4 result" -

    "	JIQNNT({real_arg})"

END DEFINE

DELETE TOKEN JISHFT -
    /LANGUAGE="Fortran"
DEFINE TOKEN JISHFT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 arguments and result" -

    "	JISHFT ({i4arg}, {i4arg})"

END DEFINE

DELETE TOKEN JISHFTC -
    /LANGUAGE="Fortran"
DEFINE TOKEN JISHFTC -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 arguments and result" -

    "	JISHFTC ({i4arg}, {i4arg}, {i4arg})"

END DEFINE

DELETE TOKEN JISIGN -
    /LANGUAGE="Fortran"
DEFINE TOKEN JISIGN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 arguments and result" -

    "	JISIGN ({i4arg}, {i4arg})"

END DEFINE

DELETE TOKEN JMAX0 -
    /LANGUAGE="Fortran"
DEFINE TOKEN JMAX0 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 argument and result" -

    "	JMAX0 ({i4arg}...)"

END DEFINE

DELETE TOKEN JMAX1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN JMAX1 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 arguments, INTEGER*2 result" -

    "	JMAX1 ({r8arg}...)"

END DEFINE

DELETE TOKEN JMIN0 -
    /LANGUAGE="Fortran"
DEFINE TOKEN JMIN0 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 argument and result" -

    "	JMIN0 ({i4arg}...)"

END DEFINE

DELETE TOKEN JMIN1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN JMIN1 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 arguments, INTEGER*2 result" -

    "	JMIN1 ({r8arg}...)"

END DEFINE

DELETE TOKEN JMOD -
    /LANGUAGE="Fortran"
DEFINE TOKEN JMOD -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 arguments and result" -

    "	JMOD ({i4arg},{i4arg})"

END DEFINE

DELETE TOKEN JNINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN JNINT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 argument, INTEGER*4 result" -

    "	JNINT({r4arg})"

END DEFINE

DELETE TOKEN JNOT -
    /LANGUAGE="Fortran"
DEFINE TOKEN JNOT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 arguments and result" -

    "	JNOT ({i4arg})"

END DEFINE

DELETE TOKEN JZEXT -
    /LANGUAGE="Fortran"
DEFINE TOKEN JZEXT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*4 result" -

    "	JEXT({integer_arg})"

END DEFINE

DELETE TOKEN KEY -
    /LANGUAGE="Fortran"
DEFINE TOKEN KEY -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Exact key match" -

    "	KEY = {key_exp}"

END DEFINE

DELETE TOKEN KEYED_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN KEYED_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=KEYED_PAR

END DEFINE
DELETE TOKEN KEYEQ -
    /LANGUAGE="Fortran"
DEFINE TOKEN KEYEQ -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Exact key match" -

    "	KEYEQ = {key_exp}"

END DEFINE

DELETE TOKEN KEYGE -
    /LANGUAGE="Fortran"
DEFINE TOKEN KEYGE -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Key greater than or equal" -

    "	KEYGE = {key_exp}"

END DEFINE

DELETE TOKEN KEYGT -
    /LANGUAGE="Fortran"
DEFINE TOKEN KEYGT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Key greater than" -

    "	KEYGT = {key_exp}"

END DEFINE

DELETE TOKEN KEYLE -
    /LANGUAGE="Fortran"
DEFINE TOKEN KEYLE -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Key less than or equal" -

    "	KEYLE = {key_exp}"

END DEFINE

DELETE TOKEN KEYLT -
    /LANGUAGE="Fortran"
DEFINE TOKEN KEYLT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Key less than" -

    "	KEYLT = {key_exp}"

END DEFINE

DELETE TOKEN KEYNXT -
    /LANGUAGE="Fortran"
DEFINE TOKEN KEYNXT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Key equal to or next in index direction" -

    "	KEYNXT = {key_exp}"

END DEFINE

DELETE TOKEN KEYNXTNE -
    /LANGUAGE="Fortran"
DEFINE TOKEN KEYNXTNE -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Next key not equal to in index direction" -

    "	KEYNXTNE = {key_exp}"

END DEFINE

DELETE TOKEN KEY_OPEN -
    /LANGUAGE="Fortran"
DEFINE TOKEN KEY_OPEN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=KEY_OPEN

END DEFINE
DELETE TOKEN LENGTH -
    /LANGUAGE="Fortran"
DEFINE TOKEN LENGTH -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=LENGTH_FUNC

END DEFINE
DELETE TOKEN LGE -
    /LANGUAGE="Fortran"
DEFINE TOKEN LGE -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Character relational LGE function" -

    "	LGE ({char_exp})"

END DEFINE

DELETE TOKEN LGT -
    /LANGUAGE="Fortran"
DEFINE TOKEN LGT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Character relational LGT function" -

    "	LGT ({char_exp})"

END DEFINE

DELETE TOKEN LLE -
    /LANGUAGE="Fortran"
DEFINE TOKEN LLE -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Character relational LLE function" -

    "	LLE ({char_exp})"

END DEFINE

DELETE TOKEN LLT -
    /LANGUAGE="Fortran"
DEFINE TOKEN LLT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Character relational LLT function" -

    "	LLT ({char_exp})"

END DEFINE

DELETE TOKEN LOC -
    /LANGUAGE="Fortran"
DEFINE TOKEN LOC -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="LOC function" -

    "	LOC ({arg})"

END DEFINE

DELETE TOKEN LOCKOFF_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN LOCKOFF_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Release lock" -

    "	LOCKOFF {log_elm}"

END DEFINE

DELETE TOKEN LOCKON_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN LOCKON_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Acquire lock" -

    "	LOCKON {log_elm}"

END DEFINE

DELETE TOKEN LOG -
    /LANGUAGE="Fortran"
DEFINE TOKEN LOG -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=LOG_FUNCTION

END DEFINE
DELETE TOKEN LOG10 -
    /LANGUAGE="Fortran"
DEFINE TOKEN LOG10 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=LOG10_FUNCTION

END DEFINE
DELETE TOKEN LOGICAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN LOGICAL -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as LOGICAL" -

    "	LOGICAL {name}..."

END DEFINE

DELETE TOKEN LOGICAL1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN LOGICAL1 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as LOGICAL*1" -

    "	LOGICAL*1 {name}..."

END DEFINE

DELETE TOKEN LOGICAL2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN LOGICAL2 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as LOGICAL*2" -

    "	LOGICAL*2 {name}..."

END DEFINE

DELETE TOKEN LOGICAL4 -
    /LANGUAGE="Fortran"
DEFINE TOKEN LOGICAL4 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as LOGICAL*4" -

    "	LOGICAL*4 {name}..."

END DEFINE

DELETE TOKEN MAIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN MAIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=MAIN_PROGRAM_UNIT

END DEFINE
DELETE TOKEN MAIN_HEADER_COMMENTS -
    /LANGUAGE="Fortran"
DEFINE TOKEN MAIN_HEADER_COMMENTS -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=MAIN_HEADER_COMMENTS

END DEFINE
DELETE TOKEN MAP -
    /LANGUAGE="Fortran"
DEFINE TOKEN MAP -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=MAP_STMT

END DEFINE
DELETE TOKEN MAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN MAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=MAX_FUNCTION

END DEFINE
DELETE TOKEN MAX0 -
    /LANGUAGE="Fortran"
DEFINE TOKEN MAX0 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=MAX0_FUNCTION

END DEFINE
DELETE TOKEN MAX1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN MAX1 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=MAX1_FUNCTION

END DEFINE
DELETE TOKEN MAXREC -
    /LANGUAGE="Fortran"
DEFINE TOKEN MAXREC -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=MAXREC

END DEFINE
DELETE TOKEN MIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN MIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=MIN_FUNCTION

END DEFINE
DELETE TOKEN MIN0 -
    /LANGUAGE="Fortran"
DEFINE TOKEN MIN0 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=MIN0_FUNCTION

END DEFINE
DELETE TOKEN MIN1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN MIN1 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=MIN1_FUNCTION

END DEFINE
DELETE TOKEN MOD -
    /LANGUAGE="Fortran"
DEFINE TOKEN MOD -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=MOD_FUNCTION

END DEFINE
DELETE TOKEN MVBITS -
    /LANGUAGE="Fortran"
DEFINE TOKEN MVBITS -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=MVBITS_ROUTINE

END DEFINE
DELETE TOKEN NAMED_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN NAMED_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=NAMED_PAR

END DEFINE
DELETE TOKEN NAMELIST -
    /LANGUAGE="Fortran"
DEFINE TOKEN NAMELIST -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=NAMELIST_STMT

END DEFINE
DELETE TOKEN NAME_OPEN -
    /LANGUAGE="Fortran"
DEFINE TOKEN NAME_OPEN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=NAME_OPEN

END DEFINE
DELETE TOKEN NAME_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN NAME_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=NAME_PAR

END DEFINE
DELETE TOKEN NEXTREC_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN NEXTREC_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=NEXTREC_PAR

END DEFINE
DELETE TOKEN NINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN NINT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=NINT_FUNCTION

END DEFINE
DELETE TOKEN NOSPANBLOCKS -
    /LANGUAGE="Fortran"
DEFINE TOKEN NOSPANBLOCKS -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=NOSPANBLOCKS

END DEFINE
DELETE TOKEN NOT -
    /LANGUAGE="Fortran"
DEFINE TOKEN NOT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=NOT_FUNCTION

END DEFINE
DELETE TOKEN NOVECTOR_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN NOVECTOR_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Do not vectorize following loop at this level" -

    "	NOVECTOR"

END DEFINE

DELETE TOKEN NUMBER_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN NUMBER_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=NUMBER_PAR

END DEFINE
DELETE TOKEN NWORKERS -
    /LANGUAGE="Fortran"
DEFINE TOKEN NWORKERS -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=NWORKERS_ROUTINE

END DEFINE
DELETE TOKEN OPEN -
    /LANGUAGE="Fortran"
DEFINE TOKEN OPEN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=OPEN_STMT

END DEFINE
DELETE TOKEN OPENED_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN OPENED_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=OPENED_PAR

END DEFINE
DELETE TOKEN OPTIONS -
    /LANGUAGE="Fortran"
DEFINE TOKEN OPTIONS -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=OPTIONS_STMT

END DEFINE
DELETE TOKEN ORGANIZATION -
    /LANGUAGE="Fortran"
DEFINE TOKEN ORGANIZATION -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ORGANIZATION

END DEFINE
DELETE TOKEN ORGANIZATION_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN ORGANIZATION_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ORGANIZATION_PAR

END DEFINE
DELETE TOKEN PARAMETER -
    /LANGUAGE="Fortran"
DEFINE TOKEN PARAMETER -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=PARAMETER_STMT

END DEFINE
DELETE TOKEN PAUSE -
    /LANGUAGE="Fortran"
DEFINE TOKEN PAUSE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=PAUSE_STMT

END DEFINE
DELETE TOKEN POINTER -
    /LANGUAGE="Fortran"
DEFINE TOKEN POINTER -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=POINTER_STMT

END DEFINE
DELETE TOKEN PRINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN PRINT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=PRINT_STMT

END DEFINE
DELETE TOKEN PRINT1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN PRINT1 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="PRINT {fmt}, [io_elm]..." -

    "	PRINT {fmt}, [io_elm]..."

END DEFINE

DELETE TOKEN PRINT2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN PRINT2 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="PRINT *, [io_elm]..." -

    "	PRINT *, [io_elm]..."

END DEFINE

DELETE TOKEN PRINT3 -
    /LANGUAGE="Fortran"
DEFINE TOKEN PRINT3 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="PRINT {grp_name}" -

    "	PRINT {grp_name}"

END DEFINE

DELETE TOKEN PRIVATE_ALL_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN PRIVATE_ALL_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Set default allocation to PRIVATE" -

    "	PRIVATE_ALL"

END DEFINE

DELETE TOKEN PRIVATE_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN PRIVATE_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Specify private allocation" -

    "	PRIVATE {par_var}..."

END DEFINE

DELETE TOKEN PROGRAM -
    /LANGUAGE="Fortran"
DEFINE TOKEN PROGRAM -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=PROGRAM_STMT

END DEFINE
DELETE TOKEN PROGRAM_UNIT -
    /LANGUAGE="Fortran"
DEFINE TOKEN PROGRAM_UNIT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=PROGRAM_UNIT

END DEFINE
DELETE TOKEN PSECT_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN PSECT_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Specify PSECT attributes" -

    "	PSECT /{common_blk_name}/ {pattr}..."

END DEFINE

DELETE TOKEN QABS -
    /LANGUAGE="Fortran"
DEFINE TOKEN QABS -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QABS ({r16arg})"

END DEFINE

DELETE TOKEN QACOS -
    /LANGUAGE="Fortran"
DEFINE TOKEN QACOS -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QACOS ({r16arg})"

END DEFINE

DELETE TOKEN QACOSD -
    /LANGUAGE="Fortran"
DEFINE TOKEN QACOSD -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QACOSD ({r16arg})"

END DEFINE

DELETE TOKEN QASIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN QASIN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QASIN ({r16arg})"

END DEFINE

DELETE TOKEN QASIND -
    /LANGUAGE="Fortran"
DEFINE TOKEN QASIND -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QASIND ({r16arg})"

END DEFINE

DELETE TOKEN QATAN -
    /LANGUAGE="Fortran"
DEFINE TOKEN QATAN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QATAN ({r16arg})"

END DEFINE

DELETE TOKEN QATAN2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN QATAN2 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 arguments, REAL*16 result" -

    "	QATAN2 ({r16arg},{r16arg})"

END DEFINE

DELETE TOKEN QATAN2D -
    /LANGUAGE="Fortran"
DEFINE TOKEN QATAN2D -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 arguments, REAL*16 result" -

    "	QATAND ({r16arg},{r16arg})"

END DEFINE

DELETE TOKEN QATAND -
    /LANGUAGE="Fortran"
DEFINE TOKEN QATAND -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QATAND ({r16arg})"

END DEFINE

DELETE TOKEN QCOS -
    /LANGUAGE="Fortran"
DEFINE TOKEN QCOS -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QCOS ({r16arg})"

END DEFINE

DELETE TOKEN QCOSD -
    /LANGUAGE="Fortran"
DEFINE TOKEN QCOSD -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result (degrees)" -

    "	QCOSD ({r16arg})"

END DEFINE

DELETE TOKEN QCOSH -
    /LANGUAGE="Fortran"
DEFINE TOKEN QCOSH -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QCOSH ({r16arg})"

END DEFINE

DELETE TOKEN QDIM -
    /LANGUAGE="Fortran"
DEFINE TOKEN QDIM -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 arguments and result" -

    "	QDIM ({r16arg},{r16arg})"

END DEFINE

DELETE TOKEN QEXP -
    /LANGUAGE="Fortran"
DEFINE TOKEN QEXP -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QEXP ({r16arg})"

END DEFINE

DELETE TOKEN QEXT -
    /LANGUAGE="Fortran"
DEFINE TOKEN QEXT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER,REAL or COMPLEX argument" -

    "	QEXT({arg})"

END DEFINE

DELETE TOKEN QEXTD -
    /LANGUAGE="Fortran"
DEFINE TOKEN QEXTD -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8, REAL*16 or COMPLEX argument" -

    "	QEXTD({r8arg})"

END DEFINE

DELETE TOKEN QFLOAT -
    /LANGUAGE="Fortran"
DEFINE TOKEN QFLOAT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=QFLOAT_FUNCTION

END DEFINE
DELETE TOKEN QINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN QINT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QINT({r16arg})"

END DEFINE

DELETE TOKEN QLOG -
    /LANGUAGE="Fortran"
DEFINE TOKEN QLOG -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QLOG ({r16arg})"

END DEFINE

DELETE TOKEN QLOG10 -
    /LANGUAGE="Fortran"
DEFINE TOKEN QLOG10 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QLOG10 ({r16arg})"

END DEFINE

DELETE TOKEN QMAX1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN QMAX1 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument and result" -

    "	QMAX1 ({r16arg}...)"

END DEFINE

DELETE TOKEN QMIN1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN QMIN1 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument and result" -

    "	QMIN1 ({r16arg}...)"

END DEFINE

DELETE TOKEN QMOD -
    /LANGUAGE="Fortran"
DEFINE TOKEN QMOD -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 arguments and result" -

    "	QMOD ({r16arg},{r16arg})"

END DEFINE

DELETE TOKEN QNINT -
    /LANGUAGE="Fortran"
DEFINE TOKEN QNINT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QNINT({r16arg})"

END DEFINE

DELETE TOKEN QSIGN -
    /LANGUAGE="Fortran"
DEFINE TOKEN QSIGN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="INTEGER*16 argument and result" -

    "	QSIGN ({r16arg}, {r16arg})"

END DEFINE

DELETE TOKEN QSIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN QSIN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QSIN ({r16arg})"

END DEFINE

DELETE TOKEN QSIND -
    /LANGUAGE="Fortran"
DEFINE TOKEN QSIND -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result (degrees)" -

    "	QSIND ({r16arg})"

END DEFINE

DELETE TOKEN QSINH -
    /LANGUAGE="Fortran"
DEFINE TOKEN QSINH -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QSINH ({r16arg})"

END DEFINE

DELETE TOKEN QSQRT -
    /LANGUAGE="Fortran"
DEFINE TOKEN QSQRT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QSSQRT ({r16arg})"

END DEFINE

DELETE TOKEN QTAN -
    /LANGUAGE="Fortran"
DEFINE TOKEN QTAN -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result" -

    "	QTAN ({r16arg})"

END DEFINE

DELETE TOKEN QTAND -
    /LANGUAGE="Fortran"
DEFINE TOKEN QTAND -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 argument, REAL*16 result (degrees)" -

    "	QTAND ({r16arg})"

END DEFINE

DELETE TOKEN QTANH -
    /LANGUAGE="Fortran"
DEFINE TOKEN QTANH -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="" -

    "	QTANH ({r16arg})"

END DEFINE

DELETE TOKEN RAN -
    /LANGUAGE="Fortran"
DEFINE TOKEN RAN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=RAN_ROUTINE

END DEFINE
DELETE TOKEN READ -
    /LANGUAGE="Fortran"
DEFINE TOKEN READ -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=READ_STMT

END DEFINE
DELETE TOKEN READONLY -
    /LANGUAGE="Fortran"
DEFINE TOKEN READONLY -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=READONLY

END DEFINE
DELETE TOKEN REAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN REAL -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as REAL" -

    "	REAL {name}..."

END DEFINE

DELETE TOKEN REAL16 -
    /LANGUAGE="Fortran"
DEFINE TOKEN REAL16 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as REAL*16" -

    "	REAL*16 {name}..."

END DEFINE

DELETE TOKEN REAL4 -
    /LANGUAGE="Fortran"
DEFINE TOKEN REAL4 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as REAL*4" -

    "	REAL*4 {name}..."

END DEFINE

DELETE TOKEN REAL8 -
    /LANGUAGE="Fortran"
DEFINE TOKEN REAL8 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Declare as REAL*8" -

    "	REAL*8 {name}..."

END DEFINE

DELETE TOKEN REAL_FUNC -
    /LANGUAGE="Fortran"
DEFINE TOKEN REAL_FUNC -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=REAL_FUNCTION

END DEFINE
DELETE TOKEN RECL -
    /LANGUAGE="Fortran"
DEFINE TOKEN RECL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=RECL

END DEFINE
DELETE TOKEN RECL_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN RECL_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=RECL_PAR

END DEFINE
DELETE TOKEN RECORD -
    /LANGUAGE="Fortran"
DEFINE TOKEN RECORD -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=RECORD_DECL

END DEFINE
DELETE TOKEN RECORDSIZE -
    /LANGUAGE="Fortran"
DEFINE TOKEN RECORDSIZE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=RECORDSIZE

END DEFINE
DELETE TOKEN RECORDTYPE -
    /LANGUAGE="Fortran"
DEFINE TOKEN RECORDTYPE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=RECORDTYPE

END DEFINE
DELETE TOKEN RECORDTYPE_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN RECORDTYPE_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=RECORDTYPE_PAR

END DEFINE
DELETE TOKEN RETURN -
    /LANGUAGE="Fortran"
DEFINE TOKEN RETURN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=RETURN_STMT

END DEFINE
DELETE TOKEN REWIND -
    /LANGUAGE="Fortran"
DEFINE TOKEN REWIND -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=REWIND_STMT

END DEFINE
DELETE TOKEN REWRITE -
    /LANGUAGE="Fortran"
DEFINE TOKEN REWRITE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=REWRITE_OPTS

END DEFINE
DELETE TOKEN SAMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN SAMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SAMAX_ROUTINE

END DEFINE
DELETE TOKEN SAMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN SAMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SAMIN_ROUTINE

END DEFINE
DELETE TOKEN SASUM -
    /LANGUAGE="Fortran"
DEFINE TOKEN SASUM -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SASUM_ROUTINE

END DEFINE
DELETE TOKEN SAVE -
    /LANGUAGE="Fortran"
DEFINE TOKEN SAVE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SAVE_STMT

END DEFINE
DELETE TOKEN SAXPY -
    /LANGUAGE="Fortran"
DEFINE TOKEN SAXPY -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SAXPY_ROUTINE

END DEFINE
DELETE TOKEN SCNORM2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN SCNORM2 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SCNORM2_ROUTINE

END DEFINE
DELETE TOKEN SCNRM2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN SCNRM2 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SCNRM2_ROUTINE

END DEFINE
DELETE TOKEN SCNRSQ -
    /LANGUAGE="Fortran"
DEFINE TOKEN SCNRSQ -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SCNRSQ_ROUTINE

END DEFINE
DELETE TOKEN SCOPY -
    /LANGUAGE="Fortran"
DEFINE TOKEN SCOPY -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SCOPY_ROUTINE

END DEFINE
DELETE TOKEN SDOT -
    /LANGUAGE="Fortran"
DEFINE TOKEN SDOT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SDOT_ROUTINE

END DEFINE
DELETE TOKEN SECNDS -
    /LANGUAGE="Fortran"
DEFINE TOKEN SECNDS -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SECNDS_ROUTINE

END DEFINE
DELETE TOKEN SEQUENTIAL_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN SEQUENTIAL_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SEQUENTIAL_PAR

END DEFINE
DELETE TOKEN SHARED -
    /LANGUAGE="Fortran"
DEFINE TOKEN SHARED -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SHARED

END DEFINE
DELETE TOKEN SHARED_ALL_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN SHARED_ALL_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Set default allocation to SHARED" -

    "	SHARED_ALL"

END DEFINE

DELETE TOKEN SHARED_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN SHARED_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Specify shared allocation" -

    "	SHARED {common_blk}..."

END DEFINE

DELETE TOKEN SIGN -
    /LANGUAGE="Fortran"
DEFINE TOKEN SIGN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SIGN_FUNCTION

END DEFINE
DELETE TOKEN SIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN SIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SIN_FUNCTION

END DEFINE
DELETE TOKEN SIND -
    /LANGUAGE="Fortran"
DEFINE TOKEN SIND -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*4 argument, REAL*4 result (degrees)" -

    "	SIND ({r4arg})"

END DEFINE

DELETE TOKEN SINH -
    /LANGUAGE="Fortran"
DEFINE TOKEN SINH -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SINH_FUNCTION

END DEFINE
DELETE TOKEN SIZEOF -
    /LANGUAGE="Fortran"
DEFINE TOKEN SIZEOF -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SIZEOF_ROUTINE

END DEFINE
DELETE TOKEN SMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN SMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SMAX_ROUTINE

END DEFINE
DELETE TOKEN SMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN SMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SMIN_ROUTINE

END DEFINE
DELETE TOKEN SNGL -
    /LANGUAGE="Fortran"
DEFINE TOKEN SNGL -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*8 argument" -

    "	SNGL({r8arg})"

END DEFINE

DELETE TOKEN SNGLQ -
    /LANGUAGE="Fortran"
DEFINE TOKEN SNGLQ -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="REAL*16 or COMPLEX argument" -

    "	SNGLQ({real_arg})"

END DEFINE

DELETE TOKEN SNORM2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN SNORM2 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SNORM2_ROUTINE

END DEFINE
DELETE TOKEN SNRM2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN SNRM2 -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SNRM2_ROUTINE

END DEFINE
DELETE TOKEN SNRSQ -
    /LANGUAGE="Fortran"
DEFINE TOKEN SNRSQ -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SNRSQ_ROUTINE

END DEFINE
DELETE TOKEN SPECIFICATION_STATEMENT -
    /LANGUAGE="Fortran"
DEFINE TOKEN SPECIFICATION_STATEMENT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SPECIFICATION_STATEMENT

END DEFINE
DELETE TOKEN SQRT -
    /LANGUAGE="Fortran"
DEFINE TOKEN SQRT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SQRT_FUNCTION

END DEFINE
DELETE TOKEN SROT -
    /LANGUAGE="Fortran"
DEFINE TOKEN SROT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SROT_ROUTINE

END DEFINE
DELETE TOKEN SROTG -
    /LANGUAGE="Fortran"
DEFINE TOKEN SROTG -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SROTG_ROUTINE

END DEFINE
DELETE TOKEN SSCAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN SSCAL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SSCAL_ROUTINE

END DEFINE
DELETE TOKEN SSET -
    /LANGUAGE="Fortran"
DEFINE TOKEN SSET -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SSET_ROUTINE

END DEFINE
DELETE TOKEN SSUM -
    /LANGUAGE="Fortran"
DEFINE TOKEN SSUM -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SSUM_ROUTINE

END DEFINE
DELETE TOKEN SSWAP -
    /LANGUAGE="Fortran"
DEFINE TOKEN SSWAP -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SSWAP_ROUTINE

END DEFINE
DELETE TOKEN STATUS_OPEN -
    /LANGUAGE="Fortran"
DEFINE TOKEN STATUS_OPEN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=STATUS_OPEN

END DEFINE
DELETE TOKEN STOP -
    /LANGUAGE="Fortran"
DEFINE TOKEN STOP -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=STOP_STMT

END DEFINE
DELETE TOKEN STRUCTURE -
    /LANGUAGE="Fortran"
DEFINE TOKEN STRUCTURE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=STRUCTURE

END DEFINE
DELETE TOKEN SUBROUTINE -
    /LANGUAGE="Fortran"
DEFINE TOKEN SUBROUTINE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SUBROUTINE_PROGRAM_UNIT

END DEFINE
DELETE TOKEN SUBROUTINE_HEADER_COMMENTS -
    /LANGUAGE="Fortran"
DEFINE TOKEN SUBROUTINE_HEADER_COMMENTS -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SUBROUTINE_HEADER_COMMENTS

END DEFINE
DELETE TOKEN SUBTITLE_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN SUBTITLE_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Specify subtitle text" -

    "	SUBTITLE '{string}'"

END DEFINE

DELETE TOKEN SVCAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN SVCAL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SVCAL_ROUTINE

END DEFINE
DELETE TOKEN SZAXPY -
    /LANGUAGE="Fortran"
DEFINE TOKEN SZAXPY -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=SZAXPY_ROUTINE

END DEFINE
DELETE TOKEN TAN -
    /LANGUAGE="Fortran"
DEFINE TOKEN TAN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=TAN_FUNCTION

END DEFINE
DELETE TOKEN TAND -
    /LANGUAGE="Fortran"
DEFINE TOKEN TAND -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=TAND_FUNCTION

END DEFINE
DELETE TOKEN TANH -
    /LANGUAGE="Fortran"
DEFINE TOKEN TANH -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=TANH_FUNCTION

END DEFINE
DELETE TOKEN TIME -
    /LANGUAGE="Fortran"
DEFINE TOKEN TIME -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=TIME_ROUTINE

END DEFINE
DELETE TOKEN TITLE_DIR -
    /LANGUAGE="Fortran"
DEFINE TOKEN TITLE_DIR -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Specify title text" -

    "	TITLE '{string}'"

END DEFINE

DELETE TOKEN TYPE -
    /LANGUAGE="Fortran"
DEFINE TOKEN TYPE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=TYPE_STMT

END DEFINE
DELETE TOKEN TYPE1 -
    /LANGUAGE="Fortran"
DEFINE TOKEN TYPE1 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Formatted TYPE statement" -

    "	TYPE {fmt}, [io_elm]..."

END DEFINE

DELETE TOKEN TYPE2 -
    /LANGUAGE="Fortran"
DEFINE TOKEN TYPE2 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="List-directed TYPE statement" -

    "	TYPE *, [io_elm]..."

END DEFINE

DELETE TOKEN TYPE3 -
    /LANGUAGE="Fortran"
DEFINE TOKEN TYPE3 -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Namelist-directed TYPE statement" -

    "	TYPE {grp_name}"

END DEFINE

DELETE TOKEN TYPED_PARAMETER_STMT -
    /LANGUAGE="Fortran"
DEFINE TOKEN TYPED_PARAMETER_STMT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Fortran-77 typed PARAMETER statement" -

    "	PARAMETER ({parameter_list})"

END DEFINE

DELETE TOKEN UNFORMATTED_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN UNFORMATTED_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=UNFORMATTED_PAR

END DEFINE
DELETE TOKEN UNION -
    /LANGUAGE="Fortran"
DEFINE TOKEN UNION -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=UNION_STMT

END DEFINE
DELETE TOKEN UNIT_PAR -
    /LANGUAGE="Fortran"
DEFINE TOKEN UNIT_PAR -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=UNIT_PAR

END DEFINE
DELETE TOKEN UNLOCK -
    /LANGUAGE="Fortran"
DEFINE TOKEN UNLOCK -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=UNLOCK_STMT

END DEFINE
DELETE TOKEN UNTYPED_PARAMETER_STMT -
    /LANGUAGE="Fortran"
DEFINE TOKEN UNTYPED_PARAMETER_STMT -
    /LANGUAGE="Fortran" -
    /DESCRIPTION="Untyped PARAMETER statement" -

    "	PARAMETER {parameter_list}"

END DEFINE

DELETE TOKEN USEROPEN -
    /LANGUAGE="Fortran"
DEFINE TOKEN USEROPEN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=USEROPEN

END DEFINE
DELETE TOKEN VIRTUAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN VIRTUAL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=VIRTUAL_STMT

END DEFINE
DELETE TOKEN VOLATILE -
    /LANGUAGE="Fortran"
DEFINE TOKEN VOLATILE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=VOLATILE_STMT

END DEFINE
DELETE TOKEN WRITE -
    /LANGUAGE="Fortran"
DEFINE TOKEN WRITE -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=WRITE_STMT

END DEFINE
DELETE TOKEN ZAMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZAMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZAMAX_ROUTINE

END DEFINE
DELETE TOKEN ZAMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZAMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZAMIN_ROUTINE

END DEFINE
DELETE TOKEN ZAXPY -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZAXPY -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZAXPY_ROUTINE

END DEFINE
DELETE TOKEN ZCOPY -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZCOPY -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZCOPY_ROUTINE

END DEFINE
DELETE TOKEN ZDOTC -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZDOTC -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZDOTC_ROUTINE

END DEFINE
DELETE TOKEN ZDOTU -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZDOTU -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZDOTU_ROUTINE

END DEFINE
DELETE TOKEN ZDROT -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZDROT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZDROT_ROUTINE

END DEFINE
DELETE TOKEN ZDSCAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZDSCAL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZDSCAL_ROUTINE

END DEFINE
DELETE TOKEN ZDVCAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZDVCAL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZDVCAL_ROUTINE

END DEFINE
DELETE TOKEN ZEXT -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZEXT -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZEXT_FUNCTION

END DEFINE
DELETE TOKEN ZMAX -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZMAX -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZMAX_ROUTINE

END DEFINE
DELETE TOKEN ZMIN -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZMIN -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZMIN_ROUTINE

END DEFINE
DELETE TOKEN ZROTG -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZROTG -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZROTG_ROUTINE

END DEFINE
DELETE TOKEN ZSCAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZSCAL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZSCAL_ROUTINE

END DEFINE
DELETE TOKEN ZSET -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZSET -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZSET_ROUTINE

END DEFINE
DELETE TOKEN ZSUM -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZSUM -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZSUM_ROUTINE

END DEFINE
DELETE TOKEN ZSWAP -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZSWAP -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZSWAP_ROUTINE

END DEFINE
DELETE TOKEN ZVCAL -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZVCAL -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZVCAL_ROUTINE

END DEFINE
DELETE TOKEN ZZAXPY -
    /LANGUAGE="Fortran"
DEFINE TOKEN ZZAXPY -
    /LANGUAGE="Fortran" -
    /PLACEHOLDER=ZZAXPY_ROUTINE
END DEFINE