!
! 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 F90 on the mainframe.
! It might not comform exactly to the F90 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 "F90"
DEFINE LANGUAGE "F90" -
    /VALID_IDENTIFIER_CHARACTERS="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890$_" -
    /INITIAL_STRING="[program_unit]..." -
    /PUNCTUATION_CHARACTERS=".(),':*/" -
    /INDENT_SIZE=4 -
    /VERSION="V7.0" -

END DEFINE
DELETE PLACEHOLDER "(EXPLICIT_SHAPE_LIST)" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "(EXPLICIT_SHAPE_LIST)" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "({explicit_shape})"

END DEFINE

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

    "({arg}...)"

END DEFINE

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

    "({exit_status})"

END DEFINE

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

    "POSIT"/PLACEHOLDER
    "MINUS"/PLACEHOLDER

END DEFINE

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

    ","

END DEFINE

DELETE PLACEHOLDER ", ACCESS_SPEC ::" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ", ACCESS_SPEC ::" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    ", {access_spec} ::"

END DEFINE

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

    ", END={lbl}"

END DEFINE

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

    ", EOR={lbl}"

END DEFINE

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

    ", ERR={lbl}"

END DEFINE

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

    ", IOSTAT={ios}"

END DEFINE

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

    ", KEYID={integer_exp}"

END DEFINE

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

    "LEN={len}"

END DEFINE

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

    ", {logical_exp}"

END DEFINE

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

    ", REC={record_spec}"

END DEFINE

DELETE PLACEHOLDER ", RENAME_LIST" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ", RENAME_LIST" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="List of local and corresponding module names of module entities" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    ", {rename}..."

END DEFINE

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

    ", SIZE={size}"

END DEFINE

DELETE PLACEHOLDER ", STAT=INTEGER_VAR" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ", STAT=INTEGER_VAR" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    ", STAT={integer_var}"

END DEFINE

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

    ", {integer_exp}"

END DEFINE

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

    ",{logical_exp}"

END DEFINE

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

    ",{any_array_arg}"

END DEFINE

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

    ",{integer_arg}"

END DEFINE

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

    ",{integer_var}"

END DEFINE

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

    ",{log_kind_val}"

END DEFINE

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

    ",{mask}"

END DEFINE

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

    ",{integer_array_name}"

END DEFINE

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

    ",{any_array_arg}"

END DEFINE

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

    ",{target_part}"

END DEFINE

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

    ",{char_var}"

END DEFINE

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

    ",{integer_array_name}"

END DEFINE

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

    ",{vector}"

END DEFINE

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

    ",{char_var}"

END DEFINE

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

    ",{arith_exp}"

END DEFINE

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

    "-{alpha}"

END DEFINE

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

    ".NOT."

END DEFINE

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

    ".{composite_field_name}"

END DEFINE

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

    "/"

END DEFINE

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

    "//{char_elm}"

END DEFINE

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

    "/{structure_decl_name}/"

END DEFINE

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

    ": {stride}"

END DEFINE

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

    "::"

END DEFINE

DELETE PLACEHOLDER ":UPPER_VALS" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ":UPPER_VALS" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=": case_val" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    ": {case_val}"

END DEFINE

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

    ":{kdirection}"

END DEFINE

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

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

END DEFINE

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

    "ABS ({arg})"

END DEFINE

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

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

END DEFINE

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

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

END DEFINE

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

    "ACCESS = {access_options}"

END DEFINE

DELETE PLACEHOLDER ACCESS_ID -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ACCESS_ID -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="access identifier" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "use_name"/PLACEHOLDER
    "generic_spec"/PLACEHOLDER

END DEFINE

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

    ":: {access_id}..."

END DEFINE

DELETE PLACEHOLDER ACCESS_OPTIONS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ACCESS_OPTIONS -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER ACCESS_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ACCESS = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ACCESS = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER ACCESS_SPEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ACCESS_SPEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ACCESS attribute" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "PUBLIC_attr" /TOKEN
    "PRIVATE_attr" /TOKEN

END DEFINE

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

    "ACCURACY_SENSITIVE"

END DEFINE

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

    "accuracy_sensitive"/PLACEHOLDER
    "noaccuracy_sensitive"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER ACHAR_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ACHAR_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ACHAR function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ACHAR({var})"

END DEFINE

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

    "ACOS({arg})"

END DEFINE

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

    "acos"/PLACEHOLDER
    "acosd" /TOKEN

END DEFINE

DELETE PLACEHOLDER ACTION -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ACTION -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Action options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "read"/PLACEHOLDER
    "write"/PLACEHOLDER
    "readwrite"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER ACTION_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ACTION_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ACTION = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ACTION = {char_scalar}"

END DEFINE

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

    "+"

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER ADJUSTL_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ADJUSTL_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ADJUSTL function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ADJUSTL({char_exp})"

END DEFINE

DELETE PLACEHOLDER ADJUSTR_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ADJUSTR_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ADJUSTR function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ADJUSTR({char_exp})"

END DEFINE

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

    "int_cons"/PLACEHOLDER
    "real4_cons"/PLACEHOLDER
    "real8_cons"/PLACEHOLDER
    "dbl_prec_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 AIMAG_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER AIMAG_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Imaginary part function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "AIMAG({complex_arg})"

END DEFINE

DELETE PLACEHOLDER AINT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER AINT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Truncation producing REAL whole number" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "AINT({real_or_complex_arg}[,][real_kind_val])"

END DEFINE

DELETE PLACEHOLDER ALIAS_ATTRIBUTE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ALIAS_ATTRIBUTE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Specify alternate name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ALIAS : {external_name} : {internal_name}"

END DEFINE

DELETE PLACEHOLDER ALIAS_VAL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ALIAS_VAL -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "name"/PLACEHOLDER
    "'{string}'"

END DEFINE

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

    "record_alignment" /TOKEN
    "common_alignment" /TOKEN

END DEFINE

DELETE PLACEHOLDER ALIGN_VAL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ALIGN_VAL -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "ALIGN_cons" /TOKEN
    "BYTE"
    "WORD"
    "LONG"
    "QUAD"
    "OCTA"
    "PAGE"

END DEFINE

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

    "ALL"

END DEFINE

DELETE PLACEHOLDER ALLOCATABLE_SPEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ALLOCATABLE_SPEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Allocatable specification" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "{array_name}[alloc_dec]"

END DEFINE

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

    "ALLOCATE ({allocation_elm}... [, STAT=integer_var])"

END DEFINE

DELETE PLACEHOLDER ALLOCATED_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ALLOCATED_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ALLOCATED function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ALLOCATED({any_array_arg})"

END DEFINE

DELETE PLACEHOLDER ALLOCATE_OBJECT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ALLOCATE_OBJECT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A variable name or structure component."

END DEFINE

DELETE PLACEHOLDER ALLOCATION_ELM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ALLOCATION_ELM -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Allocation element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "{allocate_object}[(explicit_shape_list)]"

END DEFINE

DELETE PLACEHOLDER ALLOC_DEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ALLOC_DEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Allocatable declarator" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "({deferred_shape_spec}...)"

END DEFINE

DELETE PLACEHOLDER ALLOC_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ALLOC_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ALLOCATABLE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ALLOCATABLE :: {allocatable_spec}..."

END DEFINE

DELETE PLACEHOLDER ALL_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ALL_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ALL function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ALL({mask})"

END DEFINE

DELETE PLACEHOLDER ALPHA -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ALPHA -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER ALPHA_SPECIFICATION -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Alphabetic specification" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=NONTERMINAL -

    "{alpha}[-{alpha}]"

END DEFINE

DELETE PLACEHOLDER ALTERNATE_RETURN -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ALTERNATE_RETURN -
    /LANGUAGE="F90" -
    /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 AND -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER AND -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=".AND." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    ".AND."

END DEFINE

DELETE PLACEHOLDER AND_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER AND_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic AND function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "AND ({arg}, {arg})"

END DEFINE

DELETE PLACEHOLDER ANINT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ANINT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Nearest Real (ANINT) Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ANINT({real_arg}[,][real_kind_val])"

END DEFINE

DELETE PLACEHOLDER ANY_ARRAY_ARG -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ANY_ARRAY_ARG -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Any array."

END DEFINE

DELETE PLACEHOLDER ANY_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ANY_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ANY function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ANY({mask})"

END DEFINE

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

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

END DEFINE

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

    "'APOSTROPHE'"

END DEFINE

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

    "'APPEND'"

END DEFINE

DELETE PLACEHOLDER ARG -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ARG -
    /LANGUAGE="F90" -
    /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 "ARG_LIST [RESULT_PART]" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "ARG_LIST [RESULT_PART]" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "([p]...) [result_part]"

END DEFINE

DELETE PLACEHOLDER ARITH_ARRAY_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ARITH_ARRAY_NAME -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER ARITH_ARRAY_REF -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arithmetic Array reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

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

END DEFINE

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

    "arith_var"/PLACEHOLDER
    "arith_array_ref"/PLACEHOLDER

END DEFINE

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

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

END DEFINE

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

    "({arith_exp})"

END DEFINE

DELETE PLACEHOLDER ARITH_FUNC_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ARITH_FUNC_NAME -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER ARITH_FUNC_REF -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Arithmetic function reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

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

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER ARRAY_ARG -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ARRAY_ARG -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer or real array."

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER "ARRAY_ELEMENT/SECTION" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "ARRAY_ELEMENT/SECTION" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An array element or array section."

END DEFINE

DELETE PLACEHOLDER ARRAY_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ARRAY_NAME -
    /LANGUAGE="F90" -
    /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

END DEFINE

DELETE PLACEHOLDER ARRAY_REF -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ARRAY_REF -
    /LANGUAGE="F90" -
    /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 ARRAY_VAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ARRAY_VAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An array variable."

END DEFINE

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

    "ASCENDING"

END DEFINE

DELETE PLACEHOLDER ASIN -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ASIN -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Arc Sine Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ASIN ({arg})"

END DEFINE

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

    "asin"/PLACEHOLDER
    "asind" /TOKEN

END DEFINE

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

    "'ASIS'"

END DEFINE

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

    "ASSERTIONS"

END DEFINE

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

    "ASSERTIONS"/PLACEHOLDER
    "NOASSERTIONS"/PLACEHOLDER

END DEFINE

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

    "ASSERT ({logical_exp})"

END DEFINE

DELETE PLACEHOLDER ASSIGNMENT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ASSIGNMENT -
    /LANGUAGE="F90" -
    /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 ASSIGNMENT_SPEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ASSIGNMENT_SPEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ASSIGNMENT(=)" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ASSIGNMENT (=)"

END DEFINE

DELETE PLACEHOLDER ASSOCIATED_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ASSOCIATED_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ASSOCIATED function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ASSOCIATED({pointer_part}[,target])"

END DEFINE

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

    "ASSOCIATEVARIABLE = {integer_var}"

END DEFINE

DELETE PLACEHOLDER ASSUMED_SHAPE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ASSUMED_SHAPE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Assumed shape specification" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{[bounds_exp] :}..."

END DEFINE

DELETE PLACEHOLDER ASSUMED_SIZE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ASSUMED_SIZE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Assumed size specification" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "[explicit_shape ,] [bounds_exp :] *"

END DEFINE

DELETE PLACEHOLDER ASSUME_QUAL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ASSUME_QUAL -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER ATAN -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Arc Tangent Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ATAN ({arg})"

END DEFINE

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

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

END DEFINE

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

    "atan2"/PLACEHOLDER
    "atan2d" /TOKEN

END DEFINE

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

    "atan"/PLACEHOLDER
    "atand" /TOKEN

END DEFINE

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

    "C_attribute" /TOKEN
    "ALIAS_attribute"/PLACEHOLDER
    "REFERENCE_attribute" /TOKEN
    "VALUE_attribute" /TOKEN

END DEFINE

DELETE PLACEHOLDER ATTRIBUTES -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ATTRIBUTES -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Declaration attribute" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=MENU -

    "PARAMETER_attr" /TOKEN
    "access_spec"/PLACEHOLDER
    "ALLOCATABLE_attr" /TOKEN
    "DIMENSION_attr" /TOKEN
    "ARRAY_attr" /TOKEN
    "EXTERNAL_attr" /TOKEN
    "INTENT_attr" /TOKEN
    "INTRINSIC_attr" /TOKEN
    "OPTIONAL_attr" /TOKEN
    "POINTER_attr" /TOKEN
    "SAVE_attr" /TOKEN
    "TARGET_attr" /TOKEN

END DEFINE

DELETE PLACEHOLDER ATTRIBUTE_LIST -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ATTRIBUTE_LIST -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="List of attributes" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    ", {attributes}..."

END DEFINE

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

    "common_block_ref"/PLACEHOLDER
    "name"/PLACEHOLDER

END DEFINE

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

    "AUTOMATIC {name}..."

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER BIG_ENDIAN -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER BIG_ENDIAN -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Big-endian IEEE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'BIG_ENDIAN'"

END DEFINE

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

    "B'{bin_dig}...'"

END DEFINE

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

    "Binary digit - 0 or 1"

END DEFINE

DELETE PLACEHOLDER BIT_SIZE_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER BIT_SIZE_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BIT_SIZE function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "BIT_SIZE({integer_arg})"

END DEFINE

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

    "BLANK = {blank_options}"

END DEFINE

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

    "null"/PLACEHOLDER
    "zero"/PLACEHOLDER

END DEFINE

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

    "BLANK = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER "BLOCK DATA [NAME]" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "BLOCK DATA [NAME]" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "BLOCK DATA [name]"

END DEFINE

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

    "[options_stmt]"
    "BLOCK DATA [name]"
    " "
    "![block_data_header_comments]"
    "[use_stmt]..."
    "[implicit_stmt]"
    "[specification_statement]..."
    "END [BLOCK DATA [name]]"
    " "

END DEFINE

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

    "BLOCKSIZE = {arith_exp}"

END DEFINE

DELETE PLACEHOLDER BLOCK_DATA_HEADER_COMMENTS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER BLOCK_DATA_HEADER_COMMENTS -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER BN -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BN" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "BN"

END DEFINE

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

    "BOUNDS"

END DEFINE

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

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

END DEFINE

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

    "{bounds_exp} :"

END DEFINE

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

    "BOUNDS"/PLACEHOLDER
    "NOBOUNDS"/PLACEHOLDER

END DEFINE

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

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

END DEFINE

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

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

END DEFINE

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

    "BUFFERCOUNT = {arith_exp}"

END DEFINE

DELETE PLACEHOLDER BUILT_IN_FUNCTIONS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER BUILT_IN_FUNCTIONS -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER BYTE_TYPE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="BYTE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "BYTE"

END DEFINE

DELETE PLACEHOLDER BYTE_VAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER BYTE_VAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Byte variable" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Byte variable"

END DEFINE

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

    "BZ"

END DEFINE

DELETE PLACEHOLDER B_CODE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER B_CODE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="B{width}.[min_char]" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

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

END DEFINE

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

    "BN"/PLACEHOLDER
    "BZ"/PLACEHOLDER

END DEFINE

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

    "A COMPLEX*16 argument"

END DEFINE

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

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

END DEFINE

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

    "CARRIAGECONTROL = {carr_options}"

END DEFINE

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

    "CARRIAGECONTROL = {char_scalar}"

END DEFINE

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

    "'LIST'"

END DEFINE

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

    "'NONE'"

END DEFINE

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

    "fortran"/PLACEHOLDER
    "carr_list"/PLACEHOLDER
    "carr_none"/PLACEHOLDER

END DEFINE

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

    "[name :]"
    "    SELECT CASE ({case_expr})"
    "    [case_selector_block]..."
    "    END SELECT [name]"

END DEFINE

DELETE PLACEHOLDER CASE_EXPR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CASE_EXPR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Case expression" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "integer_exp"/PLACEHOLDER
    "char_exp"/PLACEHOLDER
    "logical_exp"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER CASE_RANGE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CASE_RANGE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CASE ranges" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=MENU -

    "single_case_val"/PLACEHOLDER
    "lower:upper_vals"/PLACEHOLDER
    ":upper_vals"/PLACEHOLDER
    "lower:_vals"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER CASE_SELECTOR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CASE_SELECTOR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="range or default" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "case_value_range_list"/PLACEHOLDER
    "DEFAULT" /TOKEN

END DEFINE

DELETE PLACEHOLDER CASE_SELECTOR_BLOCK -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CASE_SELECTOR_BLOCK -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Case selection" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "CASE {case_selector} [name]"
    "     	  {executable_statement}..."

END DEFINE

DELETE PLACEHOLDER CASE_VAL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CASE_VAL -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Value agreeing with the case_expr value."

END DEFINE

DELETE PLACEHOLDER CASE_VALUE_RANGE_LIST -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CASE_VALUE_RANGE_LIST -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="List of acceptable values for this CASE selection" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "({case_range}...)"

END DEFINE

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

    "!DEC$	{cdec_dir}"

END DEFINE

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

    "ALIAS_dir" /TOKEN
    "ATTRIBUTES_dir" /TOKEN
    "END_ATTRIBUTES_dir" /TOKEN
    "IDENT_dir" /TOKEN
    "OPTIONS_dir" /TOKEN
    "END_OPTIONS_DIR" /TOKEN
    "PSECT_dir" /TOKEN
    "SUBTITLE_dir" /TOKEN
    "TITLE_dir" /TOKEN

END DEFINE

DELETE PLACEHOLDER CEILING_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CEILING_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CEILING function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "CEILING({real_or_complex_arg})"

END DEFINE

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

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

END DEFINE

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

    "Any printable character"

END DEFINE

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

    "CHARACTER {name}*{len}" /TOKEN
    "CHARACTER*{len} {name}" /TOKEN
    "CHARACTER*(*) {name}" /TOKEN
    "CHARACTER(KIND=,LEN=)" /TOKEN

END DEFINE

DELETE PLACEHOLDER CHARACTER_FIELD_DECL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CHARACTER_FIELD_DECL -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER CHARACTER_FIELD_DESCR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Aw" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "A[width]"

END DEFINE

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

    "CHARACTER"

END DEFINE

DELETE PLACEHOLDER CHAR_1 -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CHAR_1 -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CHARACTER kind 1" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "1"

END DEFINE

DELETE PLACEHOLDER CHAR_2 -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CHAR_2 -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CHARACTER kind 2" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "2"

END DEFINE

DELETE PLACEHOLDER CHAR_3 -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CHAR_3 -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CHARACTER kind 3" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "3"

END DEFINE

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

    "Character array name"

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER CHAR_ARRAY_SUBSTRING -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CHAR_ARRAY_SUBSTRING -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER CHAR_ASSIGN_ELM -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER CHAR_CONS -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Character constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'{char}...'"

END DEFINE

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

    "{name}*{len}"

END DEFINE

DELETE PLACEHOLDER CHAR_ELM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CHAR_ELM -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER CHAR_EXP -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Character Expression" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

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

END DEFINE

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

    "CHAR ({var}[,][char_kind])"

END DEFINE

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

    "Character function name"

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER CHAR_KIND -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CHAR_KIND -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CHARACTER KIND" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "char_1"/PLACEHOLDER
    "char_2"/PLACEHOLDER
    "char_3"/PLACEHOLDER

END DEFINE

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

    "CHARACTER*{len}"

END DEFINE

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

    "A character scalar memory reference"

END DEFINE

DELETE PLACEHOLDER CHAR_SUBSTRING -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CHAR_SUBSTRING -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER CHAR_VAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Character variable" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Character variable"

END DEFINE

DELETE PLACEHOLDER CHAR_VAR_SUBSTRING -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CHAR_VAR_SUBSTRING -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER CHAR_VAR_TYPE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CHARACTER*(*)" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "CHARACTER*(*)"

END DEFINE

DELETE PLACEHOLDER CHECK_OPTIONS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CHECK_OPTIONS -
    /LANGUAGE="F90" -
    /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
    "SHAPE_opt"/PLACEHOLDER
    "NONE_opt"/PLACEHOLDER

END DEFINE

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

    "/CHECK={check_options}"

END DEFINE

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

    "status"/PLACEHOLDER
    "error_close"/PLACEHOLDER
    "iostat_close"/PLACEHOLDER
    "dispose"/PLACEHOLDER

END DEFINE

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

    "keep"/PLACEHOLDER
    "delete"/PLACEHOLDER

END DEFINE

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

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

END DEFINE

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

    "CMPLX ({arg}[,][arg][,][complex_kind_val])"

END DEFINE

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

    ":"

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER COMMON_ALIGNMENT_TYPE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER COMMON_ALIGNMENT_TYPE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "NONE" /TOKEN
    "PACKED /token"
    "STANDARD" /TOKEN
    "NATURAL" /TOKEN

END DEFINE

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

    "Common block name"

END DEFINE

DELETE PLACEHOLDER COMMON_BLK_SPEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER COMMON_BLK_SPEC -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER COMMON_BLOCK_REF -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Common Block reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "/{common_blk_name}/"

END DEFINE

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

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

END DEFINE

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

    "COMMON {common_blk_spec}..."

END DEFINE

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

    "variable in a common block"

END DEFINE

DELETE PLACEHOLDER COMP16_CONS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER COMP16_CONS -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER COMP16_CONS_ELM -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Complex*16 constant element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

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

END DEFINE

DELETE PLACEHOLDER COMP8_CONS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER COMP8_CONS -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER COMP8_CONS_ELM -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER COMPLEX16_TYPE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="COMPLEX*16" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "COMPLEX*16"

END DEFINE

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

    "COMPLEX*8"

END DEFINE

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

    "A complex argument"

END DEFINE

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

    "Complex array name"

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER COMPLEX_KIND -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER COMPLEX_KIND -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="COMPLEX KIND" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "([KIND=]{complex_kind_val})"

END DEFINE

DELETE PLACEHOLDER COMPLEX_KIND_VAL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER COMPLEX_KIND_VAL -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="KIND of COMPLEX" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "comp_1"/PLACEHOLDER
    "comp_2"/PLACEHOLDER
    "comp_3"/PLACEHOLDER
    "comp_4"/PLACEHOLDER

END DEFINE

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

    "COMPLEX"

END DEFINE

DELETE PLACEHOLDER COMPLEX_VAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER COMPLEX_VAR -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER COMPOSITE_FIELD_NAME -
    /LANGUAGE="F90" -
    /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 COMP_1 -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER COMP_1 -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="COMPLEX*1" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "1"

END DEFINE

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

    "2"

END DEFINE

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

    "3"

END DEFINE

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

    "4"

END DEFINE

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

    "CONJG ({complex_arg})"

END DEFINE

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

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

END DEFINE

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

    "{name} = {cons}"

END DEFINE

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

    "CONTAINS"
    "    {internal_subprogram}..."

END DEFINE

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

    "CONTAINS"
    "    {module_subprogram}..."

END DEFINE

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

    "[lbl]	CONTINUE"

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER COS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER COS -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Cosine Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "COS ({arg})"

END DEFINE

DELETE PLACEHOLDER COSH -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER COSH -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Hyperbolic Cosine Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "COSH ({real_arg})"

END DEFINE

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

    "cos"/PLACEHOLDER
    "cosd" /TOKEN

END DEFINE

DELETE PLACEHOLDER COUNT_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER COUNT_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="COUNT function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "COUNT({mask})"

END DEFINE

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

    "'CRAY'"

END DEFINE

DELETE PLACEHOLDER CSHIFT_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER CSHIFT_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Circular array shift" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "CSHIFT ({any_array_arg},{integer_arg}[,DIM])"

END DEFINE

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

    "CYCLE [do_construct_name]"

END DEFINE

DELETE PLACEHOLDER DATA_ELM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DATA_ELM -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER DATA_SPEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

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

END DEFINE

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

    "DATA {data_spec}..."

END DEFINE

DELETE PLACEHOLDER DATE_AND_TIME_ROUT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DATE_AND_TIME_ROUT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DATE_AND_TIME subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "DATE_AND_TIME ([date_buf][,time][,zone][,values])"

END DEFINE

DELETE PLACEHOLDER DATE_BUF -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DATE_BUF -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER DATE_ROUTINE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DATE subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "DATE ({date_buf})"

END DEFINE

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

    "DBLE({arg})"

END DEFINE

DELETE PLACEHOLDER DBL_CMPLX_CONS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DBL_CMPLX_CONS -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Double Complex constants" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "({dbl_cmplx_cons_elm},{dbl_cmplx_cons_elm})"

END DEFINE

DELETE PLACEHOLDER DBL_CMPLX_CONS_ELM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DBL_CMPLX_CONS_ELM -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Double Complex constant element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

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

END DEFINE

DELETE PLACEHOLDER DBL_PREC_CONS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DBL_PREC_CONS -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Double Precision constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

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

END DEFINE

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

    "DCMPLX ({arg})"

END DEFINE

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

    "Enter the date (eg. 12-Mar-1972)"

END DEFINE

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

    "DEALLOCATE ({allocate_object}...[, STAT=integer_var])"

END DEFINE

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

    "integer" /TOKEN
    "integer2" /TOKEN
    "integer4" /TOKEN
    "integer8" /TOKEN
    "real" /TOKEN
    "real4" /TOKEN
    "real8" /TOKEN
    "double precision" /TOKEN
    "byte" /TOKEN
    "complex" /TOKEN
    "complex8" /TOKEN
    "complex16" /TOKEN
    "double complex" /TOKEN
    "logical" /TOKEN
    "logical1" /TOKEN
    "logical2" /TOKEN
    "logical4" /TOKEN
    "logical8" /TOKEN
    "STRUCTURE" /TOKEN
    "RECORD" /TOKEN
    "TYPE_spec" /TOKEN
    "CHARACTER" /TOKEN

END DEFINE

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

    "DEFAULTFILE = {char_exp}"

END DEFINE

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

    "DEFAULTFILE = {dfi}"

END DEFINE

DELETE PLACEHOLDER DEFERRED_SHAPE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DEFERRED_SHAPE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Deferred shape specification" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{deferred_shape_spec}..."

END DEFINE

DELETE PLACEHOLDER DEFERRED_SHAPE_SPEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DEFERRED_SHAPE_SPEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Deferred shape spec" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=NONTERMINAL -

    ":"

END DEFINE

DELETE PLACEHOLDER DEFINED_OP -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DEFINED_OP -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A defined operation.  Can be either unary, binary, or intrinsic."

END DEFINE

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

    "'DELETE'"

END DEFINE

DELETE PLACEHOLDER DELETE_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DELETE_STMT -
    /LANGUAGE="F90" -
    /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 DELIM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DELIM -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Delim options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "apostrophe"/PLACEHOLDER
    "quote"/PLACEHOLDER
    "none"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER DELIM_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DELIM_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DELIM = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "DELIM = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER DERIVED_TYPE_DEF -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DERIVED_TYPE_DEF -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Derived typed definition" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "TYPE [, access_spec ::] {name}"
    "    [private_or_sequence]..."
    "    {specification_statement}..."
    "    END TYPE [name]"

END DEFINE

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

    "DESCENDING"

END DEFINE

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

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

END DEFINE

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

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

END DEFINE

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

    "DFLOAT ({integer_arg})"

END DEFINE

DELETE PLACEHOLDER DIGITS_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DIGITS_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Number of significant digits" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "DIGITS({integer_or_real_arg})"

END DEFINE

DELETE PLACEHOLDER DIM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DIM -
    /LANGUAGE="F90" -
    /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 DIMENSION_SPEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DIMENSION_SPEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Dimension specification" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "{array_name}({dim_spec})"

END DEFINE

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

    "DIMENSION [::] {dimension_spec}..."

END DEFINE

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

    "[{lbound}:]{ubound}"

END DEFINE

DELETE PLACEHOLDER DIM_SPEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DIM_SPEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Dimension spec menu" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "explicit_shape"/PLACEHOLDER
    "deferred_shape"/PLACEHOLDER
    "assumed_shape"/PLACEHOLDER
    "assumed_size"/PLACEHOLDER

END DEFINE

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

    "'DIRECT'"

END DEFINE

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

    "DIRECT = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER DISP -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DISP -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER DISPOSE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DISPOSE={disp_options}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "DISPOSE = {disp_options}"

END DEFINE

DELETE PLACEHOLDER DISP_OPTIONS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DISP_OPTIONS -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER DIV -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="/" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "/"

END DEFINE

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

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

END DEFINE

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

    "$"

END DEFINE

DELETE PLACEHOLDER DOT_PRODUCT_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DOT_PRODUCT_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DOT_PRODUCT function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "DOT_PRODUCT ({vector},{vector})"

END DEFINE

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

    "DOUBLE COMPLEX"

END DEFINE

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

    "DOUBLE PRECISION"

END DEFINE

DELETE PLACEHOLDER DO_CONSTRUCT_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DO_CONSTRUCT_NAME -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Name of the do construct."

END DEFINE

DELETE PLACEHOLDER DO_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DO_STMT -
    /LANGUAGE="F90" -
    /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
    "do_num_times" /TOKEN
    "do_num_times_label" /TOKEN

END DEFINE

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

    "An integer or real variable"

END DEFINE

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

    "byte_type"/PLACEHOLDER
    "integer_type"/PLACEHOLDER
    "integer2_type"/PLACEHOLDER
    "integer4_type"/PLACEHOLDER
    "integer8_type"/PLACEHOLDER
    "real_type"/PLACEHOLDER
    "real4_type"/PLACEHOLDER
    "real8_type"/PLACEHOLDER
    "double_precision"/PLACEHOLDER
    "logical_type"/PLACEHOLDER
    "logical1_type"/PLACEHOLDER
    "logical2_type"/PLACEHOLDER
    "logical4_type"/PLACEHOLDER
    "logical8_type"/PLACEHOLDER
    "complex_type"/PLACEHOLDER
    "complex8_type"/PLACEHOLDER
    "complex16_type"/PLACEHOLDER
    "double_complex"/PLACEHOLDER
    "char_len_type"/PLACEHOLDER
    "char_var_type"/PLACEHOLDER

END DEFINE

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

    "DUMMY_ALIASES"

END DEFINE

DELETE PLACEHOLDER DUMMY_ALIASES_OPT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER DUMMY_ALIASES_OPT -
    /LANGUAGE="F90" -
    /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 "D[+ OR -]{N}..." -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "D[+ OR -]{N}..." -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

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

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER EDIT_FIELD_DESCR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER EDIT_FIELD_DESCR -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER ELSE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ELSE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ELSE [name]"
    "	{executable_statement}..."

END DEFINE

DELETE PLACEHOLDER ELSEWHERE_PART -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ELSEWHERE_PART -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ELSEWHERE clause" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ELSEWHERE"
    "  [where_body_stmt]..."

END DEFINE

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

    "ELSE IF ({logical_exp}) THEN [name]"
    "	{executable_statement}..."

END DEFINE

DELETE PLACEHOLDER ENDFILE_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ENDFILE_STMT -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER ENTRY_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ENTRY statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ENTRY {name}[arg_list [result_part]]"

END DEFINE

DELETE PLACEHOLDER EOSHIFT_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER EOSHIFT_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="End Off Circular array shift" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "EOSHIFT ({any_array_arg},{integer_arg}[,BOUNDARY][,DIM])"

END DEFINE

DELETE PLACEHOLDER EPSILON_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER EPSILON_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="EPSILON function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "EPSILON({real_arg})"

END DEFINE

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

    ".EQ."

END DEFINE

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

    "EQUIVALENCE {equiv_spec}..."

END DEFINE

DELETE PLACEHOLDER EQUIV_ELM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER EQUIV_ELM -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER EQUIV_SPEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

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

END DEFINE

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

    ".EQV."

END DEFINE

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

    "ERR = {lbl}"

END DEFINE

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

    "ERR={lbl}"

END DEFINE

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

    "ERR = {lbl}"

END DEFINE

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

    "assignment"/PLACEHOLDER
    "ACCEPT" /TOKEN
    "ALLOCATE" /TOKEN
    "ASSERT" /TOKEN
    "BACKSPACE" /TOKEN
    "CALL" /TOKEN
    "CASE" /TOKEN
    "CLOSE" /TOKEN
    "CONTINUE" /TOKEN
    "CYCLE" /TOKEN
    "DATA" /TOKEN
    "DEALLOCATE" /TOKEN
    "DELETE" /TOKEN
    "DO" /TOKEN
    "ENDFILE" /TOKEN
    "ENTRY" /TOKEN
    "EXIT" /TOKEN
    "FIND" /TOKEN
    "FORALL" /TOKEN
    "FORMAT" /TOKEN
    "GOTO" /TOKEN
    "IF" /TOKEN
    "INCLUDE" /TOKEN
    "INQUIRE" /TOKEN
    "NULLIFY" /TOKEN
    "OPEN" /TOKEN
    "PAUSE" /TOKEN
    "pointer_assignment"/PLACEHOLDER
    "PRINT" /TOKEN
    "READ" /TOKEN
    "RETURN" /TOKEN
    "REWIND" /TOKEN
    "REWRITE" /TOKEN
    "STOP" /TOKEN
    "TYPE" /TOKEN
    "UNLOCK" /TOKEN
    "WHERE" /TOKEN
    "WRITE" /TOKEN

END DEFINE

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

    "EXIST = {logical_scalar}"

END DEFINE

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

    "EXIT [({exit_status})]"

END DEFINE

DELETE PLACEHOLDER EXIT_STATUS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER EXIT_STATUS -
    /LANGUAGE="F90" -
    /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 EXIT_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER EXIT_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="EXIT statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "EXIT [do_construct_name]"

END DEFINE

DELETE PLACEHOLDER EXPLICIT_SHAPE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER EXPLICIT_SHAPE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Explicit shape specification" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{dim_decl}..."

END DEFINE

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

    "{explicit_shape} ,"

END DEFINE

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

    "**"

END DEFINE

DELETE PLACEHOLDER EXPON -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER EXPON -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Exponential Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "EXP ({arg})"

END DEFINE

DELETE PLACEHOLDER EXPONENT_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER EXPONENT_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="EXPONENT function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "EXPONENT ({real_arg})"

END DEFINE

DELETE PLACEHOLDER EXPRESSION -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER EXPRESSION -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "arith_exp"/PLACEHOLDER
    "char_exp"/PLACEHOLDER
    "logical_exp"/PLACEHOLDER
    "constant_exp"/PLACEHOLDER
    "integer_exp"/PLACEHOLDER
    "relational_exp"/PLACEHOLDER

END DEFINE

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

    "EXTENDSIZE = {arith_exp}"

END DEFINE

DELETE PLACEHOLDER EXTEND_QUAL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER EXTEND_QUAL -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER EXTEND_SOURCE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Up to column 132" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "/EXTEND_SOURCE"

END DEFINE

DELETE PLACEHOLDER EXTERNAL_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER EXTERNAL_NAME -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="External name of object" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{name}"

END DEFINE

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

    "EXTERNAL {name}..."

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER E_CODE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER E_CODE -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER "E{INT_CONS}" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Number of characters in exponent" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "E{int_cons}"

END DEFINE

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

    "/F77"

END DEFINE

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

    "F77"/PLACEHOLDER
    "NOF77"/PLACEHOLDER

END DEFINE

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

    ".FALSE."

END DEFINE

DELETE PLACEHOLDER FDX -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FDX -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="VAX F and D, Alpha X" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'FDX'"

END DEFINE

DELETE PLACEHOLDER FGX -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FGX -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="VAX F and G, Alpha X" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'CRAY'"

END DEFINE

DELETE PLACEHOLDER FI -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FI -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER FIELD_DECLARATION -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Field declaration" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "declaration"/PLACEHOLDER
    "UNION" /TOKEN
    "PARAMETER" /TOKEN

END DEFINE

DELETE PLACEHOLDER FIELD_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FIELD_NAME -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER FIELD_SPEC -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER FILE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FILE=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "FILE = {char_exp}"

END DEFINE

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

    "file_par" /TOKEN
    "unit_par" /TOKEN

END DEFINE

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

    "FILE = {fi},[defaultfile_par]"

END DEFINE

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

    "File specification"

END DEFINE

DELETE PLACEHOLDER FIND_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FIND_STMT -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER FIXED -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FIXED" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'FIXED'"

END DEFINE

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

    "FLOAT ({integer_arg})"

END DEFINE

DELETE PLACEHOLDER FLOOR_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FLOOR_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FLOOR function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "FLOOR({real_or_complex_arg})"

END DEFINE

DELETE PLACEHOLDER FMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FMT -
    /LANGUAGE="F90" -
    /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 FORALL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FORALL -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FORALL statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "FORALL_assignment" /TOKEN
    "FORALL_construct" /TOKEN

END DEFINE

DELETE PLACEHOLDER FORALL_ASSIGNMENT_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FORALL_ASSIGNMENT_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Forall Assignment statements" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{array_element/section} = {expression}"

END DEFINE

DELETE PLACEHOLDER FORALL_BODY_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FORALL_BODY_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FORALL body statements" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "forall_assignment_stmt"/PLACEHOLDER
    "IF" /TOKEN
    "FORALL" /TOKEN
    "WHERE" /TOKEN

END DEFINE

DELETE PLACEHOLDER FORALL_TRIPLE_SPEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FORALL_TRIPLE_SPEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FORALL triple" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "{subscript_name} = {subscript} : {subscript} [: stride]"

END DEFINE

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

    "FORM = {form_options}"

END DEFINE

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

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

END DEFINE

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

    "'FORMATTED'"

END DEFINE

DELETE PLACEHOLDER FORMATTED_DIRECT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FORMATTED_DIRECT -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER FORMATTED_INDEXED -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER FORMATTED_INTERNAL -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER FORMATTED_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FORMATTED = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "FORMATTED = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER FORMATTED_REWRITE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FORMATTED_REWRITE -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER FORMAT_SEQ -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER FORMAT_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FORMAT statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

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

END DEFINE

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

    "formatted"/PLACEHOLDER
    "unformatted"/PLACEHOLDER

END DEFINE

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

    "FORM = {char_scalar}"

END DEFINE

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

    "'FORTRAN'"

END DEFINE

DELETE PLACEHOLDER FRACTION_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FRACTION_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FRACTION function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "FRACTION ({real_arg})"

END DEFINE

DELETE PLACEHOLDER "FUNCTION [NAME]" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "FUNCTION [NAME]" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "FUNCTION [name]"

END DEFINE

DELETE PLACEHOLDER FUNCTION_HEADER_COMMENTS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FUNCTION_HEADER_COMMENTS -
    /LANGUAGE="F90" -
    /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_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FUNCTION_NAME -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The name of the function that you will call this expression."

END DEFINE

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

    "[options_stmt]"
    "[RECURSIVE] [dtype] FUNCTION {subprogram_name}([p]...) [result_part]"
    ""
    "![function_header_comments]"
    "[use_stmt]..."
    "[implicit_stmt]"
    "[specification_statement]..."
    " "
    "[executable_statement]..."
    " "
    "[CONTAINS_internal_subprograms]"
    " "
    "RETURN"
    "END FUNCTION [subprogram_name]"
    " "

END DEFINE

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

    "RETURN "

END DEFINE

DELETE PLACEHOLDER FUNCTION_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FUNCTION_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FUNCTION STATEMENT" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "[RECURSIVE] [dtype] FUNCTION {name}([p]...) [result_part]"

END DEFINE

DELETE PLACEHOLDER FUNCT_BODY -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FUNCT_BODY -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Function interface body" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "[RECURSIVE] [dtype] FUNCTION {subprogram_name}([p]...) [result_part]"
    "    [specification_statement]"
    "    END FUNCTION [subprogram_name]"

END DEFINE

DELETE PLACEHOLDER FUNCT_OR_SUBR_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER FUNCT_OR_SUBR_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "function_stmt"/PLACEHOLDER
    "subroutine_stmt"/PLACEHOLDER

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER GENERIC_SPEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER GENERIC_SPEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="generic specification" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "name"/PLACEHOLDER
    "OPERATOR" /TOKEN
    "ASSIGNMENT_spec"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER GET -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER GET -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer array of rank one that processor sets to current value of"
    "the seed, with intent OUT."

END DEFINE

DELETE PLACEHOLDER GOTO_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER GOTO_STMT -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER GREATER_THAN -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=".GT." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    ".GT."

END DEFINE

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

    ".GE."

END DEFINE

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

    "A symbolic name given to the namelist"

END DEFINE

DELETE PLACEHOLDER G_CODE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER G_CODE -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER G_FLOAT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="G_floating" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "/G_FLOATING"

END DEFINE

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

    "G_FLOAT"/PLACEHOLDER
    "NOG_FLOAT"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER HARVEST -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER HARVEST -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A scalar or array_valued variable, of type real, with intent OUT."

END DEFINE

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

    "Z'{hex_dig}...'"

END DEFINE

DELETE PLACEHOLDER HEX_DIG -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER HEX_DIG -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER HOLLERITH_FIELD -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="nHc..." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

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

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER HUGE_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER HUGE_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="HUGE function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "HUGE ({integer_or_real_arg})"

END DEFINE

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

    "/I4"

END DEFINE

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

    "I4"/PLACEHOLDER
    "NOI4"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER IACHAR_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER IACHAR_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="IACHAR function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "IACHAR({var})"

END DEFINE

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

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

END DEFINE

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

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

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER IBM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER IBM -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="IBM System\360" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'IBM'"

END DEFINE

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

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

END DEFINE

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

    "ICHAR ({char})"

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER IDENTIFIER -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER IDENTIFIER -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Name of a subprogram" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{name}"

END DEFINE

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

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

END DEFINE

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

    "An internal file specifier"

END DEFINE

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

    "IFIX ({r4arg})"

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER ILEN_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ILEN_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Integer Length function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ILEN ({integer_arg})"

END DEFINE

DELETE PLACEHOLDER IMAG_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER IMAG_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Imaginary part function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "IMAG({complex_arg})"

END DEFINE

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

    "IMPLICIT NONE"

END DEFINE

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

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

END DEFINE

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

    "implicit_type"/PLACEHOLDER
    "implicit_none"/PLACEHOLDER

END DEFINE

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

    "IMPLICIT {implicit_specification}..."

END DEFINE

DELETE PLACEHOLDER IMPLIED_DO_LIST -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER IMPLIED_DO_LIST -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER INCLUDE_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Include source text" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "include_file" /TOKEN
    "include_library_module" /TOKEN

END DEFINE

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

    "'INDEXED'"

END DEFINE

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

    "INDEX ({char_exp},{char_substring}[,BACK]"

END DEFINE

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

    "INITIALSIZE = {arith_exp}"

END DEFINE

DELETE PLACEHOLDER INQUIRE_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER INQUIRE_PAR -
    /LANGUAGE="F90" -
    /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
    "position_par" /TOKEN
    "action_par" /TOKEN
    "read_par" /TOKEN
    "write_par" /TOKEN
    "readwrite_par" /TOKEN
    "delim_par" /TOKEN
    "pad_par" /TOKEN

END DEFINE

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

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

END DEFINE

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

    "INT({real_or_complex_arg}[,][int_kind_val])"

END DEFINE

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

    "INTEGER*2"

END DEFINE

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

    "INTEGER*4"

END DEFINE

DELETE PLACEHOLDER INTEGER8_TYPE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER INTEGER8_TYPE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="INTEGER*8" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "INTEGER*8"

END DEFINE

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

    "An integer argument"

END DEFINE

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

    "Integer array name"

END DEFINE

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

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

END DEFINE

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

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

END DEFINE

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

    "({integer_exp})"

END DEFINE

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

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

END DEFINE

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

    "Integer function name"

END DEFINE

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

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

END DEFINE

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

    "INTEGER"

END DEFINE

DELETE PLACEHOLDER INTEGER_KIND -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER INTEGER_KIND -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="INTEGER KIND" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "([KIND=]{int_kind_val})"

END DEFINE

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

    "An integer or real argument"

END DEFINE

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

    "An integer scalar memory reference"

END DEFINE

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

    "INTEGER"

END DEFINE

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

    "Integer variable"

END DEFINE

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

    "INTENT({intent_spec}) [::] {p}..."

END DEFINE

DELETE PLACEHOLDER INTENT_SPEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER INTENT_SPEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "IN_intent" /TOKEN
    "OUT_intent" /TOKEN
    "INOUT_intent" /TOKEN

END DEFINE

DELETE PLACEHOLDER INTERFACE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER INTERFACE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="INTERFACE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "interface_block"/PLACEHOLDER
    "interface_block_8x"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER INTERFACE_BLOCK -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER INTERFACE_BLOCK -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="INTERFACE BLOCK" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "INTERFACE [generic_spec] [generic_spec]"
    "    [interface_body]..."
    "    [module_proc_stmt]..."
    "    END INTERFACE"

END DEFINE

DELETE PLACEHOLDER INTERFACE_BLOCK_8X -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER INTERFACE_BLOCK_8X -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="INTERFACE BLOCK 8X" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "INTERFACE"
    "    {funct_or_subr_stmt}"
    "    [use_stmt]..."
    "    [implicit_stmt]"
    "    [specification_statement]..."
    "    END INTERFACE"

END DEFINE

DELETE PLACEHOLDER INTERFACE_BODY -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER INTERFACE_BODY -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "funct_body"/PLACEHOLDER
    "subrout_body"/PLACEHOLDER

END DEFINE

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

    "[RECURSIVE] [dtype] FUNCTION {subprogram_name}([p]...) [result_part]"
    ""
    "![function_header_comments]"
    "[use_stmt]..."
    "[implicit_stmt]"
    "[specification_statement]..."
    " "
    "[executable_statement]..."
    " "
    "RETURN"
    "END FUNCTION [subprogram_name]"
    " "

END DEFINE

DELETE PLACEHOLDER INTERNAL_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER INTERNAL_NAME -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Internal name of object" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{name}"

END DEFINE

DELETE PLACEHOLDER INTERNAL_SUBPROGRAM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER INTERNAL_SUBPROGRAM -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="internal subprogram" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="" -
    /TYPE=MENU -

    "internal_subroutine" /TOKEN
    "internal_function" /TOKEN

END DEFINE

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

    "[RECURSIVE] SUBROUTINE {subprogram_name}([p]...)"
    " "
    "![subroutine_header_comments]"
    "[use_stmt]..."
    "[implicit_stmt]"
    "[specification_statement]..."
    " "
    "[executable_statement]..."
    " "
    "RETURN [alternate_return]"
    "END SUBROUTINE [subprogram_name]"
    " "

END DEFINE

DELETE PLACEHOLDER INTRINSIC_FUNC_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER INTRINSIC_FUNC_NAME -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER INTRINSIC_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="INTRINSIC statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "INTRINSIC {intrinsic_func_name}..."

END DEFINE

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

    "1"

END DEFINE

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

    "2"

END DEFINE

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

    "3"

END DEFINE

DELETE PLACEHOLDER INT_4 -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER INT_4 -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="INTEGER*8" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "4"

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER INT_ELM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER INT_ELM -
    /LANGUAGE="F90" -
    /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_KIND_VAL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER INT_KIND_VAL -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="KIND of INTEGER" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "int_1"/PLACEHOLDER
    "int_2"/PLACEHOLDER
    "int_3"/PLACEHOLDER
    "int_4"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER INT_OR_REAL_OR_COMPLEX_ARG -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER INT_OR_REAL_OR_COMPLEX_ARG -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer, or real, or complex argument."

END DEFINE

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

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

END DEFINE

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

    "integer_var"/PLACEHOLDER
    "arith_array_ref"/PLACEHOLDER

END DEFINE

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

    "IOSTAT={ios}"

END DEFINE

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

    "IOSTAT = {integer_var}"

END DEFINE

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

    "IOSTAT = {ios}"

END DEFINE

DELETE PLACEHOLDER IO_ELM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER IO_ELM -
    /LANGUAGE="F90" -
    /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 ISHFT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ISHFT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic bitwise SHIFT function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

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

END DEFINE

DELETE PLACEHOLDER ISHFTC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ISHFTC -
    /LANGUAGE="F90" -
    /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 I_CODE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER I_CODE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="I{width}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

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

END DEFINE

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

    "ascending_file"/PLACEHOLDER
    "descending_file"/PLACEHOLDER

END DEFINE

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

    "'KEEP'"

END DEFINE

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

    "'KEYED'"

END DEFINE

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

    "KEYED = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER KEYSPEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER KEYSPEC -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER KEY_EXP -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Key expression" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "char_exp"/PLACEHOLDER
    "integer_exp"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER KEY_OPEN -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER KEY_OPEN -
    /LANGUAGE="F90" -
    /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 "KIND=" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "KIND=" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Optional KIND=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "KIND="

END DEFINE

DELETE PLACEHOLDER KIND_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER KIND_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="KIND function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "KIND ({arg})"

END DEFINE

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

    "integer_key"/PLACEHOLDER
    "character_key"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER LAB -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LAB -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER LBL -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "The label of an executable statement.  "

END DEFINE

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

    "{bounds_exp}"

END DEFINE

DELETE PLACEHOLDER LBOUND_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LBOUND_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="LBOUND function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "LBOUND ({num_array_arg}[,DIM])"

END DEFINE

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

    "Length in characters"

END DEFINE

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

    "LEN ({char_exp})"

END DEFINE

DELETE PLACEHOLDER LEN_TRIM_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LEN_TRIM_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="LEN_TRIM function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "LEN_TRIM ({char_exp})"

END DEFINE

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

    ".LT."

END DEFINE

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

    ".LE."

END DEFINE

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

    "

END DEFINE

DELETE PLACEHOLDER LIST_DIRECTED_INTERNAL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LIST_DIRECTED_INTERNAL -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER LIST_DIRECTED_SEQ -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER LIST_OPT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "list"/PLACEHOLDER
    "nolist"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER LITTLE_ENDIAN -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LITTLE_ENDIAN -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Little-endian IEEE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'LITTLE_ENDIAN'"

END DEFINE

DELETE PLACEHOLDER LOCAL_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LOCAL_NAME -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The name used in this program unit to refer to the entity in the module"
    "being used."

END DEFINE

DELETE PLACEHOLDER LOG -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LOG -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic LOG Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "LOG ({arg})"

END DEFINE

DELETE PLACEHOLDER LOG10 -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LOG10 -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Common Logarithm Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "LOG10({arg})"

END DEFINE

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

    "LOGICAL*1"

END DEFINE

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

    "LOGICAL*2"

END DEFINE

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

    "LOGICAL*4"

END DEFINE

DELETE PLACEHOLDER LOGICAL8_TYPE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LOGICAL8_TYPE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="LOGICAL*8" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "LOGICAL*8"

END DEFINE

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

    "Logical array name"

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER LOGICAL_ASSIGN_ELM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LOGICAL_ASSIGN_ELM -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER LOGICAL_EXP -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER LOGICAL_EXP_PAREN -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Logical expression in parentheses" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "({logical_exp})"

END DEFINE

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

    "L{width}"

END DEFINE

DELETE PLACEHOLDER LOGICAL_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LOGICAL_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="LOGICAL function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "LOGICAL({logical_exp}[,log_kind_val])"

END DEFINE

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

    "Logical function name"

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER LOGICAL_KIND -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LOGICAL_KIND -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="LOGICAL KIND" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "([KIND=]{log_kind_val})"

END DEFINE

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

    "A logical scalar memory reference"

END DEFINE

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

    "LOGICAL"

END DEFINE

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

    "Logical variable"

END DEFINE

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

    "1"

END DEFINE

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

    "2"

END DEFINE

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

    "4"

END DEFINE

DELETE PLACEHOLDER LOG_8 -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LOG_8 -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="LOGICAL*8" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "8"

END DEFINE

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

    "true"/PLACEHOLDER
    "false"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER LOG_ELM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LOG_ELM -
    /LANGUAGE="F90" -
    /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_KIND_VAL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LOG_KIND_VAL -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="KIND of LOGICAL" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "log_1"/PLACEHOLDER
    "log_2"/PLACEHOLDER
    "log_4"/PLACEHOLDER
    "log_8"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER LOP -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER LOP -
    /LANGUAGE="F90" -
    /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 "LOWER:UPPER_VALS" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "LOWER:UPPER_VALS" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="case_val : case_val" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{case_val} : {case_val}"

END DEFINE

DELETE PLACEHOLDER "LOWER:_VALS" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "LOWER:_VALS" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="case_val :" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{case_val} :"

END DEFINE

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

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

END DEFINE

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

    "{tbs}"

END DEFINE

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

    "!  {tbs}"

END DEFINE

DELETE PLACEHOLDER MAIN_HEADER_COMMENTS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MAIN_HEADER_COMMENTS -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER MAIN_PROGRAM_UNIT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="MAIN program unit" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "[options_stmt]"
    "[program_stmt]"
    " "
    "![main_header_comments]"
    "[use_stmt]..."
    "[implicit_stmt]"
    "[specification_statement]..."
    " "
    "[executable_statement]..."
    " "
    "[CONTAINS_internal_subprograms]"
    "END [PROGRAM [name]]"
    " "

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER MASK -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MASK -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A logical array."

END DEFINE

DELETE PLACEHOLDER MATMUL_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MATMUL_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Matrix Multiply function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "MATMUL ({matrix},{matrix})"

END DEFINE

DELETE PLACEHOLDER MATRIX -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MATRIX -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Any matrix type."

END DEFINE

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

    "MAX ({integer_or_real_arg}...)"

END DEFINE

DELETE PLACEHOLDER MAXEXPONENT_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MAXEXPONENT_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="MAXEXPONENT function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "MAXEXPONENT ({real_arg})"

END DEFINE

DELETE PLACEHOLDER MAXLOC_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MAXLOC_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="MAXLOC function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "MAXLOC ({num_array_arg}[,MASK])"

END DEFINE

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

    "MAXREC = {arith_exp}"

END DEFINE

DELETE PLACEHOLDER MAXVAL_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MAXVAL_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="MAXVAL function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "MAXVAL({array_arg})"

END DEFINE

DELETE PLACEHOLDER MERGE_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MERGE_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="MERGE function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "MERGE ({num_array_arg},{num_array_arg}[,MASK])"

END DEFINE

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

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

END DEFINE

DELETE PLACEHOLDER MINEXPONENT_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MINEXPONENT_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="MINEXPONENT function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "MINEXPONENT ({real_arg})"

END DEFINE

DELETE PLACEHOLDER MINLOC_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MINLOC_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="MINLOC function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "MINLOC ({num_array_arg}[,MASK])"

END DEFINE

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

    "-"

END DEFINE

DELETE PLACEHOLDER MINVAL_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MINVAL_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="MINVAL function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "MINVAL({array_arg})"

END DEFINE

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

    ".{min}"

END DEFINE

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

    "MIN ({integer_or_real_arg}...)"

END DEFINE

DELETE PLACEHOLDER MOD -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MOD -
    /LANGUAGE="F90" -
    /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 "MODULE [NAME]" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "MODULE [NAME]" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "MODULE [name]"

END DEFINE

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

    "[RECURSIVE] [dtype] FUNCTION {subprogram_name}([p]...) [result_part]"
    ""
    "![function_header_comments]"
    "[use_stmt]..."
    "[implicit_stmt]"
    "[specification_statement]..."
    " "
    "[executable_statement]..."
    " "
    "[CONTAINS_internal_subprograms]"
    " "
    "RETURN"
    "END FUNCTION [subprogram_name]"
    " "

END DEFINE

DELETE PLACEHOLDER MODULE_HEADER_COMMENTS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MODULE_HEADER_COMMENTS -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Module header" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "+"
    " "
    " [abstract]"
    " FUNNCTIONAL DESCRIPTION: "
    " "
    "      [tbs]"
    " "
    " [common blocks]"
    " [design]"
    " "
    "-"

END DEFINE

DELETE PLACEHOLDER MODULE_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MODULE_NAME -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The name of a text module located in a text library."

END DEFINE

DELETE PLACEHOLDER MODULE_PROC_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MODULE_PROC_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Module Procedure statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "MODULE PROCEDURE {name}..."

END DEFINE

DELETE PLACEHOLDER MODULE_PROGRAM_UNIT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MODULE_PROGRAM_UNIT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="MODULE program unit" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "[options_stmt]"
    "MODULE {name}"
    " "
    "![module_header_comments]"
    "[use_stmt]..."
    "[implicit_stmt]"
    "[specification_statement]..."
    " "
    "[CONTAINS_module_subprograms]"
    "END [MODULE [name]]"
    " "

END DEFINE

DELETE PLACEHOLDER MODULE_SUBPROGRAM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MODULE_SUBPROGRAM -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="module subprogram" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="" -
    /TYPE=MENU -

    "module_subroutine" /TOKEN
    "module_function" /TOKEN

END DEFINE

DELETE PLACEHOLDER MODULE_SUBROUTINE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MODULE_SUBROUTINE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="MODULE SUBROUTINE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "[RECURSIVE] SUBROUTINE {subprogram_name}([p]...)"
    " "
    "![subroutine_header_comments]"
    "[use_stmt]..."
    "[implicit_stmt]"
    "[specification_statement]..."
    " "
    "[executable_statement]..."
    " "
    "[CONTAINS_internal_subprograms]"
    " "
    "RETURN [alternate_return]"
    "END SUBROUTINE [subprogram_name]"
    " "

END DEFINE

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

    "MODULO ({integer_or_real_arg},{integer_or_real_arg})"

END DEFINE

DELETE PLACEHOLDER MORE_MAP -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MORE_MAP -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "MAP"
    "	{field_declaration}..."
    "END MAP"

END DEFINE

DELETE PLACEHOLDER MORE_PARAMETERS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MORE_PARAMETERS -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="A list of parameters" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="," -
    /TYPE=NONTERMINAL -

    "{constant_exp}"

END DEFINE

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

    "*"

END DEFINE

DELETE PLACEHOLDER MVBITS_ROUTINE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MVBITS_ROUTINE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="MVBITS subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "MVBITS ({mvm},{mvi},{mvlen},{mvn},{mvj})"

END DEFINE

DELETE PLACEHOLDER MVI -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER MVI -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER MVJ -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER MVLEN -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER MVM -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER MVN -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER N -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="String of decimal digits" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A decimal digit"

END DEFINE

DELETE PLACEHOLDER NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NAME -
    /LANGUAGE="F90" -
    /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."

END DEFINE

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

    "{name} :"

END DEFINE

DELETE PLACEHOLDER NAMED_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NAMED_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NAMED = {logical_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "NAMED = {logical_scalar}"

END DEFINE

DELETE PLACEHOLDER NAMELIST_DIRECTED_SEQ -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NAMELIST_DIRECTED_SEQ -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER NAMELIST_ELM -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NAMELIST element" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=MENU -

    "var"/PLACEHOLDER
    "array_name"/PLACEHOLDER

END DEFINE

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

    "/{grp_name}/ {namelist_elm}..."

END DEFINE

DELETE PLACEHOLDER NAMELIST_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NAMELIST_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NAMELIST statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "NAMELIST {namelist_spec}..."

END DEFINE

DELETE PLACEHOLDER NAME_OPEN -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NAME_OPEN -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NAME=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "NAME = {char_exp}"

END DEFINE

DELETE PLACEHOLDER NAME_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NAME_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NAME = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "NAME = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER NCHAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NCHAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The number of characters to be transferred"

END DEFINE

DELETE PLACEHOLDER NDEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NDEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Number of characters to the right of the decimal point."

END DEFINE

DELETE PLACEHOLDER NEAREST_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NEAREST_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NEAREST function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "NEAREST ({real_arg},{real_arg})"

END DEFINE

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

    ".NEQV."

END DEFINE

DELETE PLACEHOLDER NEW -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NEW -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Create new file" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'NEW'"

END DEFINE

DELETE PLACEHOLDER NEXTREC_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NEXTREC_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NEXTREC = {integer_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "NEXTREC = {integer_scalar}"

END DEFINE

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

    "NINT({real_arg}[,][int_kind_val])"

END DEFINE

DELETE PLACEHOLDER NNN -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NNN -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Enter initials (eg. KDK)"

END DEFINE

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

    "'NO'"

END DEFINE

DELETE PLACEHOLDER NOACCURACY_SENSITIVE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NOACCURACY_SENSITIVE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Not sensitive to accuracy" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "NOACCURACY_SENSITIVE"

END DEFINE

DELETE PLACEHOLDER NOASSERTIONS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NOASSERTIONS -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Do not check asserted relationships" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "NOASSERTIONS"

END DEFINE

DELETE PLACEHOLDER NOBOUNDS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NOBOUNDS -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Do not check array and string bounds" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "NOBOUNDS"

END DEFINE

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

    "NODUMMY_ALIASES"

END DEFINE

DELETE PLACEHOLDER NOEXTEND_SOURCE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NOEXTEND_SOURCE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Up to column 72" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "/NOEXTEND_SOURCE"

END DEFINE

DELETE PLACEHOLDER NOF77 -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NOF77 -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="FORTRAN-66" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "/NOF77"

END DEFINE

DELETE PLACEHOLDER NOG_FLOAT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NOG_FLOAT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="D_floating" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "/NOG_FLOATING"

END DEFINE

DELETE PLACEHOLDER NOI4 -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NOI4 -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Two bytes" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "/NOI4"

END DEFINE

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

    "

END DEFINE

DELETE PLACEHOLDER NONADVANCE_FORMAT_SEQ -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NONADVANCE_FORMAT_SEQ -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Nonadvancing formatted sequential READ" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "(UNIT={unit}, FMT={fmt}, ADVANCE='NO'[, SIZE={size}][, EOR={lbl}][, ERR={lbl}][, IOSTAT={ios}][, END={lbl}]) [io_elm]..."

END DEFINE

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

    "'NONE'"

END DEFINE

DELETE PLACEHOLDER NONE_OPT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NONE_OPT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="No options selected" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "NONE"

END DEFINE

DELETE PLACEHOLDER NOOVERFLOW -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NOOVERFLOW -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Do not check for integer overflow" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "NOOVERFLOW"

END DEFINE

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

    "NOSHAPE"

END DEFINE

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

    "NOSPANBLOCKS"

END DEFINE

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

    ".NOT."

END DEFINE

DELETE PLACEHOLDER NOT_EQUAL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NOT_EQUAL -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION=".NE." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    ".NE."

END DEFINE

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

    "NOT ({integer_arg})"

END DEFINE

DELETE PLACEHOLDER NOUNDERFLOW -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NOUNDERFLOW -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Do not check for floating underfkiw" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "NOUNDERFLOW"

END DEFINE

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

    "'NULL'"

END DEFINE

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

    "NULLIFY ({pointer_object}...)"

END DEFINE

DELETE PLACEHOLDER NUMBER_OF_PROCESSORS_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NUMBER_OF_PROCESSORS_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NUMBER OF PROCESSORS function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "NUMBER_OF_PROCESSORS ([integer_arg])"

END DEFINE

DELETE PLACEHOLDER NUMBER_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NUMBER_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="NUMBER = {integer_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "NUMBER = {integer_scalar}"

END DEFINE

DELETE PLACEHOLDER NUMERIC_ARRAY_REF -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NUMERIC_ARRAY_REF -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Numeric Array reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

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

END DEFINE

DELETE PLACEHOLDER NUM_ARRAY_ARG -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER NUM_ARRAY_ARG -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer, real, or complex array."

END DEFINE

DELETE PLACEHOLDER OBJECT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER OBJECT -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER OCT_CONS -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Octal constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "O'{oct_dig}...'"

END DEFINE

DELETE PLACEHOLDER OCT_DIG -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER OCT_DIG -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Octal Digit" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Octal digit - Range is 0 to 7"

END DEFINE

DELETE PLACEHOLDER OLD -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER OLD -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Use existing file" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'OLD'"

END DEFINE

DELETE PLACEHOLDER OPENED_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER OPENED_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="OPENED = {logical_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "OPENED = {logical_scalar}"

END DEFINE

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

    "ACCESS" /TOKEN
    "ACTION" /TOKEN
    "ASSOCIATEVARIABLE" /TOKEN
    "BLOCKSIZE" /TOKEN
    "BLANK" /TOKEN
    "BUFFERCOUNT" /TOKEN
    "CARRIAGECONTROL" /TOKEN
    "CONVERT" /TOKEN
    "DEFAULTFILE" /TOKEN
    "DELIM" /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
    "PAD" /TOKEN
    "POSITION" /TOKEN
    "READONLY" /TOKEN
    "RECL" /TOKEN
    "RECORDSIZE" /TOKEN
    "RECORDTYPE" /TOKEN
    "SHARED" /TOKEN
    "STATUS_open" /TOKEN
    "USEROPEN" /TOKEN

END DEFINE

DELETE PLACEHOLDER OPEN_STATUS_OPTIONS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER OPEN_STATUS_OPTIONS -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER OPEN_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="OPEN statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "OPEN ("
    "UNIT={unit},"
    "{open_parameter}...)"

END DEFINE

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

    "OPTIONAL [::] {p}..."

END DEFINE

DELETE PLACEHOLDER OPTIONS_DIR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER OPTIONS_DIR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Specify source options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "OPTIONS {options_dir_qual}..."

END DEFINE

DELETE PLACEHOLDER OPTIONS_DIR_QUAL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER OPTIONS_DIR_QUAL -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=HORIZONTAL -
    /SEPARATOR="" -
    /TYPE=MENU -

    "alignment" /TOKEN
    "warnings" /TOKEN

END DEFINE

DELETE PLACEHOLDER OPTIONS_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER OPTIONS_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="OPTIONS statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "OPTIONS {qualifier}..."

END DEFINE

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

    ".OR."

END DEFINE

DELETE PLACEHOLDER ORGANIZATION -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ORGANIZATION -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ORGANIZATION = {org_options}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ORGANIZATION = {org_options}"

END DEFINE

DELETE PLACEHOLDER ORGANIZATION_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ORGANIZATION_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ORGANIZATION = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "ORGANIZATION = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER ORG_OPTIONS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ORG_OPTIONS -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="ORGANIZATION options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "sequential"/PLACEHOLDER
    "relative"/PLACEHOLDER
    "indexed"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER OR_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER OR_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic OR function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "OR ({arg}, {arg})"

END DEFINE

DELETE PLACEHOLDER OVERFLOW -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER OVERFLOW -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Check for integer overflow" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "OVERFLOW"

END DEFINE

DELETE PLACEHOLDER OVERFLOW_OPT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER OVERFLOW_OPT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Integer overflow" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "OVERFLOW"/PLACEHOLDER
    "NOOVERFLOW"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER O_CODE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER O_CODE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="O{width}.{min_char}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

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

END DEFINE

DELETE PLACEHOLDER P -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER P -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="The name of an argument." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "The name of an argument."

END DEFINE

DELETE PLACEHOLDER PACK_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PACK_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="PACK function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "PACK ({any_array_arg},{mask}[,VECTOR])"

END DEFINE

DELETE PLACEHOLDER PAD -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PAD -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Pad options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "yes"/PLACEHOLDER
    "no"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER PAD_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PAD_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="PAD = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "PAD = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER PARAMETERS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PARAMETERS -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="One or more parameters" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{p}:"
    "    {tbs}"
    "[additional_parameters]..."

END DEFINE

DELETE PLACEHOLDER PARAMETER_LIST -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PARAMETER_LIST -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="   Parameter list" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{constant_exp},"
    "[more_parameters]..."

END DEFINE

DELETE PLACEHOLDER PARAMETER_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PARAMETER_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="PARAMETER statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "typed_parameter_stmt" /TOKEN
    "untyped_parameter_stmt" /TOKEN

END DEFINE

DELETE PLACEHOLDER PATTR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PATTR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=MENU -

    "NOSHR"
    "SHR"
    "WRT"
    "NOWRT"
    "LCL"
    "GBL"
    "ALIGN" /TOKEN

END DEFINE

DELETE PLACEHOLDER PAUSE_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PAUSE_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="PAUSE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "PAUSE [disp]"

END DEFINE

DELETE PLACEHOLDER PNUM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PNUM -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The integer scale factor in the range -128 through 127."

END DEFINE

DELETE PLACEHOLDER "POINTER,TARGET" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "POINTER,TARGET" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="(pointer,target)" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "({pointer_part},{target_part})"

END DEFINE

DELETE PLACEHOLDER POINTER_ASSIGNMENT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER POINTER_ASSIGNMENT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="pointer assignment" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{pointer_object} => {pointer_target}"

END DEFINE

DELETE PLACEHOLDER POINTER_CRAY -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER POINTER_CRAY -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="CRAY_POINTER statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "POINTER =[pointer,target]..."

END DEFINE

DELETE PLACEHOLDER POINTER_DEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER POINTER_DEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Pointer declarator" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "({deferred_shape_spec}...)"

END DEFINE

DELETE PLACEHOLDER POINTER_OBJECT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER POINTER_OBJECT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A variable name or structure component."

END DEFINE

DELETE PLACEHOLDER POINTER_PART -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER POINTER_PART -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The name of the pointer."

END DEFINE

DELETE PLACEHOLDER POINTER_SPEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER POINTER_SPEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Pointer specification" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "{name}[pointer_dec]"

END DEFINE

DELETE PLACEHOLDER POINTER_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER POINTER_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="POINTER statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "POINTER :: {pointer_spec}..."

END DEFINE

DELETE PLACEHOLDER POINTER_TARGET -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER POINTER_TARGET -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Usually a variable, but may also be an expression that has the"
    "POINTER attribute."

END DEFINE

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

    "+"

END DEFINE

DELETE PLACEHOLDER POSITION -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER POSITION -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Position options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "asis"/PLACEHOLDER
    "rewind"/PLACEHOLDER
    "append"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER POSITION_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER POSITION_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="POSITION = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "POSITION = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER PRECISION_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PRECISION_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="PRECISION function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "PRECISION ({real_or_complex_arg})"

END DEFINE

DELETE PLACEHOLDER PRESENT_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PRESENT_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="PRESENT function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "PRESENT({arg})"

END DEFINE

DELETE PLACEHOLDER PRINT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PRINT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Print and retain" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'PRINT'"

END DEFINE

DELETE PLACEHOLDER PRINT_DELETE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PRINT_DELETE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Print then delete" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'PRINT/DELETE'"

END DEFINE

DELETE PLACEHOLDER PRINT_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PRINT_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="PRINT statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "print1" /TOKEN
    "print2" /TOKEN
    "print3" /TOKEN

END DEFINE

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

    "PRIVATE [access_id_list]"

END DEFINE

DELETE PLACEHOLDER PRIVATE_OR_SEQUENCE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PRIVATE_OR_SEQUENCE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "PRIVATE_attr" /TOKEN
    "SEQUENCE_attr" /TOKEN

END DEFINE

DELETE PLACEHOLDER PROCEDURE_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PROCEDURE_NAME -
    /LANGUAGE="F90" -
    /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 PROCESSOR_SHAPE_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PROCESSOR_SHAPE_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="PROCESSOR SHAPE function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "PROCESSOR_SHAPE ()"

END DEFINE

DELETE PLACEHOLDER PRODUCT_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PRODUCT_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="PRODUCT function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "PRODUCT({num_array_arg})"

END DEFINE

DELETE PLACEHOLDER "PROGRAM [NAME]" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "PROGRAM [NAME]" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "PROGRAM [name]"

END DEFINE

DELETE PLACEHOLDER PROGRAM_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PROGRAM_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="PROGRAM statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "PROGRAM {name}"

END DEFINE

DELETE PLACEHOLDER PROGRAM_UNIT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PROGRAM_UNIT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="F90 program unit " -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="" -
    /TYPE=MENU -

    "main" /TOKEN
    "subroutine" /TOKEN
    "function" /TOKEN
    "module" /TOKEN
    "block" /TOKEN

END DEFINE

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

    "PUBLIC [access_id_list]"

END DEFINE

DELETE PLACEHOLDER PUT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER PUT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer array of rank one, used to reset the seed, with intent IN."

END DEFINE

DELETE PLACEHOLDER QUALIFIER -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER QUALIFIER -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="" -
    /TYPE=MENU -

    "ASSUME_qual"/PLACEHOLDER
    "CHECK_qual"/PLACEHOLDER
    "EXTEND_qual"/PLACEHOLDER
    "F77_qual"/PLACEHOLDER
    "G_FLOAT_qual"/PLACEHOLDER
    "I4_qual"/PLACEHOLDER

END DEFINE

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

    "'QUOTE'"

END DEFINE

DELETE PLACEHOLDER "Q[+ OR -]{N}..." -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "Q[+ OR -]{N}..." -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Q[+ or -]{n}..." -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

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

END DEFINE

DELETE PLACEHOLDER Q_EDIT_FIELD -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER Q_EDIT_FIELD -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Q" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "Q"

END DEFINE

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

    "A REAL*4 argument"

END DEFINE

DELETE PLACEHOLDER RADIX_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RADIX_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RADIX function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "RADIX ({integer_or_real_arg})"

END DEFINE

DELETE PLACEHOLDER RANDOM_NUMBER_ROUT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RANDOM_NUMBER_ROUT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RANDOM_NUMBER routine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "RANDOM_NUMBER ({HARVEST})"

END DEFINE

DELETE PLACEHOLDER RANDOM_SEED_ROUT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RANDOM_SEED_ROUT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RANDOM_SEED routine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "RANDOM_SEED ([SIZE_seed][,][PUT][,][GET])"

END DEFINE

DELETE PLACEHOLDER RANGE_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RANGE_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RANGE function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "RANGE ({int_or_real_or_complex_arg})"

END DEFINE

DELETE PLACEHOLDER RANI -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RANI -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER RAN_ROUTINE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RAN function (random generator)" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "RAN ({rani})"

END DEFINE

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

    "'READ'"

END DEFINE

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

    "READONLY"

END DEFINE

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

    "'READWRITE'"

END DEFINE

DELETE PLACEHOLDER READWRITE_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER READWRITE_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="READWRITE = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "READWRITE = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER READ_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER READ_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="READ = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "READ = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER READ_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER READ_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="READ statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "READ {read_stmt_type}"

END DEFINE

DELETE PLACEHOLDER READ_STMT_TYPE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER READ_STMT_TYPE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "format_seq"/PLACEHOLDER
    "nonadvance_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 REAL4_CONS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER REAL4_CONS -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER REAL4_TYPE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "REAL*4"

END DEFINE

DELETE PLACEHOLDER REAL8_CONS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER REAL8_CONS -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER REAL8_TYPE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*8" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "REAL*8"

END DEFINE

DELETE PLACEHOLDER REAL_AND_COMPLEX_FIELD_DESCR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER REAL_AND_COMPLEX_FIELD_DESCR -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER REAL_ARG -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=HORIZONTAL -
    /SEPARATOR="," -
    /TYPE=TERMINAL -

    "A real argument"

END DEFINE

DELETE PLACEHOLDER REAL_ARRAY_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER REAL_ARRAY_NAME -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Real array name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Real array name"

END DEFINE

DELETE PLACEHOLDER REAL_ARRAY_REF -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER REAL_ARRAY_REF -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Real Array reference" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{real_array_name}({subscr}...)"

END DEFINE

DELETE PLACEHOLDER REAL_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER REAL_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic conversion to REAL Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "REAL({arg}[,][real_kind_val])"

END DEFINE

DELETE PLACEHOLDER REAL_FUNC_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER REAL_FUNC_NAME -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Real function name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Real function name"

END DEFINE

DELETE PLACEHOLDER REAL_KIND -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER REAL_KIND -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL KIND" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "([KIND=]{real_kind_val})"

END DEFINE

DELETE PLACEHOLDER REAL_KIND_VAL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER REAL_KIND_VAL -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="KIND of REAL" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "re_1"/PLACEHOLDER
    "re_2"/PLACEHOLDER
    "re_3"/PLACEHOLDER
    "re_4"/PLACEHOLDER

END DEFINE

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

    "A real or complex argument"

END DEFINE

DELETE PLACEHOLDER REAL_TYPE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER REAL_TYPE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "REAL"

END DEFINE

DELETE PLACEHOLDER REAL_VAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER REAL_VAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Real variable" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Real variable"

END DEFINE

DELETE PLACEHOLDER REC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER REC -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER RECL -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RECL=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "RECL = {arith_exp}"

END DEFINE

DELETE PLACEHOLDER RECL_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RECL_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RECL = {integer_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "RECL = {integer_scalar}"

END DEFINE

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

    "RECORDSIZE = {arith_exp}"

END DEFINE

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

    "RECORDTYPE = {record_options}"

END DEFINE

DELETE PLACEHOLDER RECORDTYPE_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RECORDTYPE_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RECORDTYPE = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "RECORDTYPE = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER RECORD_ALIGNMENT_TYPE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RECORD_ALIGNMENT_TYPE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "NONE" /TOKEN
    "PACKED /token"
    "NATURAL" /TOKEN

END DEFINE

DELETE PLACEHOLDER RECORD_DECL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RECORD_DECL -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RECORD declaration" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "RECORD /{structure_name}/ {record_name_list}..."

END DEFINE

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

    "The symbolic name of a record."

END DEFINE

DELETE PLACEHOLDER RECORD_NAME_LIST -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RECORD_NAME_LIST -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER RECORD_OPTIONS -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER RECORD_REF -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER RECORD_SPEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Record specifier"

END DEFINE

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

    "RECURSIVE"

END DEFINE

DELETE PLACEHOLDER RELATIONAL_EXP -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RELATIONAL_EXP -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER RELATIVE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RELATIVE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'RELATIVE'"

END DEFINE

DELETE PLACEHOLDER RENAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RENAME -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="local name => use name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "{local_name} => {use_name}"

END DEFINE

DELETE PLACEHOLDER REPEAT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER REPEAT -
    /LANGUAGE="F90" -
    /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 REPEAT_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER REPEAT_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REPEAT function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "REPEAT ({char_exp},{integer_arg})"

END DEFINE

DELETE PLACEHOLDER RESHAPE_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RESHAPE_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RESHAPE function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "RESHAPE ({any_array_arg},{integer_array_name}[,PAD][,ORDER])"

END DEFINE

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

    "RESULT({name})"

END DEFINE

DELETE PLACEHOLDER RETURN_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RETURN_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RETURN statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "subroutine_return"/PLACEHOLDER
    "function_return"/PLACEHOLDER

END DEFINE

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

    "'REWIND'"

END DEFINE

DELETE PLACEHOLDER REWIND_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER REWIND_STMT -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER REWRITE_OPTS -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REWRITE options" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "formatted_rewrite"/PLACEHOLDER
    "unformatted_rewrite"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER RE_1 -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RE_1 -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*1" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "1"

END DEFINE

DELETE PLACEHOLDER RE_2 -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RE_2 -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*4" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "2"

END DEFINE

DELETE PLACEHOLDER RE_3 -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RE_3 -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="REAL*8" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "3"

END DEFINE

DELETE PLACEHOLDER RE_4 -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RE_4 -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="DOUBLE PRECISION REAL" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "4"

END DEFINE

DELETE PLACEHOLDER ROP -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER ROP -
    /LANGUAGE="F90" -
    /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 RRSPACING_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER RRSPACING_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="RRSPACING function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "RRSPACING ({real_arg})"

END DEFINE

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

    "S"

END DEFINE

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

    ":: {save_elm}..."

END DEFINE

DELETE PLACEHOLDER SAVE_ELM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SAVE_ELM -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER SAVE_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SAVE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SAVE [saved_entity_list]"

END DEFINE

DELETE PLACEHOLDER SCALE_FACTOR_DESCR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SCALE_FACTOR_DESCR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="nP" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{pnum}P"

END DEFINE

DELETE PLACEHOLDER SCALE_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SCALE_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SCALE function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SCALE ({real_arg},{integer_arg})"

END DEFINE

DELETE PLACEHOLDER SCAN_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SCAN_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SCAN function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SCAN ({char_exp},{char_exp}[,BACK])"

END DEFINE

DELETE PLACEHOLDER SCRATCH -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SCRATCH -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Create temporary file" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'SCRATCH'"

END DEFINE

DELETE PLACEHOLDER SECNDS_ROUTINE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SECNDS_ROUTINE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SECNDS routine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SECNDS ({x})"

END DEFINE

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

    "'SEGMENTED'"

END DEFINE

DELETE PLACEHOLDER SELECTED_INT_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SELECTED_INT_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SELECTED_INT_KIND function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SELECTED_INT_KIND ({integer_arg})"

END DEFINE

DELETE PLACEHOLDER SELECTED_REAL_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SELECTED_REAL_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SELECTED_REAL_KIND function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SELECTED_REAL_KIND ([integer_arg][,][integer_arg])"

END DEFINE

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

    "'SEQUENTIAL'"

END DEFINE

DELETE PLACEHOLDER SEQUENTIAL_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SEQUENTIAL_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SEQUENTIAL = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SEQUENTIAL = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER SET_EXPONENT_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SET_EXPONENT_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SET_EXPONENT function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SET_EXPONENT ({real_arg},{integer_arg})"

END DEFINE

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

    "SHAPE"

END DEFINE

DELETE PLACEHOLDER SHAPE_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SHAPE_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SHAPE function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SHAPE ({num_array_arg})"

END DEFINE

DELETE PLACEHOLDER SHAPE_OPT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SHAPE_OPT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SHAPE option" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "SHAPE"/PLACEHOLDER
    "NOSHAPE"/PLACEHOLDER

END DEFINE

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

    "SHARED"

END DEFINE

DELETE PLACEHOLDER SIGN -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SIGN -
    /LANGUAGE="F90" -
    /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 SIN -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SIN -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Sine Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SIN ({arg})"

END DEFINE

DELETE PLACEHOLDER SINGLE_CASE_VAL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SINGLE_CASE_VAL -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="case_val" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{case_val}"

END DEFINE

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

    "SINH ({real_arg})"

END DEFINE

DELETE PLACEHOLDER SIN_FUNCTION -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SIN_FUNCTION -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SINE Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "sin"/PLACEHOLDER
    "sind" /TOKEN

END DEFINE

DELETE PLACEHOLDER SIZE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SIZE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "A scalar integer or integer variable specifying the number of characters"
    "actually read."

END DEFINE

DELETE PLACEHOLDER SIZEOF_ROUTINE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SIZEOF_ROUTINE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SIZEOF routine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SIZEOF ({object})"

END DEFINE

DELETE PLACEHOLDER SIZE_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SIZE_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SIZE function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SIZE ({num_array_arg}[,DIM])"

END DEFINE

DELETE PLACEHOLDER SIZE_SEED -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SIZE_SEED -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer variable with intent OUT, that processor sets to size of seed"
    "array."

END DEFINE

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

    "SP"

END DEFINE

DELETE PLACEHOLDER SPACING_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SPACING_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SPACING function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SPACING ({real_arg})"

END DEFINE

DELETE PLACEHOLDER SPECIFICATION_STATEMENT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SPECIFICATION_STATEMENT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Specification Statements" -
    /DUPLICATION=VERTICAL -
    /SEPARATOR="" -
    /TYPE=MENU -

    "declaration"/PLACEHOLDER
    "ALLOCATABLE" /TOKEN
    "AUTOMATIC" /TOKEN
    "COMMON" /TOKEN
    "DATA" /TOKEN
    "derived_type_def"/PLACEHOLDER
    "DIMENSION" /TOKEN
    "ENTRY" /TOKEN
    "EQUIVALENCE" /TOKEN
    "EXTERNAL" /TOKEN
    "FORMAT" /TOKEN
    "INTENT" /TOKEN
    "INTERFACE" /TOKEN
    "INTRINSIC" /TOKEN
    "NAMELIST" /TOKEN
    "OPTIONAL" /TOKEN
    "PARAMETER" /TOKEN
    "POINTER" /TOKEN
    "POINTER_CRAY" /TOKEN
    "PRIVATE" /TOKEN
    "PUBLIC" /TOKEN
    "RECORD" /TOKEN
    "SAVE" /TOKEN
    "STATIC" /TOKEN
    "statement_function_stmt"/PLACEHOLDER
    "STRUCTURE" /TOKEN
    "TARGET" /TOKEN
    "VOLATILE" /TOKEN

END DEFINE

DELETE PLACEHOLDER SPREAD_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SPREAD_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SPREAD function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SPREAD ({any_array_arg},{integer_arg},{integer_arg})"

END DEFINE

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

    "SQRT ({arg})"

END DEFINE

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

    "SS"

END DEFINE

DELETE PLACEHOLDER STATEMENT_FUNCTION_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER STATEMENT_FUNCTION_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="STATEMENT FUNCTION statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{function_name}([p]...) = {expression}"

END DEFINE

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

    "STATIC {name}..."

END DEFINE

DELETE PLACEHOLDER STATUS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER STATUS -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Status of file after closing" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "STATUS={close_status_options}"

END DEFINE

DELETE PLACEHOLDER STATUS_OPEN -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER STATUS_OPEN -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="STATUS=" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "STATUS = {open_status_options}"

END DEFINE

DELETE PLACEHOLDER STOP_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER STOP_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="STOP statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "STOP [disp]"

END DEFINE

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

    "'STREAM'"

END DEFINE

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

    "'STREAM_CR'"

END DEFINE

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

    "'STREAM_LF'"

END DEFINE

DELETE PLACEHOLDER STRIDE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER STRIDE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The increment value for the FORALL subscript variable."

END DEFINE

DELETE PLACEHOLDER STRING -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER STRING -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="31 printable characters" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Any character string"

END DEFINE

DELETE PLACEHOLDER STRUCTURE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER STRUCTURE -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER STRUCTURE_DECL_NAME -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER STRUCTURE_NAME -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER SUB -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="-" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "-"

END DEFINE

DELETE PLACEHOLDER SUBMIT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SUBMIT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Submit as batch job and retain" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'SUBMIT'"

END DEFINE

DELETE PLACEHOLDER SUBMIT_DELETE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SUBMIT_DELETE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Submit as batch job then delete" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'SUBMIT/DELETE'"

END DEFINE

DELETE PLACEHOLDER SUBPROGRAM_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SUBPROGRAM_NAME -
    /LANGUAGE="F90" -
    /AUTO_SUBSTITUTE  -
    /DESCRIPTION="Name of this subprogram" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "name"

END DEFINE

DELETE PLACEHOLDER "SUBROUTINE [NAME]" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "SUBROUTINE [NAME]" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SUBROUTINE [name]"

END DEFINE

DELETE PLACEHOLDER SUBROUTINE_HEADER_COMMENTS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SUBROUTINE_HEADER_COMMENTS -
    /LANGUAGE="F90" -
    /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_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SUBROUTINE_NAME -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Subprogram name or entry point" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Subprogram name or entry point"

END DEFINE

DELETE PLACEHOLDER SUBROUTINE_PROGRAM_UNIT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SUBROUTINE_PROGRAM_UNIT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SUBROUTINE program unit" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "[options_stmt]"
    "[RECURSIVE] SUBROUTINE {subprogram_name} ([p]...)"
    " "
    "![subroutine_header_comments]"
    "[use_stmt]..."
    "[implicit_stmt]"
    "[specification_statement]..."
    " "
    "[executable_statement]..."
    " "
    "[CONTAINS_internal_subprograms]"
    " "
    "RETURN [alternate_return]"
    "END SUBROUTINE [subprogram_name]"
    " "

END DEFINE

DELETE PLACEHOLDER SUBROUTINE_RETURN -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SUBROUTINE_RETURN -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Return from SUBROUTINE" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "RETURN [alternate_return]"

END DEFINE

DELETE PLACEHOLDER SUBROUTINE_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SUBROUTINE_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SUBROUTINE STATEMENT" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "[RECURSIVE] SUBROUTINE {name}([p]...)"

END DEFINE

DELETE PLACEHOLDER SUBROUT_BODY -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SUBROUT_BODY -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Subroutine interface body" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "[RECURSIVE] SUBROUTINE {subprogram_name}([p]...)"
    "    [specification_statement]"
    "    END SUBROUTINE [subprogram_name]"

END DEFINE

DELETE PLACEHOLDER SUBSCR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SUBSCR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Subscript expression" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "{arith_exp}"

END DEFINE

DELETE PLACEHOLDER SUBSCRIPT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SUBSCRIPT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "An integer expression"

END DEFINE

DELETE PLACEHOLDER SUBSCRIPT_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SUBSCRIPT_NAME -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The subscript name of the array elements."

END DEFINE

DELETE PLACEHOLDER SUM_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SUM_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SUM function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SUM({num_array_arg})"

END DEFINE

DELETE PLACEHOLDER SYSTEM_CLOCK_ROUTINE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER SYSTEM_CLOCK_ROUTINE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="SYSTEM_CLOCK subroutine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "SYSTEM_TIME ([integer_var][,integer_var][,integer_var])"

END DEFINE

DELETE PLACEHOLDER S_EDIT_FIELD -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER S_EDIT_FIELD -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="S, SS, SP" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "S"/PLACEHOLDER
    "SS"/PLACEHOLDER
    "SP"/PLACEHOLDER

END DEFINE

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

    "T {tnum}"

END DEFINE

DELETE PLACEHOLDER TAN -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TAN -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic Tangent Function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "TAN ({arg})"

END DEFINE

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

    "TANH ({real_arg})"

END DEFINE

DELETE PLACEHOLDER TAN_FUNCTION -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TAN_FUNCTION -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Tangent Functions" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "tan"/PLACEHOLDER
    "tand" /TOKEN

END DEFINE

DELETE PLACEHOLDER TARGET_DECL -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TARGET_DECL -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Target declarator" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "({dim_decl}...)"

END DEFINE

DELETE PLACEHOLDER TARGET_PART -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TARGET_PART -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The target for your pointer."

END DEFINE

DELETE PLACEHOLDER TARGET_SPEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TARGET_SPEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Target specification" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=NONTERMINAL -

    "{name}[target_decl]"

END DEFINE

DELETE PLACEHOLDER TARGET_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TARGET_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="TARGET statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "TARGET :: {target_spec}..."

END DEFINE

DELETE PLACEHOLDER TBS -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TBS -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "To be specified"

END DEFINE

DELETE PLACEHOLDER TIME_BUF -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TIME_BUF -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER TIME_ROUTINE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="TIME routine" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "TIME ({time_buf})"

END DEFINE

DELETE PLACEHOLDER TINY_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TINY_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="TINY function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "TINY ({real_arg})"

END DEFINE

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

    "TL {tnum}"

END DEFINE

DELETE PLACEHOLDER TNUM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TNUM -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The number of character spaces to tab over"

END DEFINE

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

    "TR {tnum}"

END DEFINE

DELETE PLACEHOLDER TRANSFER_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TRANSFER_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="TRANSFER function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "TRANSFER ({any_array_arg},{any_array_arg}[,][integer_arg])"

END DEFINE

DELETE PLACEHOLDER TRANSPOSE_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TRANSPOSE_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="TRANSPOSE function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "TRANSPOSE ({matrix})"

END DEFINE

DELETE PLACEHOLDER TRIM_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TRIM_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="TRIM function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "TRIM ({char_exp})"

END DEFINE

DELETE PLACEHOLDER TRUE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TRUE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Logical true constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    ".TRUE."

END DEFINE

DELETE PLACEHOLDER TYPE_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TYPE_NAME -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Name defined in a derived_type_def."

END DEFINE

DELETE PLACEHOLDER TYPE_SPEC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TYPE_SPEC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="TYPE specification" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "TYPE({type_name})"

END DEFINE

DELETE PLACEHOLDER TYPE_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER TYPE_STMT -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER T_EDIT_FIELD -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="T edit descriptor" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "T"/PLACEHOLDER
    "TL"/PLACEHOLDER
    "TR"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER UBOUND -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER UBOUND -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Lower bound" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{bounds_exp}"

END DEFINE

DELETE PLACEHOLDER UBOUND_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER UBOUND_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="UBOUND function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "UBOUND ({num_array_arg}[,DIM])"

END DEFINE

DELETE PLACEHOLDER UNDERFLOW -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER UNDERFLOW -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Check for floating underflow" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "UNDERFLOW"

END DEFINE

DELETE PLACEHOLDER UNDERFLOW_OPT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER UNDERFLOW_OPT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Floating underflow" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "UNDERFLOW"/PLACEHOLDER
    "NOUNDERFLOW"/PLACEHOLDER

END DEFINE

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

    "'UNFORMATTED'"

END DEFINE

DELETE PLACEHOLDER UNFORMATTED_DIRECT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER UNFORMATTED_DIRECT -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER UNFORMATTED_INDEXED -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER UNFORMATTED_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="UNFORMATTED = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "UNFORMATTED = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER UNFORMATTED_REWRITE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER UNFORMATTED_REWRITE -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER UNFORMATTED_SEQ -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER UNION_STMT -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER UNIT -
    /LANGUAGE="F90" -
    /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=" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "UNIT=" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "UNIT="

END DEFINE

DELETE PLACEHOLDER UNIT_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER UNIT_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="UNIT = {unit_value}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "UNIT = {unit_value}"

END DEFINE

DELETE PLACEHOLDER UNIT_VALUE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER UNIT_VALUE -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER UNKNOWN -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Use existing file if any" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'UNKNOWN'"

END DEFINE

DELETE PLACEHOLDER UNLOCK_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER UNLOCK_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="UNLOCK statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

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

END DEFINE

DELETE PLACEHOLDER UNPACK_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER UNPACK_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="UNPACK function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "UNPACK ({vector},{mask},{any_array_arg})"

END DEFINE

DELETE PLACEHOLDER UNQUALIFIED_RECORD_REF -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER UNQUALIFIED_RECORD_REF -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER UNSIGN_INT_CONS -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Unsigned Integer constant" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{n}..."

END DEFINE

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

    "USEROPEN = {procedure_name}"

END DEFINE

DELETE PLACEHOLDER USE_NAME -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER USE_NAME -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Name of module entity" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "The name of the entity (in the module) that you are referring to by"
    "the local_name."

END DEFINE

DELETE PLACEHOLDER USE_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER USE_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="USE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "use_whole_module"/PLACEHOLDER
    "use_subset"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER USE_SUBSET -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER USE_SUBSET -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="USE only the specified entities from the module" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "USE {module_name}, ONLY : [rename]..."

END DEFINE

DELETE PLACEHOLDER USE_WHOLE_MODULE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER USE_WHOLE_MODULE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="USE everything in specified module" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "USE {module_name} [, rename_list]"

END DEFINE

DELETE PLACEHOLDER VAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER VAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Symbolic Name" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="," -
    /TYPE=MENU -

    "byte_var"/PLACEHOLDER
    "integer_var"/PLACEHOLDER
    "char_var"/PLACEHOLDER
    "logical_var"/PLACEHOLDER
    "real_var"/PLACEHOLDER
    "complex_var"/PLACEHOLDER

END DEFINE

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

    "'VARIABLE'"

END DEFINE

DELETE PLACEHOLDER VAXD -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER VAXD -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="VAX F, D and H" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'VAXD'"

END DEFINE

DELETE PLACEHOLDER VAXG -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER VAXG -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="VAX F, G and H" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "'VAXG'"

END DEFINE

DELETE PLACEHOLDER VECTOR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER VECTOR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Any vector type."

END DEFINE

DELETE PLACEHOLDER VERIFY_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER VERIFY_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="VERIFY function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "VERIFY ({char_exp},{char_exp}[,BACK])"

END DEFINE

DELETE PLACEHOLDER VOLATILE_ELM -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER VOLATILE_ELM -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR=", " -
    /TYPE=MENU -

    "var"/PLACEHOLDER
    "common_block_ref"/PLACEHOLDER
    "array_name"/PLACEHOLDER

END DEFINE

DELETE PLACEHOLDER VOLATILE_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER VOLATILE_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="VOLATILE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "VOLATILE {volatile_elm}..."

END DEFINE

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

    "ALIGNMENT"
    "NOALIGNMENT"

END DEFINE

DELETE PLACEHOLDER WHERE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER WHERE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="WHERE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "WHERE_stmt" /TOKEN
    "WHERE_construct" /TOKEN

END DEFINE

DELETE PLACEHOLDER WHERE_ASSIGNMENT_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER WHERE_ASSIGNMENT_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="WHERE assignment" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{array_var} = {expression}"

END DEFINE

DELETE PLACEHOLDER WHERE_BODY_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER WHERE_BODY_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "where_assignment_stmt"/PLACEHOLDER
    "WHERE" /TOKEN

END DEFINE

DELETE PLACEHOLDER WIDTH -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER WIDTH -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "External field width in characters"

END DEFINE

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

    "'WRITE'"

END DEFINE

DELETE PLACEHOLDER WRITE_PAR -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER WRITE_PAR -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="WRITE = {char_scalar}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "WRITE = {char_scalar}"

END DEFINE

DELETE PLACEHOLDER WRITE_STMT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER WRITE_STMT -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="WRITE statement" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "WRITE {write_stmt_type}"

END DEFINE

DELETE PLACEHOLDER WRITE_STMT_TYPE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER WRITE_STMT_TYPE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=MENU -

    "wr_format_seq"/PLACEHOLDER
    "wr_nonadvance_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="F90"
DEFINE PLACEHOLDER WR_FORMATTED_DIRECT -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER WR_FORMATTED_INDEXED -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER WR_FORMATTED_INTERNAL -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER WR_FORMAT_SEQ -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER WR_LIST_DIRECTED_INTERNAL -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER WR_LIST_DIRECTED_SEQ -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER WR_NAMELIST_DIRECTED_SEQ -
    /LANGUAGE="F90" -
    /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_NONADVANCE_FORMAT_SEQ -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER WR_NONADVANCE_FORMAT_SEQ -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Nonadvancing formatted sequential READ" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

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

END DEFINE

DELETE PLACEHOLDER WR_UNFORMATTED_DIRECT -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER WR_UNFORMATTED_DIRECT -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER WR_UNFORMATTED_INDEXED -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER WR_UNFORMATTED_SEQ -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER X -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER XNUM -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=TERMINAL -

    "Number of character positions to be passed over"

END DEFINE

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

    ".XOR."

END DEFINE

DELETE PLACEHOLDER XOR_FUNC -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER XOR_FUNC -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Generic XOR function" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "XOR ({arg},{arg})"

END DEFINE

DELETE PLACEHOLDER X_EDIT_FIELD -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER X_EDIT_FIELD -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="X" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{xnum}X"

END DEFINE

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

    "'YES'"

END DEFINE

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

    "'ZERO'"

END DEFINE

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

    "ZEXT({integer_arg})"

END DEFINE

DELETE PLACEHOLDER Z_CODE -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER Z_CODE -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="Z{width}.{min_char}" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

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

END DEFINE

DELETE PLACEHOLDER "[BOUNDS_EXP] :" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "[BOUNDS_EXP] :" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "[bounds_exp] :"

END DEFINE

DELETE PLACEHOLDER "[{UNSIGN_INT_CONS}*]{CONS}" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "[{UNSIGN_INT_CONS}*]{CONS}" -
    /LANGUAGE="F90" -
    /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="F90"
DEFINE PLACEHOLDER "{AOP} {AELM}" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{aop} {aelm} "

END DEFINE

DELETE PLACEHOLDER "{AOP} {BOUND_ELM}" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "{AOP} {BOUND_ELM}" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{aop} {bound_elm}"

END DEFINE

DELETE PLACEHOLDER "{AOP} {INT_ELM}" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "{AOP} {INT_ELM}" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{aop} {int_elm}"

END DEFINE

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

    "{lbound}:"

END DEFINE

DELETE PLACEHOLDER "{LOP}{LOG_ELM}" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "{LOP}{LOG_ELM}" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{lop}{log_elm}"

END DEFINE

DELETE PLACEHOLDER "{UNSIGN_INT_CONS}*" -
    /LANGUAGE="F90"
DEFINE PLACEHOLDER "{UNSIGN_INT_CONS}*" -
    /LANGUAGE="F90" -
    /NOAUTO_SUBSTITUTE -
    /DESCRIPTION="" -
    /DUPLICATION=CONTEXT_DEPENDENT -
    /SEPARATOR="" -
    /TYPE=NONTERMINAL -

    "{unsign_int_cons}*"

END DEFINE

DELETE TOKEN "%DESCR" -
    /LANGUAGE="F90"
DEFINE TOKEN "%DESCR" -
    /LANGUAGE="F90" -
    /DESCRIPTION="Pass by descriptor" -

    "%DESCR({arg}...)"

END DEFINE

DELETE TOKEN "%LOC" -
    /LANGUAGE="F90"
DEFINE TOKEN "%LOC" -
    /LANGUAGE="F90" -
    /DESCRIPTION="Obtain address of argument" -

    "%LOC({arg}...)"

END DEFINE

DELETE TOKEN "%REF" -
    /LANGUAGE="F90"
DEFINE TOKEN "%REF" -
    /LANGUAGE="F90" -
    /DESCRIPTION="Pass by reference" -

    "%REF({arg}...)"

END DEFINE

DELETE TOKEN "%VAL" -
    /LANGUAGE="F90"
DEFINE TOKEN "%VAL" -
    /LANGUAGE="F90" -
    /DESCRIPTION="Pass by immediate value)" -

    "%VAL({arg}...)"

END DEFINE

DELETE TOKEN ABS -
    /LANGUAGE="F90"
DEFINE TOKEN ABS -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ABS

END DEFINE
DELETE TOKEN ACCEPT -
    /LANGUAGE="F90"
DEFINE TOKEN ACCEPT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ACCEPT_STMT

END DEFINE
DELETE TOKEN ACCEPT1 -
    /LANGUAGE="F90"
DEFINE TOKEN ACCEPT1 -
    /LANGUAGE="F90" -
    /DESCRIPTION="Formatted ACCEPT" -

    "ACCEPT {fmt},   [io_elm]..."

END DEFINE

DELETE TOKEN ACCEPT2 -
    /LANGUAGE="F90"
DEFINE TOKEN ACCEPT2 -
    /LANGUAGE="F90" -
    /DESCRIPTION="List-directed ACCEPT" -

    "ACCEPT *, [io_elm]..."

END DEFINE

DELETE TOKEN ACCEPT3 -
    /LANGUAGE="F90"
DEFINE TOKEN ACCEPT3 -
    /LANGUAGE="F90" -
    /DESCRIPTION="Namelist-directed ACCEPT" -

    "ACCEPT {grp_name}"

END DEFINE

DELETE TOKEN ACCESS -
    /LANGUAGE="F90"
DEFINE TOKEN ACCESS -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ACCESS

END DEFINE
DELETE TOKEN ACCESS_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN ACCESS_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ACCESS_PAR

END DEFINE
DELETE TOKEN ACHAR -
    /LANGUAGE="F90"
DEFINE TOKEN ACHAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ACHAR_FUNC

END DEFINE
DELETE TOKEN ACOS -
    /LANGUAGE="F90"
DEFINE TOKEN ACOS -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ACOS_FUNCTION

END DEFINE
DELETE TOKEN ACOSD -
    /LANGUAGE="F90"
DEFINE TOKEN ACOSD -
    /LANGUAGE="F90" -
    /DESCRIPTION="Generic Arc cosine function" -

    "ACOSD({arg})"

END DEFINE

DELETE TOKEN ACTION -
    /LANGUAGE="F90"
DEFINE TOKEN ACTION -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ACTION

END DEFINE
DELETE TOKEN ACTION_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN ACTION_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ACTION_PAR

END DEFINE
DELETE TOKEN ADJUSTL -
    /LANGUAGE="F90"
DEFINE TOKEN ADJUSTL -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ADJUSTL_FUNC

END DEFINE
DELETE TOKEN ADJUSTR -
    /LANGUAGE="F90"
DEFINE TOKEN ADJUSTR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ADJUSTR_FUNC

END DEFINE
DELETE TOKEN AIMAG -
    /LANGUAGE="F90"
DEFINE TOKEN AIMAG -
    /LANGUAGE="F90" -
    /PLACEHOLDER=AIMAG_FUNC

END DEFINE
DELETE TOKEN AINT -
    /LANGUAGE="F90"
DEFINE TOKEN AINT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=AINT

END DEFINE
DELETE TOKEN ALIAS_DIR -
    /LANGUAGE="F90"
DEFINE TOKEN ALIAS_DIR -
    /LANGUAGE="F90" -
    /DESCRIPTION="Specify routine alias" -

    "ALIAS {identifier}, {alias_val}"

END DEFINE

DELETE TOKEN ALIGN -
    /LANGUAGE="F90"
DEFINE TOKEN ALIGN -
    /LANGUAGE="F90" -
    /DESCRIPTION="PSECT alignment" -

    "ALIGN={align_val}"

END DEFINE

DELETE TOKEN ALIGNMENT -
    /LANGUAGE="F90"
DEFINE TOKEN ALIGNMENT -
    /LANGUAGE="F90" -
    /DESCRIPTION="Specify alignment options" -

    "/ALIGNMENT=({align_rule}...)"

END DEFINE

DELETE TOKEN ALIGN_CONS -
    /LANGUAGE="F90"
DEFINE TOKEN ALIGN_CONS -
    /LANGUAGE="F90" -
    /DESCRIPTION="Integer constant from 0 through 16" -

    "Power of two alignment value"

END DEFINE

DELETE TOKEN ALL -
    /LANGUAGE="F90"
DEFINE TOKEN ALL -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ALL_FUNC

END DEFINE
DELETE TOKEN ALLOCATABLE -
    /LANGUAGE="F90"
DEFINE TOKEN ALLOCATABLE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ALLOC_STMT

END DEFINE
DELETE TOKEN ALLOCATABLE_ATTR -
    /LANGUAGE="F90"
DEFINE TOKEN ALLOCATABLE_ATTR -
    /LANGUAGE="F90" -
    /DESCRIPTION="ALLOCATABLE attribute" -

    "ALLOCATABLE"

END DEFINE

DELETE TOKEN ALLOCATE -
    /LANGUAGE="F90"
DEFINE TOKEN ALLOCATE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ALLOCATE

END DEFINE
DELETE TOKEN ALLOCATED -
    /LANGUAGE="F90"
DEFINE TOKEN ALLOCATED -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ALLOCATED_FUNC

END DEFINE
DELETE TOKEN AND -
    /LANGUAGE="F90"
DEFINE TOKEN AND -
    /LANGUAGE="F90" -
    /PLACEHOLDER=AND_FUNC

END DEFINE
DELETE TOKEN ANINT -
    /LANGUAGE="F90"
DEFINE TOKEN ANINT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ANINT

END DEFINE
DELETE TOKEN ANY -
    /LANGUAGE="F90"
DEFINE TOKEN ANY -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ANY_FUNC

END DEFINE
DELETE TOKEN ARITH_RELATIONAL_EXP -
    /LANGUAGE="F90"
DEFINE TOKEN ARITH_RELATIONAL_EXP -
    /LANGUAGE="F90" -
    /DESCRIPTION="Arithmetic relational expression" -

    "{arith_exp} {rop} {arith_exp}"

END DEFINE

DELETE TOKEN ARRAY_ATTR -
    /LANGUAGE="F90"
DEFINE TOKEN ARRAY_ATTR -
    /LANGUAGE="F90" -
    /DESCRIPTION="ARRAY attribute" -

    "ARRAY({dim_decl}...)"

END DEFINE

DELETE TOKEN ASIN -
    /LANGUAGE="F90"
DEFINE TOKEN ASIN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ASIN_FUNCTION

END DEFINE
DELETE TOKEN ASIND -
    /LANGUAGE="F90"
DEFINE TOKEN ASIND -
    /LANGUAGE="F90" -
    /DESCRIPTION="Generic Arc Sine (degree) function" -

    "ASIND ({arg})"

END DEFINE

DELETE TOKEN ASSERT -
    /LANGUAGE="F90"
DEFINE TOKEN ASSERT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ASSERT_STMT

END DEFINE
DELETE TOKEN ASSIGNMENT -
    /LANGUAGE="F90"
DEFINE TOKEN ASSIGNMENT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ASSIGNMENT

END DEFINE
DELETE TOKEN ASSIGNMENT_ARITH -
    /LANGUAGE="F90"
DEFINE TOKEN ASSIGNMENT_ARITH -
    /LANGUAGE="F90" -
    /DESCRIPTION="Arithmetic ASSIGNMENT statement" -

    "{arith_assign_elm} = {arith_exp}"

END DEFINE

DELETE TOKEN ASSIGNMENT_CHAR -
    /LANGUAGE="F90"
DEFINE TOKEN ASSIGNMENT_CHAR -
    /LANGUAGE="F90" -
    /DESCRIPTION="Character ASSIGNMENT Statement" -

    "{char_assign_elm} = {char_exp}"

END DEFINE

DELETE TOKEN ASSIGNMENT_LOG -
    /LANGUAGE="F90"
DEFINE TOKEN ASSIGNMENT_LOG -
    /LANGUAGE="F90" -
    /DESCRIPTION="Logical ASSIGNMENT statement" -

    "{logical_assign_elm} = {logical_exp}"

END DEFINE

DELETE TOKEN ASSIGNMENT_STRUC -
    /LANGUAGE="F90"
DEFINE TOKEN ASSIGNMENT_STRUC -
    /LANGUAGE="F90" -
    /DESCRIPTION="Structured_variable ASSIGNMENT statement" -

    "{unqualified_record_ref} = {unqualified_record_ref}"

END DEFINE

DELETE TOKEN ASSOCIATED -
    /LANGUAGE="F90"
DEFINE TOKEN ASSOCIATED -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ASSOCIATED_FUNC

END DEFINE
DELETE TOKEN ASSOCIATEVARIABLE -
    /LANGUAGE="F90"
DEFINE TOKEN ASSOCIATEVARIABLE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ASSOCIATEVARIABLE

END DEFINE
DELETE TOKEN ATAN -
    /LANGUAGE="F90"
DEFINE TOKEN ATAN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ATAN_FUNCTION

END DEFINE
DELETE TOKEN ATAN2 -
    /LANGUAGE="F90"
DEFINE TOKEN ATAN2 -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ATAN2_FUNCTION

END DEFINE
DELETE TOKEN ATAN2D -
    /LANGUAGE="F90"
DEFINE TOKEN ATAN2D -
    /LANGUAGE="F90" -
    /DESCRIPTION="Generic Arc Tangent2 (degrees) Function" -

    "ATAN2D ({real_arg},{real_arg})"

END DEFINE

DELETE TOKEN ATAND -
    /LANGUAGE="F90"
DEFINE TOKEN ATAND -
    /LANGUAGE="F90" -
    /DESCRIPTION="Generic Arc Tangent (degrees) Function" -

    "ATAND ({real_arg})"

END DEFINE

DELETE TOKEN ATTRIBUTES_DIR -
    /LANGUAGE="F90"
DEFINE TOKEN ATTRIBUTES_DIR -
    /LANGUAGE="F90" -
    /DESCRIPTION="Specify data object and routine attributes" -

    "ATTRIBUTES {att}... :: {attr_object}..."

END DEFINE

DELETE TOKEN AUTOMATIC -
    /LANGUAGE="F90"
DEFINE TOKEN AUTOMATIC -
    /LANGUAGE="F90" -
    /PLACEHOLDER=AUTOMATIC

END DEFINE
DELETE TOKEN BACKSPACE -
    /LANGUAGE="F90"
DEFINE TOKEN BACKSPACE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=BACKSPACE_STMT

END DEFINE
DELETE TOKEN BIT_SIZE -
    /LANGUAGE="F90"
DEFINE TOKEN BIT_SIZE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=BIT_SIZE_FUNC

END DEFINE
DELETE TOKEN BLANK -
    /LANGUAGE="F90"
DEFINE TOKEN BLANK -
    /LANGUAGE="F90" -
    /PLACEHOLDER=BLANK

END DEFINE
DELETE TOKEN BLANK_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN BLANK_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=BLANK_PAR

END DEFINE
DELETE TOKEN BLOCK -
    /LANGUAGE="F90"
DEFINE TOKEN BLOCK -
    /LANGUAGE="F90" -
    /PLACEHOLDER=BLOCKDATA_PROGRAM_UNIT

END DEFINE
DELETE TOKEN BLOCKSIZE -
    /LANGUAGE="F90"
DEFINE TOKEN BLOCKSIZE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=BLOCKSIZE

END DEFINE
DELETE TOKEN BLOCK_DATA_HEADER_COMMENTS -
    /LANGUAGE="F90"
DEFINE TOKEN BLOCK_DATA_HEADER_COMMENTS -
    /LANGUAGE="F90" -
    /PLACEHOLDER=BLOCK_DATA_HEADER_COMMENTS

END DEFINE
DELETE TOKEN BTEST -
    /LANGUAGE="F90"
DEFINE TOKEN BTEST -
    /LANGUAGE="F90" -
    /PLACEHOLDER=BTEST

END DEFINE
DELETE TOKEN BUFFERCOUNT -
    /LANGUAGE="F90"
DEFINE TOKEN BUFFERCOUNT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=BUFFERCOUNT

END DEFINE
DELETE TOKEN BUILT_IN -
    /LANGUAGE="F90"
DEFINE TOKEN BUILT_IN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=BUILT_IN_FUNCTIONS

END DEFINE
DELETE TOKEN BYTE -
    /LANGUAGE="F90"
DEFINE TOKEN BYTE -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as BYTE" -

    "BYTE [attribute_list]:: {name}..."

END DEFINE

DELETE TOKEN CALL -
    /LANGUAGE="F90"
DEFINE TOKEN CALL -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CALL_STMT

END DEFINE
DELETE TOKEN CARRIAGECONTROL -
    /LANGUAGE="F90"
DEFINE TOKEN CARRIAGECONTROL -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CARRIAGECONTROL

END DEFINE
DELETE TOKEN CARRIAGECONTROL_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN CARRIAGECONTROL_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CARRIAGECONTROL_PAR

END DEFINE
DELETE TOKEN CASE -
    /LANGUAGE="F90"
DEFINE TOKEN CASE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CASE

END DEFINE
DELETE TOKEN CDEC$_DIRECTIVE -
    /LANGUAGE="F90"
DEFINE TOKEN CDEC$_DIRECTIVE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CDEC$_DIR

END DEFINE
DELETE TOKEN CEILING -
    /LANGUAGE="F90"
DEFINE TOKEN CEILING -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CEILING_FUNC

END DEFINE
DELETE TOKEN CHAR -
    /LANGUAGE="F90"
DEFINE TOKEN CHAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CHAR_FUNC

END DEFINE
DELETE TOKEN CHARACTER -
    /LANGUAGE="F90"
DEFINE TOKEN CHARACTER -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CHARACTER_DECL

END DEFINE
DELETE TOKEN "CHARACTER {NAME}*{LEN}" -
    /LANGUAGE="F90"
DEFINE TOKEN "CHARACTER {NAME}*{LEN}" -
    /LANGUAGE="F90" -
    /DESCRIPTION="Individual length CHARACTER declaration" -

    "CHARACTER [attribute_list][::] {char_decl}..."

END DEFINE

DELETE TOKEN "CHARACTER(KIND=,LEN=)" -
    /LANGUAGE="F90"
DEFINE TOKEN "CHARACTER(KIND=,LEN=)" -
    /LANGUAGE="F90" -
    /DESCRIPTION="Kind and Length specified CHARACTER declaration" -

    "CHARACTER (KIND={char_kind}[, LEN={len}]) [attribute_list][::] {name}..."

END DEFINE

DELETE TOKEN "CHARACTER*(*) {NAME}" -
    /LANGUAGE="F90"
DEFINE TOKEN "CHARACTER*(*) {NAME}" -
    /LANGUAGE="F90" -
    /DESCRIPTION="Passed length CHARACTER declaration" -

    "CHARACTER*(*) [attribute_list][::] {name}..."

END DEFINE

DELETE TOKEN "CHARACTER*{LEN} {NAME}" -
    /LANGUAGE="F90"
DEFINE TOKEN "CHARACTER*{LEN} {NAME}" -
    /LANGUAGE="F90" -
    /DESCRIPTION="Uniform length CHARACTER declaration" -

    "CHARACTER*{len} [attribute_list][::] {name}..."

END DEFINE

DELETE TOKEN CHARACTER_FIELD -
    /LANGUAGE="F90"
DEFINE TOKEN CHARACTER_FIELD -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CHARACTER_FIELD_DECL

END DEFINE
DELETE TOKEN CHAR_RELATIONAL_EXP -
    /LANGUAGE="F90"
DEFINE TOKEN CHAR_RELATIONAL_EXP -
    /LANGUAGE="F90" -
    /DESCRIPTION="Character relational expression" -

    "{char_exp} {rop} {char_exp}"

END DEFINE

DELETE TOKEN CLOSE -
    /LANGUAGE="F90"
DEFINE TOKEN CLOSE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CLOSE_STMT

END DEFINE
DELETE TOKEN CMPLX -
    /LANGUAGE="F90"
DEFINE TOKEN CMPLX -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CMPLX

END DEFINE
DELETE TOKEN COMMON -
    /LANGUAGE="F90"
DEFINE TOKEN COMMON -
    /LANGUAGE="F90" -
    /PLACEHOLDER=COMMON_STMT

END DEFINE
DELETE TOKEN COMMON_ALIGNMENT -
    /LANGUAGE="F90"
DEFINE TOKEN COMMON_ALIGNMENT -
    /LANGUAGE="F90" -
    /DESCRIPTION="" -

    "COMMONS={common_alignment_type}"

END DEFINE

DELETE TOKEN COMPLEX -
    /LANGUAGE="F90"
DEFINE TOKEN COMPLEX -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as COMPLEX" -

    "COMPLEX[complex_kind] [attribute_list][::] {name}..."

END DEFINE

DELETE TOKEN COMPLEX16 -
    /LANGUAGE="F90"
DEFINE TOKEN COMPLEX16 -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as COMPLEX*16" -

    "COMPLEX*16 [attribute_list][::] {name}..."

END DEFINE

DELETE TOKEN COMPLEX8 -
    /LANGUAGE="F90"
DEFINE TOKEN COMPLEX8 -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as COMPLEX*8" -

    "COMPLEX*8 [attribute_list][::] {name}..."

END DEFINE

DELETE TOKEN CONJG -
    /LANGUAGE="F90"
DEFINE TOKEN CONJG -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CONJG

END DEFINE
DELETE TOKEN CONTINUE -
    /LANGUAGE="F90"
DEFINE TOKEN CONTINUE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CONTINUE_STMT

END DEFINE
DELETE TOKEN CONVERT -
    /LANGUAGE="F90"
DEFINE TOKEN CONVERT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CONVERT

END DEFINE
DELETE TOKEN COS -
    /LANGUAGE="F90"
DEFINE TOKEN COS -
    /LANGUAGE="F90" -
    /PLACEHOLDER=COS_FUNCTION

END DEFINE
DELETE TOKEN COSD -
    /LANGUAGE="F90"
DEFINE TOKEN COSD -
    /LANGUAGE="F90" -
    /DESCRIPTION="Generic Cosine Function (degrees)" -

    "COSD ({arg})"

END DEFINE

DELETE TOKEN COSH -
    /LANGUAGE="F90"
DEFINE TOKEN COSH -
    /LANGUAGE="F90" -
    /PLACEHOLDER=COSH

END DEFINE
DELETE TOKEN COUNT -
    /LANGUAGE="F90"
DEFINE TOKEN COUNT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=COUNT_FUNC

END DEFINE
DELETE TOKEN CSHIFT -
    /LANGUAGE="F90"
DEFINE TOKEN CSHIFT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CSHIFT_FUNC

END DEFINE
DELETE TOKEN CYCLE -
    /LANGUAGE="F90"
DEFINE TOKEN CYCLE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=CYCLE

END DEFINE
DELETE TOKEN C_ATTRIBUTE -
    /LANGUAGE="F90"
DEFINE TOKEN C_ATTRIBUTE -
    /LANGUAGE="F90" -
    /DESCRIPTION="C language semantics" -

    "C"

END DEFINE

DELETE TOKEN DATA -
    /LANGUAGE="F90"
DEFINE TOKEN DATA -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DATA_STMT

END DEFINE
DELETE TOKEN DATE -
    /LANGUAGE="F90"
DEFINE TOKEN DATE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DATE_ROUTINE

END DEFINE
DELETE TOKEN DATE_AND_TIME -
    /LANGUAGE="F90"
DEFINE TOKEN DATE_AND_TIME -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DATE_AND_TIME_ROUT

END DEFINE
DELETE TOKEN DBLE -
    /LANGUAGE="F90"
DEFINE TOKEN DBLE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DBLE

END DEFINE
DELETE TOKEN DCMPLX -
    /LANGUAGE="F90"
DEFINE TOKEN DCMPLX -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DCMPLX

END DEFINE
DELETE TOKEN DEALLOCATE -
    /LANGUAGE="F90"
DEFINE TOKEN DEALLOCATE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DEALLOCATE

END DEFINE
DELETE TOKEN DECLARATION -
    /LANGUAGE="F90"
DEFINE TOKEN DECLARATION -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DECLARATION

END DEFINE
DELETE TOKEN DEFAULT -
    /LANGUAGE="F90"
DEFINE TOKEN DEFAULT -
    /LANGUAGE="F90" -
    /DESCRIPTION="DEFAULT CASE" -

    "DEFAULT"

END DEFINE

DELETE TOKEN DEFAULTFILE -
    /LANGUAGE="F90"
DEFINE TOKEN DEFAULTFILE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DEFAULTFILE

END DEFINE
DELETE TOKEN DEFAULTFILE_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN DEFAULTFILE_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DEFAULTFILE_PAR

END DEFINE
DELETE TOKEN DELETE -
    /LANGUAGE="F90"
DEFINE TOKEN DELETE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DELETE_STMT

END DEFINE
DELETE TOKEN DELIM -
    /LANGUAGE="F90"
DEFINE TOKEN DELIM -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DELIM

END DEFINE
DELETE TOKEN DELIM_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN DELIM_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DELIM_PAR

END DEFINE
DELETE TOKEN DFLOAT -
    /LANGUAGE="F90"
DEFINE TOKEN DFLOAT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DFLOAT

END DEFINE
DELETE TOKEN DIGITS -
    /LANGUAGE="F90"
DEFINE TOKEN DIGITS -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DIGITS_FUNC

END DEFINE
DELETE TOKEN DIM -
    /LANGUAGE="F90"
DEFINE TOKEN DIM -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DIM

END DEFINE
DELETE TOKEN DIMENSION -
    /LANGUAGE="F90"
DEFINE TOKEN DIMENSION -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DIMENSION_STMT

END DEFINE
DELETE TOKEN DIMENSION_ATTR -
    /LANGUAGE="F90"
DEFINE TOKEN DIMENSION_ATTR -
    /LANGUAGE="F90" -
    /DESCRIPTION="DIMENSION attribute" -

    "DIMENSION({dim_decl}...)"

END DEFINE

DELETE TOKEN DIRECT_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN DIRECT_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DIRECT_PAR

END DEFINE
DELETE TOKEN DISPOSE -
    /LANGUAGE="F90"
DEFINE TOKEN DISPOSE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DISPOSE

END DEFINE
DELETE TOKEN DO -
    /LANGUAGE="F90"
DEFINE TOKEN DO -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DO_STMT

END DEFINE
DELETE TOKEN DOT_PRODUCT -
    /LANGUAGE="F90"
DEFINE TOKEN DOT_PRODUCT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=DOT_PRODUCT_FUNC

END DEFINE
DELETE TOKEN "DOUBLE COMPLEX" -
    /LANGUAGE="F90"
DEFINE TOKEN "DOUBLE COMPLEX" -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as DOUBLE COMPLEX" -

    "DOUBLE COMPLEX [attribute_list][::] {name}..."

END DEFINE

DELETE TOKEN "DOUBLE PRECISION" -
    /LANGUAGE="F90"
DEFINE TOKEN "DOUBLE PRECISION" -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as DOUBLE PRECISION" -

    "DOUBLE PRECISION [attribute_list]:: {name}..."

END DEFINE

DELETE TOKEN DO_INDEX -
    /LANGUAGE="F90"
DEFINE TOKEN DO_INDEX -
    /LANGUAGE="F90" -
    /DESCRIPTION="Indexed DO (DO)" -

    "[name :]"
    " DO {do_var}={arith_exp},{arith_exp} [,{arith_exp}]"
    "	{executable_statement}..."
    " END DO [name]"

END DEFINE

DELETE TOKEN DO_INDEX_LABEL -
    /LANGUAGE="F90"
DEFINE TOKEN DO_INDEX_LABEL -
    /LANGUAGE="F90" -
    /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_NUM_TIMES -
    /LANGUAGE="F90"
DEFINE TOKEN DO_NUM_TIMES -
    /LANGUAGE="F90" -
    /DESCRIPTION="DO set number of repetitions" -

    "[name :]"
    " DO ({integer_exp} TIMES)"
    "	{executable_statement}..."
    " END DO [name]"

END DEFINE

DELETE TOKEN DO_NUM_TIMES_LABEL -
    /LANGUAGE="F90"
DEFINE TOKEN DO_NUM_TIMES_LABEL -
    /LANGUAGE="F90" -
    /DESCRIPTION="DO set number of times with label" -

    "DO {lab} ({integer_exp} TIMES)"
    "	{executable_statement}..."
    "{lab}	END DO"

END DEFINE

DELETE TOKEN DO_WHILE -
    /LANGUAGE="F90"
DEFINE TOKEN DO_WHILE -
    /LANGUAGE="F90" -
    /DESCRIPTION="Pretested indefinite DO (DO WHILE)" -

    "[name :]"
    " DO WHILE ({logical_exp})"
    " 	{executable_statement}..."
    " END DO [name]"

END DEFINE

DELETE TOKEN DO_WHILE_LABEL -
    /LANGUAGE="F90"
DEFINE TOKEN DO_WHILE_LABEL -
    /LANGUAGE="F90" -
    /DESCRIPTION="Pretested indefinite DO (DO WHILE) with label" -

    "DO {lab} WHILE ({logical_exp})"
    "	{executable_statement}..."
    "{lab}	END DO"

END DEFINE

DELETE TOKEN DPROD -
    /LANGUAGE="F90"
DEFINE TOKEN DPROD -
    /LANGUAGE="F90" -
    /DESCRIPTION="REAL*8 product of REAL*4's" -

    "DPROD ({r4arg},{r4arg})"

END DEFINE

DELETE TOKEN DREAL -
    /LANGUAGE="F90"
DEFINE TOKEN DREAL -
    /LANGUAGE="F90" -
    /DESCRIPTION="COMPLEX*16 argument, REAL*8 result" -

    "DREAL ({c16arg})"

END DEFINE

DELETE TOKEN ENDFILE -
    /LANGUAGE="F90"
DEFINE TOKEN ENDFILE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ENDFILE_STMT

END DEFINE
DELETE TOKEN END_ATTRIBUTES_DIR -
    /LANGUAGE="F90"
DEFINE TOKEN END_ATTRIBUTES_DIR -
    /LANGUAGE="F90" -
    /DESCRIPTION="" -

    "END ATTRIBUTES"

END DEFINE

DELETE TOKEN END_OPTIONS_DIR -
    /LANGUAGE="F90"
DEFINE TOKEN END_OPTIONS_DIR -
    /LANGUAGE="F90" -
    /DESCRIPTION="" -

    "END OPTIONS"

END DEFINE

DELETE TOKEN ENTRY -
    /LANGUAGE="F90"
DEFINE TOKEN ENTRY -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ENTRY_STMT

END DEFINE
DELETE TOKEN EOSHIFT -
    /LANGUAGE="F90"
DEFINE TOKEN EOSHIFT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=EOSHIFT_FUNC

END DEFINE
DELETE TOKEN EPSILON -
    /LANGUAGE="F90"
DEFINE TOKEN EPSILON -
    /LANGUAGE="F90" -
    /PLACEHOLDER=EPSILON_FUNC

END DEFINE
DELETE TOKEN EQUIVALENCE -
    /LANGUAGE="F90"
DEFINE TOKEN EQUIVALENCE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=EQUIVALENCE_STMT

END DEFINE
DELETE TOKEN ERR -
    /LANGUAGE="F90"
DEFINE TOKEN ERR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ERR

END DEFINE
DELETE TOKEN ERR_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN ERR_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ERR_PAR

END DEFINE
DELETE TOKEN EXECUTABLE_STATEMENT -
    /LANGUAGE="F90"
DEFINE TOKEN EXECUTABLE_STATEMENT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=EXECUTABLE_STATEMENT

END DEFINE
DELETE TOKEN EXIST_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN EXIST_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=EXIST_PAR

END DEFINE
DELETE TOKEN EXIT -
    /LANGUAGE="F90"
DEFINE TOKEN EXIT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=EXIT_STMT

END DEFINE
DELETE TOKEN EXIT_ROUTINE -
    /LANGUAGE="F90"
DEFINE TOKEN EXIT_ROUTINE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=EXIT_ROUTINE

END DEFINE
DELETE TOKEN EXPON -
    /LANGUAGE="F90"
DEFINE TOKEN EXPON -
    /LANGUAGE="F90" -
    /PLACEHOLDER=EXPON

END DEFINE
DELETE TOKEN EXPONENT -
    /LANGUAGE="F90"
DEFINE TOKEN EXPONENT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=EXPONENT_FUNC

END DEFINE
DELETE TOKEN EXTENDSIZE -
    /LANGUAGE="F90"
DEFINE TOKEN EXTENDSIZE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=EXTENDSIZE

END DEFINE
DELETE TOKEN EXTERNAL -
    /LANGUAGE="F90"
DEFINE TOKEN EXTERNAL -
    /LANGUAGE="F90" -
    /PLACEHOLDER=EXTERNAL_STMT

END DEFINE
DELETE TOKEN EXTERNAL_ATTR -
    /LANGUAGE="F90"
DEFINE TOKEN EXTERNAL_ATTR -
    /LANGUAGE="F90" -
    /DESCRIPTION="EXTERNAL attribute" -

    "EXTERNAL"

END DEFINE

DELETE TOKEN FILE -
    /LANGUAGE="F90"
DEFINE TOKEN FILE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=FILE

END DEFINE
DELETE TOKEN FILE_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN FILE_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=FILE_PAR

END DEFINE
DELETE TOKEN FIND -
    /LANGUAGE="F90"
DEFINE TOKEN FIND -
    /LANGUAGE="F90" -
    /PLACEHOLDER=FIND_STMT

END DEFINE
DELETE TOKEN FLOAT -
    /LANGUAGE="F90"
DEFINE TOKEN FLOAT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=FLOAT

END DEFINE
DELETE TOKEN FLOOR -
    /LANGUAGE="F90"
DEFINE TOKEN FLOOR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=FLOOR_FUNC

END DEFINE
DELETE TOKEN FORALL -
    /LANGUAGE="F90"
DEFINE TOKEN FORALL -
    /LANGUAGE="F90" -
    /PLACEHOLDER=FORALL

END DEFINE
DELETE TOKEN FORALL_ASSIGNMENT -
    /LANGUAGE="F90"
DEFINE TOKEN FORALL_ASSIGNMENT -
    /LANGUAGE="F90" -
    /DESCRIPTION="FORALL Element Array Assignment" -

    "FORALL ({forall_triple_spec}...[, logical_exp])"
    "    {forall_assignment_stmt}"

END DEFINE

DELETE TOKEN FORALL_CONSTRUCT -
    /LANGUAGE="F90"
DEFINE TOKEN FORALL_CONSTRUCT -
    /LANGUAGE="F90" -
    /DESCRIPTION="FORALL construct" -

    "FORALL ({forall_triple_spec}...[, logical_exp])"
    "    {forall_body_stmt}"
    "    END FORALL"

END DEFINE

DELETE TOKEN FORM -
    /LANGUAGE="F90"
DEFINE TOKEN FORM -
    /LANGUAGE="F90" -
    /PLACEHOLDER=FORM

END DEFINE
DELETE TOKEN FORMAT -
    /LANGUAGE="F90"
DEFINE TOKEN FORMAT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=FORMAT_STMT

END DEFINE
DELETE TOKEN FORMATTED_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN FORMATTED_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=FORMATTED_PAR

END DEFINE
DELETE TOKEN FORM_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN FORM_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=FORM_PAR

END DEFINE
DELETE TOKEN FRACTION -
    /LANGUAGE="F90"
DEFINE TOKEN FRACTION -
    /LANGUAGE="F90" -
    /PLACEHOLDER=FRACTION_FUNC

END DEFINE
DELETE TOKEN FUNCTION -
    /LANGUAGE="F90"
DEFINE TOKEN FUNCTION -
    /LANGUAGE="F90" -
    /PLACEHOLDER=FUNCTION_PROGRAM_UNIT

END DEFINE
DELETE TOKEN GOTO -
    /LANGUAGE="F90"
DEFINE TOKEN GOTO -
    /LANGUAGE="F90" -
    /PLACEHOLDER=GOTO_STMT

END DEFINE
DELETE TOKEN GO_COMPUTED -
    /LANGUAGE="F90"
DEFINE TOKEN GO_COMPUTED -
    /LANGUAGE="F90" -
    /DESCRIPTION="Computed GO TO statement" -

    "GO TO ({lbl}...), {integer_exp}"

END DEFINE

DELETE TOKEN GO_UNCONDITIONAL -
    /LANGUAGE="F90"
DEFINE TOKEN GO_UNCONDITIONAL -
    /LANGUAGE="F90" -
    /DESCRIPTION="Unconditional GO TO statement" -

    "GO TO {lbl}"

END DEFINE

DELETE TOKEN HEADER_FUNCTION -
    /LANGUAGE="F90"
DEFINE TOKEN HEADER_FUNCTION -
    /LANGUAGE="F90" -
    /PLACEHOLDER=FUNCTION_HEADER_COMMENTS

END DEFINE
DELETE TOKEN HUGE -
    /LANGUAGE="F90"
DEFINE TOKEN HUGE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=HUGE_FUNC

END DEFINE
DELETE TOKEN IACHAR -
    /LANGUAGE="F90"
DEFINE TOKEN IACHAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=IACHAR_FUNC

END DEFINE
DELETE TOKEN IAND -
    /LANGUAGE="F90"
DEFINE TOKEN IAND -
    /LANGUAGE="F90" -
    /PLACEHOLDER=IAND

END DEFINE
DELETE TOKEN IBCLR -
    /LANGUAGE="F90"
DEFINE TOKEN IBCLR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=IBCLR

END DEFINE
DELETE TOKEN IBITS -
    /LANGUAGE="F90"
DEFINE TOKEN IBITS -
    /LANGUAGE="F90" -
    /PLACEHOLDER=IBITS

END DEFINE
DELETE TOKEN IBSET -
    /LANGUAGE="F90"
DEFINE TOKEN IBSET -
    /LANGUAGE="F90" -
    /PLACEHOLDER=IBSET

END DEFINE
DELETE TOKEN ICHAR -
    /LANGUAGE="F90"
DEFINE TOKEN ICHAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ICHAR_FUNC

END DEFINE
DELETE TOKEN IDATE -
    /LANGUAGE="F90"
DEFINE TOKEN IDATE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=IDATE_ROUTINE

END DEFINE
DELETE TOKEN IDENT_DIR -
    /LANGUAGE="F90"
DEFINE TOKEN IDENT_DIR -
    /LANGUAGE="F90" -
    /DESCRIPTION="Specify module identification" -

    "IDENT '{string}'"

END DEFINE

DELETE TOKEN IEOR -
    /LANGUAGE="F90"
DEFINE TOKEN IEOR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=IEOR

END DEFINE
DELETE TOKEN IF -
    /LANGUAGE="F90"
DEFINE TOKEN IF -
    /LANGUAGE="F90" -
    /PLACEHOLDER=IF_STMT

END DEFINE
DELETE TOKEN IFIX -
    /LANGUAGE="F90"
DEFINE TOKEN IFIX -
    /LANGUAGE="F90" -
    /PLACEHOLDER=IFIX

END DEFINE
DELETE TOKEN IF_ARITH -
    /LANGUAGE="F90"
DEFINE TOKEN IF_ARITH -
    /LANGUAGE="F90" -
    /DESCRIPTION="Arithmetic IF statement" -

    "IF ({arith_exp}) {lbl}, {lbl}, {lbl}"

END DEFINE

DELETE TOKEN IF_LOGICAL -
    /LANGUAGE="F90"
DEFINE TOKEN IF_LOGICAL -
    /LANGUAGE="F90" -
    /DESCRIPTION="Logical IF statement" -

    "IF ({logical_exp}) {executable_statement}"

END DEFINE

DELETE TOKEN IF_THEN -
    /LANGUAGE="F90"
DEFINE TOKEN IF_THEN -
    /LANGUAGE="F90" -
    /DESCRIPTION="Block IF statement" -

    "[name :]"
    "   IF ({logical_exp}) THEN"
    "	{executable_statement}..."
    "   [ELSE_IF_THEN]..."
    "   [ELSE]"
    "   END IF [name]"

END DEFINE

DELETE TOKEN ILEN -
    /LANGUAGE="F90"
DEFINE TOKEN ILEN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ILEN_FUNC

END DEFINE
DELETE TOKEN IMAG -
    /LANGUAGE="F90"
DEFINE TOKEN IMAG -
    /LANGUAGE="F90" -
    /PLACEHOLDER=IMAG_FUNC

END DEFINE
DELETE TOKEN IMPLICIT -
    /LANGUAGE="F90"
DEFINE TOKEN IMPLICIT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=IMPLICIT_STMT

END DEFINE
DELETE TOKEN INCLUDE -
    /LANGUAGE="F90"
DEFINE TOKEN INCLUDE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=INCLUDE_STMT

END DEFINE
DELETE TOKEN INCLUDE_FILE -
    /LANGUAGE="F90"
DEFINE TOKEN INCLUDE_FILE -
    /LANGUAGE="F90" -
    /DESCRIPTION="Include source from a file" -

    "INCLUDE '{file_spec} [list_opt]'"

END DEFINE

DELETE TOKEN INCLUDE_LIBRARY_MODULE -
    /LANGUAGE="F90"
DEFINE TOKEN INCLUDE_LIBRARY_MODULE -
    /LANGUAGE="F90" -
    /DESCRIPTION="Include source from a text library" -

    "INCLUDE '[file_spec]({module_name})[list_opt]'"

END DEFINE

DELETE TOKEN INDEX -
    /LANGUAGE="F90"
DEFINE TOKEN INDEX -
    /LANGUAGE="F90" -
    /PLACEHOLDER=INDEX_FUNC

END DEFINE
DELETE TOKEN INITIALSIZE -
    /LANGUAGE="F90"
DEFINE TOKEN INITIALSIZE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=INITIALSIZE

END DEFINE
DELETE TOKEN INOUT_INTENT -
    /LANGUAGE="F90"
DEFINE TOKEN INOUT_INTENT -
    /LANGUAGE="F90" -
    /DESCRIPTION="Intent both IN and OUT" -

    "INOUT"

END DEFINE

DELETE TOKEN INQUIRE -
    /LANGUAGE="F90"
DEFINE TOKEN INQUIRE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=INQUIRE_STMT

END DEFINE
DELETE TOKEN INT -
    /LANGUAGE="F90"
DEFINE TOKEN INT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=INT

END DEFINE
DELETE TOKEN INTEGER -
    /LANGUAGE="F90"
DEFINE TOKEN INTEGER -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as INTEGER" -

    "INTEGER[integer_kind] [attribute_list]:: {name}..."

END DEFINE

DELETE TOKEN INTEGER2 -
    /LANGUAGE="F90"
DEFINE TOKEN INTEGER2 -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as INTEGER*2" -

    "INTEGER*2 [attribute_list]:: {name}..."

END DEFINE

DELETE TOKEN INTEGER4 -
    /LANGUAGE="F90"
DEFINE TOKEN INTEGER4 -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as INTEGER*4" -

    "INTEGER*4 [attribute_list]:: {name}..."

END DEFINE

DELETE TOKEN INTEGER8 -
    /LANGUAGE="F90"
DEFINE TOKEN INTEGER8 -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as INTEGER*8" -

    "INTEGER*8 [attribute_list]:: {name}..."

END DEFINE

DELETE TOKEN INTENT -
    /LANGUAGE="F90"
DEFINE TOKEN INTENT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=INTENT

END DEFINE
DELETE TOKEN INTENT_ATTR -
    /LANGUAGE="F90"
DEFINE TOKEN INTENT_ATTR -
    /LANGUAGE="F90" -
    /DESCRIPTION="INTENT attribute" -

    "INTENT({intent_spec})"

END DEFINE

DELETE TOKEN INTERFACE -
    /LANGUAGE="F90"
DEFINE TOKEN INTERFACE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=INTERFACE

END DEFINE
DELETE TOKEN INTERNAL_FUNCTION -
    /LANGUAGE="F90"
DEFINE TOKEN INTERNAL_FUNCTION -
    /LANGUAGE="F90" -
    /PLACEHOLDER=INTERNAL_FUNCTION

END DEFINE
DELETE TOKEN INTERNAL_SUBPROGRAM -
    /LANGUAGE="F90"
DEFINE TOKEN INTERNAL_SUBPROGRAM -
    /LANGUAGE="F90" -
    /PLACEHOLDER=INTERNAL_SUBPROGRAM

END DEFINE
DELETE TOKEN INTERNAL_SUBROUTINE -
    /LANGUAGE="F90"
DEFINE TOKEN INTERNAL_SUBROUTINE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=INTERNAL_SUBROUTINE

END DEFINE
DELETE TOKEN INTRINSIC -
    /LANGUAGE="F90"
DEFINE TOKEN INTRINSIC -
    /LANGUAGE="F90" -
    /PLACEHOLDER=INTRINSIC_STMT

END DEFINE
DELETE TOKEN INTRINSIC_ATTR -
    /LANGUAGE="F90"
DEFINE TOKEN INTRINSIC_ATTR -
    /LANGUAGE="F90" -
    /DESCRIPTION="INTRINSIC attribute" -

    "INTRINSIC"

END DEFINE

DELETE TOKEN IN_INTENT -
    /LANGUAGE="F90"
DEFINE TOKEN IN_INTENT -
    /LANGUAGE="F90" -
    /DESCRIPTION="Intent IN only" -

    "IN"

END DEFINE

DELETE TOKEN IOR -
    /LANGUAGE="F90"
DEFINE TOKEN IOR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=IOR

END DEFINE
DELETE TOKEN IOSTAT_OPEN -
    /LANGUAGE="F90"
DEFINE TOKEN IOSTAT_OPEN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=IOSTAT_OPEN

END DEFINE
DELETE TOKEN IOSTAT_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN IOSTAT_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=IOSTAT_PAR

END DEFINE
DELETE TOKEN ISHFT -
    /LANGUAGE="F90"
DEFINE TOKEN ISHFT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ISHFT

END DEFINE
DELETE TOKEN ISHFTC -
    /LANGUAGE="F90"
DEFINE TOKEN ISHFTC -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ISHFTC

END DEFINE
DELETE TOKEN KEY -
    /LANGUAGE="F90"
DEFINE TOKEN KEY -
    /LANGUAGE="F90" -
    /DESCRIPTION="Exact key match" -

    "KEY = {key_exp}"

END DEFINE

DELETE TOKEN KEYED_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN KEYED_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=KEYED_PAR

END DEFINE
DELETE TOKEN KEYEQ -
    /LANGUAGE="F90"
DEFINE TOKEN KEYEQ -
    /LANGUAGE="F90" -
    /DESCRIPTION="Exact key match" -

    "KEYEQ = {key_exp}"

END DEFINE

DELETE TOKEN KEYGE -
    /LANGUAGE="F90"
DEFINE TOKEN KEYGE -
    /LANGUAGE="F90" -
    /DESCRIPTION="Key greater than or equal" -

    "KEYGE = {key_exp}"

END DEFINE

DELETE TOKEN KEYGT -
    /LANGUAGE="F90"
DEFINE TOKEN KEYGT -
    /LANGUAGE="F90" -
    /DESCRIPTION="Key greater than" -

    "KEYGT = {key_exp}"

END DEFINE

DELETE TOKEN KEYLE -
    /LANGUAGE="F90"
DEFINE TOKEN KEYLE -
    /LANGUAGE="F90" -
    /DESCRIPTION="Key less than or equal" -

    "KEYLE = {key_exp}"

END DEFINE

DELETE TOKEN KEYLT -
    /LANGUAGE="F90"
DEFINE TOKEN KEYLT -
    /LANGUAGE="F90" -
    /DESCRIPTION="Key less than" -

    "KEYLT = {key_exp}"

END DEFINE

DELETE TOKEN KEYNXT -
    /LANGUAGE="F90"
DEFINE TOKEN KEYNXT -
    /LANGUAGE="F90" -
    /DESCRIPTION="Key equal to or next in index direction" -

    "KEYNXT = {key_exp}"

END DEFINE

DELETE TOKEN KEYNXTNE -
    /LANGUAGE="F90"
DEFINE TOKEN KEYNXTNE -
    /LANGUAGE="F90" -
    /DESCRIPTION="Next key not equal to in index direction" -

    "KEYNXTNE = {key_exp}"

END DEFINE

DELETE TOKEN KEY_OPEN -
    /LANGUAGE="F90"
DEFINE TOKEN KEY_OPEN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=KEY_OPEN

END DEFINE
DELETE TOKEN KIND -
    /LANGUAGE="F90"
DEFINE TOKEN KIND -
    /LANGUAGE="F90" -
    /PLACEHOLDER=KIND_FUNC

END DEFINE
DELETE TOKEN "KIND=" -
    /LANGUAGE="F90"
DEFINE TOKEN "KIND=" -
    /LANGUAGE="F90" -
    /PLACEHOLDER="KIND="

END DEFINE
DELETE TOKEN LBOUND -
    /LANGUAGE="F90"
DEFINE TOKEN LBOUND -
    /LANGUAGE="F90" -
    /PLACEHOLDER=LBOUND_FUNC

END DEFINE
DELETE TOKEN LEN -
    /LANGUAGE="F90"
DEFINE TOKEN LEN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=LENGTH_FUNC

END DEFINE
DELETE TOKEN LEN_TRIM -
    /LANGUAGE="F90"
DEFINE TOKEN LEN_TRIM -
    /LANGUAGE="F90" -
    /PLACEHOLDER=LEN_TRIM_FUNC

END DEFINE
DELETE TOKEN LGE -
    /LANGUAGE="F90"
DEFINE TOKEN LGE -
    /LANGUAGE="F90" -
    /DESCRIPTION="Character relational LGE function" -

    "LGE ({char_exp})"

END DEFINE

DELETE TOKEN LGT -
    /LANGUAGE="F90"
DEFINE TOKEN LGT -
    /LANGUAGE="F90" -
    /DESCRIPTION="Character relational LGT function" -

    "LGT ({char_exp})"

END DEFINE

DELETE TOKEN LLE -
    /LANGUAGE="F90"
DEFINE TOKEN LLE -
    /LANGUAGE="F90" -
    /DESCRIPTION="Character relational LLE function" -

    "LLE ({char_exp})"

END DEFINE

DELETE TOKEN LLT -
    /LANGUAGE="F90"
DEFINE TOKEN LLT -
    /LANGUAGE="F90" -
    /DESCRIPTION="Character relational LLT function" -

    "LLT ({char_exp})"

END DEFINE

DELETE TOKEN LOG -
    /LANGUAGE="F90"
DEFINE TOKEN LOG -
    /LANGUAGE="F90" -
    /PLACEHOLDER=LOG

END DEFINE
DELETE TOKEN LOG10 -
    /LANGUAGE="F90"
DEFINE TOKEN LOG10 -
    /LANGUAGE="F90" -
    /PLACEHOLDER=LOG10

END DEFINE
DELETE TOKEN LOGICAL -
    /LANGUAGE="F90"
DEFINE TOKEN LOGICAL -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as LOGICAL" -

    "LOGICAL[logical_kind] [attribute_list]:: {name}..."

END DEFINE

DELETE TOKEN LOGICAL1 -
    /LANGUAGE="F90"
DEFINE TOKEN LOGICAL1 -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as LOGICAL*1" -

    "LOGICAL*1 [attribute_list]:: {name}..."

END DEFINE

DELETE TOKEN LOGICAL2 -
    /LANGUAGE="F90"
DEFINE TOKEN LOGICAL2 -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as LOGICAL*2" -

    "LOGICAL*2 [attribute_list]:: {name}..."

END DEFINE

DELETE TOKEN LOGICAL4 -
    /LANGUAGE="F90"
DEFINE TOKEN LOGICAL4 -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as LOGICAL*4" -

    "LOGICAL*4 [attribute_list]:: {name}..."

END DEFINE

DELETE TOKEN LOGICAL8 -
    /LANGUAGE="F90"
DEFINE TOKEN LOGICAL8 -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as LOGICAL*8" -

    "LOGICAL*8 [attribute_list]:: {name}..."

END DEFINE

DELETE TOKEN LOGICAL_FUNC -
    /LANGUAGE="F90"
DEFINE TOKEN LOGICAL_FUNC -
    /LANGUAGE="F90" -
    /PLACEHOLDER=LOGICAL_FUNC

END DEFINE
DELETE TOKEN MAIN -
    /LANGUAGE="F90"
DEFINE TOKEN MAIN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MAIN_PROGRAM_UNIT

END DEFINE
DELETE TOKEN MAIN_HEADER_COMMENTS -
    /LANGUAGE="F90"
DEFINE TOKEN MAIN_HEADER_COMMENTS -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MAIN_HEADER_COMMENTS

END DEFINE
DELETE TOKEN MAP -
    /LANGUAGE="F90"
DEFINE TOKEN MAP -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MAP_STMT

END DEFINE
DELETE TOKEN MATMUL -
    /LANGUAGE="F90"
DEFINE TOKEN MATMUL -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MATMUL_FUNC

END DEFINE
DELETE TOKEN MAX -
    /LANGUAGE="F90"
DEFINE TOKEN MAX -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MAX

END DEFINE
DELETE TOKEN MAXEXPONENT -
    /LANGUAGE="F90"
DEFINE TOKEN MAXEXPONENT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MAXEXPONENT_FUNC

END DEFINE
DELETE TOKEN MAXLOC -
    /LANGUAGE="F90"
DEFINE TOKEN MAXLOC -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MAXLOC_FUNC

END DEFINE
DELETE TOKEN MAXREC -
    /LANGUAGE="F90"
DEFINE TOKEN MAXREC -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MAXREC

END DEFINE
DELETE TOKEN MAXVAL -
    /LANGUAGE="F90"
DEFINE TOKEN MAXVAL -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MAXVAL_FUNC

END DEFINE
DELETE TOKEN MERGE -
    /LANGUAGE="F90"
DEFINE TOKEN MERGE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MERGE_FUNC

END DEFINE
DELETE TOKEN MIN -
    /LANGUAGE="F90"
DEFINE TOKEN MIN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MIN_FUNC

END DEFINE
DELETE TOKEN MINEXPONENT -
    /LANGUAGE="F90"
DEFINE TOKEN MINEXPONENT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MINEXPONENT_FUNC

END DEFINE
DELETE TOKEN MINLOC -
    /LANGUAGE="F90"
DEFINE TOKEN MINLOC -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MINLOC_FUNC

END DEFINE
DELETE TOKEN MINVAL -
    /LANGUAGE="F90"
DEFINE TOKEN MINVAL -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MINVAL_FUNC

END DEFINE
DELETE TOKEN MOD -
    /LANGUAGE="F90"
DEFINE TOKEN MOD -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MOD

END DEFINE
DELETE TOKEN MODULE -
    /LANGUAGE="F90"
DEFINE TOKEN MODULE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MODULE_PROGRAM_UNIT

END DEFINE
DELETE TOKEN MODULE_FUNCTION -
    /LANGUAGE="F90"
DEFINE TOKEN MODULE_FUNCTION -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MODULE_FUNCTION

END DEFINE
DELETE TOKEN MODULE_HEADER_COMMENTS -
    /LANGUAGE="F90"
DEFINE TOKEN MODULE_HEADER_COMMENTS -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MODULE_HEADER_COMMENTS

END DEFINE
DELETE TOKEN MODULE_SUBPROGRAM -
    /LANGUAGE="F90"
DEFINE TOKEN MODULE_SUBPROGRAM -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MODULE_SUBPROGRAM

END DEFINE
DELETE TOKEN MODULE_SUBROUTINE -
    /LANGUAGE="F90"
DEFINE TOKEN MODULE_SUBROUTINE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MODULE_SUBROUTINE

END DEFINE
DELETE TOKEN MODULO -
    /LANGUAGE="F90"
DEFINE TOKEN MODULO -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MODULO_FUNC

END DEFINE
DELETE TOKEN MVBITS -
    /LANGUAGE="F90"
DEFINE TOKEN MVBITS -
    /LANGUAGE="F90" -
    /PLACEHOLDER=MVBITS_ROUTINE

END DEFINE
DELETE TOKEN NAMED_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN NAMED_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=NAMED_PAR

END DEFINE
DELETE TOKEN NAMELIST -
    /LANGUAGE="F90"
DEFINE TOKEN NAMELIST -
    /LANGUAGE="F90" -
    /PLACEHOLDER=NAMELIST_STMT

END DEFINE
DELETE TOKEN NAME_OPEN -
    /LANGUAGE="F90"
DEFINE TOKEN NAME_OPEN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=NAME_OPEN

END DEFINE
DELETE TOKEN NAME_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN NAME_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=NAME_PAR

END DEFINE
DELETE TOKEN NATURAL -
    /LANGUAGE="F90"
DEFINE TOKEN NATURAL -
    /LANGUAGE="F90" -
    /DESCRIPTION="Alignment on element size boundaries" -

    "NATURAL"

END DEFINE

DELETE TOKEN NEAREST -
    /LANGUAGE="F90"
DEFINE TOKEN NEAREST -
    /LANGUAGE="F90" -
    /PLACEHOLDER=NEAREST_FUNC

END DEFINE
DELETE TOKEN NEXTREC_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN NEXTREC_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=NEXTREC_PAR

END DEFINE
DELETE TOKEN NINT -
    /LANGUAGE="F90"
DEFINE TOKEN NINT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=NINT

END DEFINE
DELETE TOKEN NONE -
    /LANGUAGE="F90"
DEFINE TOKEN NONE -
    /LANGUAGE="F90" -
    /DESCRIPTION="No alignment between elements" -

    "NONE"

END DEFINE

DELETE TOKEN NOSPANBLOCKS -
    /LANGUAGE="F90"
DEFINE TOKEN NOSPANBLOCKS -
    /LANGUAGE="F90" -
    /PLACEHOLDER=NOSPANBLOCKS

END DEFINE
DELETE TOKEN NOT -
    /LANGUAGE="F90"
DEFINE TOKEN NOT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=NOT_FUNC

END DEFINE
DELETE TOKEN NULLIFY -
    /LANGUAGE="F90"
DEFINE TOKEN NULLIFY -
    /LANGUAGE="F90" -
    /PLACEHOLDER=NULLIFY

END DEFINE
DELETE TOKEN NUMBER_OF_PROCESSORS -
    /LANGUAGE="F90"
DEFINE TOKEN NUMBER_OF_PROCESSORS -
    /LANGUAGE="F90" -
    /PLACEHOLDER=NUMBER_OF_PROCESSORS_FUNC

END DEFINE
DELETE TOKEN NUMBER_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN NUMBER_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=NUMBER_PAR

END DEFINE
DELETE TOKEN OPEN -
    /LANGUAGE="F90"
DEFINE TOKEN OPEN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=OPEN_STMT

END DEFINE
DELETE TOKEN OPENED_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN OPENED_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=OPENED_PAR

END DEFINE
DELETE TOKEN OPERATOR -
    /LANGUAGE="F90"
DEFINE TOKEN OPERATOR -
    /LANGUAGE="F90" -
    /DESCRIPTION="OPERATOR(defined_op)" -

    "OPERATOR ({defined_op})"

END DEFINE

DELETE TOKEN OPTIONAL -
    /LANGUAGE="F90"
DEFINE TOKEN OPTIONAL -
    /LANGUAGE="F90" -
    /PLACEHOLDER=OPTIONAL

END DEFINE
DELETE TOKEN OPTIONAL_ATTR -
    /LANGUAGE="F90"
DEFINE TOKEN OPTIONAL_ATTR -
    /LANGUAGE="F90" -
    /DESCRIPTION="OPTIONAL attribute" -

    "OPTIONAL"

END DEFINE

DELETE TOKEN OPTIONS -
    /LANGUAGE="F90"
DEFINE TOKEN OPTIONS -
    /LANGUAGE="F90" -
    /PLACEHOLDER=OPTIONS_STMT

END DEFINE
DELETE TOKEN OPTIONS_DIR -
    /LANGUAGE="F90"
DEFINE TOKEN OPTIONS_DIR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=OPTIONS_DIR

END DEFINE
DELETE TOKEN OR -
    /LANGUAGE="F90"
DEFINE TOKEN OR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=OR_FUNC

END DEFINE
DELETE TOKEN ORGANIZATION -
    /LANGUAGE="F90"
DEFINE TOKEN ORGANIZATION -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ORGANIZATION

END DEFINE
DELETE TOKEN ORGANIZATION_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN ORGANIZATION_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ORGANIZATION_PAR

END DEFINE
DELETE TOKEN OUT_INTENT -
    /LANGUAGE="F90"
DEFINE TOKEN OUT_INTENT -
    /LANGUAGE="F90" -
    /DESCRIPTION="Intent OUT only" -

    "OUT"

END DEFINE

DELETE TOKEN PACK -
    /LANGUAGE="F90"
DEFINE TOKEN PACK -
    /LANGUAGE="F90" -
    /PLACEHOLDER=PACK_FUNC

END DEFINE
DELETE TOKEN PACKED -
    /LANGUAGE="F90"
DEFINE TOKEN PACKED -
    /LANGUAGE="F90" -
    /DESCRIPTION="No alignment between elements" -

    "PACKED"

END DEFINE

DELETE TOKEN PAD -
    /LANGUAGE="F90"
DEFINE TOKEN PAD -
    /LANGUAGE="F90" -
    /PLACEHOLDER=PAD

END DEFINE
DELETE TOKEN PAD_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN PAD_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=PAD_PAR

END DEFINE
DELETE TOKEN PARAMETER -
    /LANGUAGE="F90"
DEFINE TOKEN PARAMETER -
    /LANGUAGE="F90" -
    /PLACEHOLDER=PARAMETER_STMT

END DEFINE
DELETE TOKEN PARAMETER_ATTR -
    /LANGUAGE="F90"
DEFINE TOKEN PARAMETER_ATTR -
    /LANGUAGE="F90" -
    /DESCRIPTION="PARAMETER attribute" -

    "PARAMETER"

END DEFINE

DELETE TOKEN PAUSE -
    /LANGUAGE="F90"
DEFINE TOKEN PAUSE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=PAUSE_STMT

END DEFINE
DELETE TOKEN POINTER -
    /LANGUAGE="F90"
DEFINE TOKEN POINTER -
    /LANGUAGE="F90" -
    /PLACEHOLDER=POINTER_STMT

END DEFINE
DELETE TOKEN POINTER_ATTR -
    /LANGUAGE="F90"
DEFINE TOKEN POINTER_ATTR -
    /LANGUAGE="F90" -
    /DESCRIPTION="POINTER attribute" -

    "POINTER"

END DEFINE

DELETE TOKEN POINTER_CRAY -
    /LANGUAGE="F90"
DEFINE TOKEN POINTER_CRAY -
    /LANGUAGE="F90" -
    /PLACEHOLDER=POINTER_CRAY

END DEFINE
DELETE TOKEN POSITION -
    /LANGUAGE="F90"
DEFINE TOKEN POSITION -
    /LANGUAGE="F90" -
    /PLACEHOLDER=POSITION

END DEFINE
DELETE TOKEN POSITION_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN POSITION_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=POSITION_PAR

END DEFINE
DELETE TOKEN PRECISION -
    /LANGUAGE="F90"
DEFINE TOKEN PRECISION -
    /LANGUAGE="F90" -
    /PLACEHOLDER=PRECISION_FUNC

END DEFINE
DELETE TOKEN PRESENT -
    /LANGUAGE="F90"
DEFINE TOKEN PRESENT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=PRESENT_FUNC

END DEFINE
DELETE TOKEN PRINT -
    /LANGUAGE="F90"
DEFINE TOKEN PRINT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=PRINT_STMT

END DEFINE
DELETE TOKEN PRINT1 -
    /LANGUAGE="F90"
DEFINE TOKEN PRINT1 -
    /LANGUAGE="F90" -
    /DESCRIPTION="PRINT {fmt}, [io_elm]..." -

    "PRINT {fmt}, [io_elm]..."

END DEFINE

DELETE TOKEN PRINT2 -
    /LANGUAGE="F90"
DEFINE TOKEN PRINT2 -
    /LANGUAGE="F90" -
    /DESCRIPTION="PRINT *, [io_elm]..." -

    "PRINT *, [io_elm]..."

END DEFINE

DELETE TOKEN PRINT3 -
    /LANGUAGE="F90"
DEFINE TOKEN PRINT3 -
    /LANGUAGE="F90" -
    /DESCRIPTION="PRINT {grp_name}" -

    "PRINT {grp_name}"

END DEFINE

DELETE TOKEN PRIVATE -
    /LANGUAGE="F90"
DEFINE TOKEN PRIVATE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=PRIVATE

END DEFINE
DELETE TOKEN PRIVATE_ATTR -
    /LANGUAGE="F90"
DEFINE TOKEN PRIVATE_ATTR -
    /LANGUAGE="F90" -
    /DESCRIPTION="PRIVATE attribute" -

    "PRIVATE"

END DEFINE

DELETE TOKEN PROCESSOR_SHAPE -
    /LANGUAGE="F90"
DEFINE TOKEN PROCESSOR_SHAPE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=PROCESSOR_SHAPE_FUNC

END DEFINE
DELETE TOKEN PRODUCT -
    /LANGUAGE="F90"
DEFINE TOKEN PRODUCT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=PRODUCT_FUNC

END DEFINE
DELETE TOKEN PROGRAM -
    /LANGUAGE="F90"
DEFINE TOKEN PROGRAM -
    /LANGUAGE="F90" -
    /PLACEHOLDER=PROGRAM_STMT

END DEFINE
DELETE TOKEN PROGRAM_UNIT -
    /LANGUAGE="F90"
DEFINE TOKEN PROGRAM_UNIT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=PROGRAM_UNIT

END DEFINE
DELETE TOKEN PSECT_DIR -
    /LANGUAGE="F90"
DEFINE TOKEN PSECT_DIR -
    /LANGUAGE="F90" -
    /DESCRIPTION="Specify PSECT attributes" -

    "PSECT /{common_blk_name}/ {pattr}..."

END DEFINE

DELETE TOKEN PUBLIC -
    /LANGUAGE="F90"
DEFINE TOKEN PUBLIC -
    /LANGUAGE="F90" -
    /PLACEHOLDER=PUBLIC

END DEFINE
DELETE TOKEN PUBLIC_ATTR -
    /LANGUAGE="F90"
DEFINE TOKEN PUBLIC_ATTR -
    /LANGUAGE="F90" -
    /DESCRIPTION="PUBLIC attribute" -

    "PUBLIC"

END DEFINE

DELETE TOKEN RADIX -
    /LANGUAGE="F90"
DEFINE TOKEN RADIX -
    /LANGUAGE="F90" -
    /PLACEHOLDER=RADIX_FUNC

END DEFINE
DELETE TOKEN RAN -
    /LANGUAGE="F90"
DEFINE TOKEN RAN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=RAN_ROUTINE

END DEFINE
DELETE TOKEN RANDOM_NUMBER -
    /LANGUAGE="F90"
DEFINE TOKEN RANDOM_NUMBER -
    /LANGUAGE="F90" -
    /PLACEHOLDER=RANDOM_NUMBER_ROUT

END DEFINE
DELETE TOKEN RANDOM_SEED -
    /LANGUAGE="F90"
DEFINE TOKEN RANDOM_SEED -
    /LANGUAGE="F90" -
    /PLACEHOLDER=RANDOM_SEED_ROUT

END DEFINE
DELETE TOKEN RANGE -
    /LANGUAGE="F90"
DEFINE TOKEN RANGE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=RANGE_FUNC

END DEFINE
DELETE TOKEN READ -
    /LANGUAGE="F90"
DEFINE TOKEN READ -
    /LANGUAGE="F90" -
    /PLACEHOLDER=READ_STMT

END DEFINE
DELETE TOKEN READONLY -
    /LANGUAGE="F90"
DEFINE TOKEN READONLY -
    /LANGUAGE="F90" -
    /PLACEHOLDER=READONLY

END DEFINE
DELETE TOKEN READWRITE_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN READWRITE_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=READWRITE_PAR

END DEFINE
DELETE TOKEN READ_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN READ_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=READ_PAR

END DEFINE
DELETE TOKEN REAL -
    /LANGUAGE="F90"
DEFINE TOKEN REAL -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as REAL" -

    "REAL[real_kind] [attribute_list]:: {name}..."

END DEFINE

DELETE TOKEN REAL4 -
    /LANGUAGE="F90"
DEFINE TOKEN REAL4 -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as REAL*4" -

    "REAL*4 [attribute_list]:: {name}..."

END DEFINE

DELETE TOKEN REAL8 -
    /LANGUAGE="F90"
DEFINE TOKEN REAL8 -
    /LANGUAGE="F90" -
    /DESCRIPTION="Declare as REAL*8" -

    "REAL*8 [attribute_list]:: {name}..."

END DEFINE

DELETE TOKEN REAL_FUNC -
    /LANGUAGE="F90"
DEFINE TOKEN REAL_FUNC -
    /LANGUAGE="F90" -
    /PLACEHOLDER=REAL_FUNC

END DEFINE
DELETE TOKEN RECL -
    /LANGUAGE="F90"
DEFINE TOKEN RECL -
    /LANGUAGE="F90" -
    /PLACEHOLDER=RECL

END DEFINE
DELETE TOKEN RECL_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN RECL_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=RECL_PAR

END DEFINE
DELETE TOKEN RECORD -
    /LANGUAGE="F90"
DEFINE TOKEN RECORD -
    /LANGUAGE="F90" -
    /PLACEHOLDER=RECORD_DECL

END DEFINE
DELETE TOKEN RECORDSIZE -
    /LANGUAGE="F90"
DEFINE TOKEN RECORDSIZE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=RECORDSIZE

END DEFINE
DELETE TOKEN RECORDTYPE -
    /LANGUAGE="F90"
DEFINE TOKEN RECORDTYPE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=RECORDTYPE

END DEFINE
DELETE TOKEN RECORDTYPE_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN RECORDTYPE_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=RECORDTYPE_PAR

END DEFINE
DELETE TOKEN RECORD_ALIGNMENT -
    /LANGUAGE="F90"
DEFINE TOKEN RECORD_ALIGNMENT -
    /LANGUAGE="F90" -
    /DESCRIPTION="" -

    "RECORDS={record_alignment_type}"

END DEFINE

DELETE TOKEN REFERENCE_ATTRIBUTE -
    /LANGUAGE="F90"
DEFINE TOKEN REFERENCE_ATTRIBUTE -
    /LANGUAGE="F90" -
    /DESCRIPTION="Pass by reference" -

    "REFERENCE"

END DEFINE

DELETE TOKEN REPEAT -
    /LANGUAGE="F90"
DEFINE TOKEN REPEAT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=REPEAT_FUNC

END DEFINE
DELETE TOKEN RESHAPE -
    /LANGUAGE="F90"
DEFINE TOKEN RESHAPE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=RESHAPE_FUNC

END DEFINE
DELETE TOKEN RETURN -
    /LANGUAGE="F90"
DEFINE TOKEN RETURN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=RETURN_STMT

END DEFINE
DELETE TOKEN REWIND -
    /LANGUAGE="F90"
DEFINE TOKEN REWIND -
    /LANGUAGE="F90" -
    /PLACEHOLDER=REWIND_STMT

END DEFINE
DELETE TOKEN REWRITE -
    /LANGUAGE="F90"
DEFINE TOKEN REWRITE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=REWRITE_OPTS

END DEFINE
DELETE TOKEN RRSPACING -
    /LANGUAGE="F90"
DEFINE TOKEN RRSPACING -
    /LANGUAGE="F90" -
    /PLACEHOLDER=RRSPACING_FUNC

END DEFINE
DELETE TOKEN SAVE -
    /LANGUAGE="F90"
DEFINE TOKEN SAVE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SAVE_STMT

END DEFINE
DELETE TOKEN SAVE_ATTR -
    /LANGUAGE="F90"
DEFINE TOKEN SAVE_ATTR -
    /LANGUAGE="F90" -
    /DESCRIPTION="SAVE attribute" -

    "SAVE"

END DEFINE

DELETE TOKEN SCALE -
    /LANGUAGE="F90"
DEFINE TOKEN SCALE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SCALE_FUNC

END DEFINE
DELETE TOKEN SCAN -
    /LANGUAGE="F90"
DEFINE TOKEN SCAN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SCAN_FUNC

END DEFINE
DELETE TOKEN SECNDS -
    /LANGUAGE="F90"
DEFINE TOKEN SECNDS -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SECNDS_ROUTINE

END DEFINE
DELETE TOKEN SELECTED_INT_KIND -
    /LANGUAGE="F90"
DEFINE TOKEN SELECTED_INT_KIND -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SELECTED_INT_FUNC

END DEFINE
DELETE TOKEN SELECTED_REAL_KIND -
    /LANGUAGE="F90"
DEFINE TOKEN SELECTED_REAL_KIND -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SELECTED_REAL_FUNC

END DEFINE
DELETE TOKEN SEQUENCE_ATTR -
    /LANGUAGE="F90"
DEFINE TOKEN SEQUENCE_ATTR -
    /LANGUAGE="F90" -
    /DESCRIPTION="SEQUENCE attribute" -

    "SEQUENCE"

END DEFINE

DELETE TOKEN SEQUENTIAL_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN SEQUENTIAL_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SEQUENTIAL_PAR

END DEFINE
DELETE TOKEN SET_EXPONENT -
    /LANGUAGE="F90"
DEFINE TOKEN SET_EXPONENT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SET_EXPONENT_FUNC

END DEFINE
DELETE TOKEN SHAPE -
    /LANGUAGE="F90"
DEFINE TOKEN SHAPE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SHAPE_FUNC

END DEFINE
DELETE TOKEN SHARED -
    /LANGUAGE="F90"
DEFINE TOKEN SHARED -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SHARED

END DEFINE
DELETE TOKEN SIGN -
    /LANGUAGE="F90"
DEFINE TOKEN SIGN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SIGN

END DEFINE
DELETE TOKEN SIN -
    /LANGUAGE="F90"
DEFINE TOKEN SIN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SIN_FUNCTION

END DEFINE
DELETE TOKEN SIND -
    /LANGUAGE="F90"
DEFINE TOKEN SIND -
    /LANGUAGE="F90" -
    /DESCRIPTION="Generic Sine Function (degrees)" -

    "SIND ({arg})"

END DEFINE

DELETE TOKEN SINH -
    /LANGUAGE="F90"
DEFINE TOKEN SINH -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SINH

END DEFINE
DELETE TOKEN SIZE -
    /LANGUAGE="F90"
DEFINE TOKEN SIZE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SIZE_FUNC

END DEFINE
DELETE TOKEN SIZEOF -
    /LANGUAGE="F90"
DEFINE TOKEN SIZEOF -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SIZEOF_ROUTINE

END DEFINE
DELETE TOKEN SPACING -
    /LANGUAGE="F90"
DEFINE TOKEN SPACING -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SPACING_FUNC

END DEFINE
DELETE TOKEN SPECIFICATION_STATEMENT -
    /LANGUAGE="F90"
DEFINE TOKEN SPECIFICATION_STATEMENT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SPECIFICATION_STATEMENT

END DEFINE
DELETE TOKEN SPREAD -
    /LANGUAGE="F90"
DEFINE TOKEN SPREAD -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SPREAD_FUNC

END DEFINE
DELETE TOKEN SQRT -
    /LANGUAGE="F90"
DEFINE TOKEN SQRT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SQRT

END DEFINE
DELETE TOKEN STANDARD -
    /LANGUAGE="F90"
DEFINE TOKEN STANDARD -
    /LANGUAGE="F90" -
    /DESCRIPTION="Alignment up to 4 bytes (longword)" -

    "STANDARD"

END DEFINE

DELETE TOKEN STATIC -
    /LANGUAGE="F90"
DEFINE TOKEN STATIC -
    /LANGUAGE="F90" -
    /PLACEHOLDER=STATIC

END DEFINE
DELETE TOKEN STATUS_OPEN -
    /LANGUAGE="F90"
DEFINE TOKEN STATUS_OPEN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=STATUS_OPEN

END DEFINE
DELETE TOKEN STOP -
    /LANGUAGE="F90"
DEFINE TOKEN STOP -
    /LANGUAGE="F90" -
    /PLACEHOLDER=STOP_STMT

END DEFINE
DELETE TOKEN STRUCTURE -
    /LANGUAGE="F90"
DEFINE TOKEN STRUCTURE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=STRUCTURE

END DEFINE
DELETE TOKEN SUBROUTINE -
    /LANGUAGE="F90"
DEFINE TOKEN SUBROUTINE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SUBROUTINE_PROGRAM_UNIT

END DEFINE
DELETE TOKEN SUBROUTINE_HEADER_COMMENTS -
    /LANGUAGE="F90"
DEFINE TOKEN SUBROUTINE_HEADER_COMMENTS -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SUBROUTINE_HEADER_COMMENTS

END DEFINE
DELETE TOKEN SUBTITLE_DIR -
    /LANGUAGE="F90"
DEFINE TOKEN SUBTITLE_DIR -
    /LANGUAGE="F90" -
    /DESCRIPTION="Specify subtitle text" -

    "SUBTITLE '{string}'"

END DEFINE

DELETE TOKEN SUM -
    /LANGUAGE="F90"
DEFINE TOKEN SUM -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SUM_FUNC

END DEFINE
DELETE TOKEN SYSTEM_CLOCK -
    /LANGUAGE="F90"
DEFINE TOKEN SYSTEM_CLOCK -
    /LANGUAGE="F90" -
    /PLACEHOLDER=SYSTEM_CLOCK_ROUTINE

END DEFINE
DELETE TOKEN TAN -
    /LANGUAGE="F90"
DEFINE TOKEN TAN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=TAN_FUNCTION

END DEFINE
DELETE TOKEN TAND -
    /LANGUAGE="F90"
DEFINE TOKEN TAND -
    /LANGUAGE="F90" -
    /DESCRIPTION="Generic Tangent (degrees) Function" -

    "TAND ({arg})"

END DEFINE

DELETE TOKEN TANH -
    /LANGUAGE="F90"
DEFINE TOKEN TANH -
    /LANGUAGE="F90" -
    /PLACEHOLDER=TANH

END DEFINE
DELETE TOKEN TARGET -
    /LANGUAGE="F90"
DEFINE TOKEN TARGET -
    /LANGUAGE="F90" -
    /PLACEHOLDER=TARGET_STMT

END DEFINE
DELETE TOKEN TARGET_ATTR -
    /LANGUAGE="F90"
DEFINE TOKEN TARGET_ATTR -
    /LANGUAGE="F90" -
    /DESCRIPTION="TARGET attribute" -

    "TARGET"

END DEFINE

DELETE TOKEN TIME -
    /LANGUAGE="F90"
DEFINE TOKEN TIME -
    /LANGUAGE="F90" -
    /PLACEHOLDER=TIME_ROUTINE

END DEFINE
DELETE TOKEN TINY -
    /LANGUAGE="F90"
DEFINE TOKEN TINY -
    /LANGUAGE="F90" -
    /PLACEHOLDER=TINY_FUNC

END DEFINE
DELETE TOKEN TITLE_DIR -
    /LANGUAGE="F90"
DEFINE TOKEN TITLE_DIR -
    /LANGUAGE="F90" -
    /DESCRIPTION="Specify title text" -

    "TITLE '{string}'"

END DEFINE

DELETE TOKEN TRANSFER -
    /LANGUAGE="F90"
DEFINE TOKEN TRANSFER -
    /LANGUAGE="F90" -
    /PLACEHOLDER=TRANSFER_FUNC

END DEFINE
DELETE TOKEN TRANSPOSE -
    /LANGUAGE="F90"
DEFINE TOKEN TRANSPOSE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=TRANSPOSE_FUNC

END DEFINE
DELETE TOKEN TRIM -
    /LANGUAGE="F90"
DEFINE TOKEN TRIM -
    /LANGUAGE="F90" -
    /PLACEHOLDER=TRIM_FUNC

END DEFINE
DELETE TOKEN TYPE -
    /LANGUAGE="F90"
DEFINE TOKEN TYPE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=TYPE_STMT

END DEFINE
DELETE TOKEN TYPE1 -
    /LANGUAGE="F90"
DEFINE TOKEN TYPE1 -
    /LANGUAGE="F90" -
    /DESCRIPTION="Formatted TYPE statement" -

    "TYPE {fmt}, [io_elm]..."

END DEFINE

DELETE TOKEN TYPE2 -
    /LANGUAGE="F90"
DEFINE TOKEN TYPE2 -
    /LANGUAGE="F90" -
    /DESCRIPTION="List-directed TYPE statement" -

    "TYPE *, [io_elm]..."

END DEFINE

DELETE TOKEN TYPE3 -
    /LANGUAGE="F90"
DEFINE TOKEN TYPE3 -
    /LANGUAGE="F90" -
    /DESCRIPTION="Namelist-directed TYPE statement" -

    "TYPE {grp_name}"

END DEFINE

DELETE TOKEN TYPED_PARAMETER_STMT -
    /LANGUAGE="F90"
DEFINE TOKEN TYPED_PARAMETER_STMT -
    /LANGUAGE="F90" -
    /DESCRIPTION="Typed PARAMETER statement" -

    "PARAMETER ({parameter_list})"

END DEFINE

DELETE TOKEN TYPE_SPEC -
    /LANGUAGE="F90"
DEFINE TOKEN TYPE_SPEC -
    /LANGUAGE="F90" -
    /PLACEHOLDER=TYPE_SPEC

END DEFINE
DELETE TOKEN UBOUND -
    /LANGUAGE="F90"
DEFINE TOKEN UBOUND -
    /LANGUAGE="F90" -
    /PLACEHOLDER=UBOUND_FUNC

END DEFINE
DELETE TOKEN UNFORMATTED_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN UNFORMATTED_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=UNFORMATTED_PAR

END DEFINE
DELETE TOKEN UNION -
    /LANGUAGE="F90"
DEFINE TOKEN UNION -
    /LANGUAGE="F90" -
    /PLACEHOLDER=UNION_STMT

END DEFINE
DELETE TOKEN "UNIT=" -
    /LANGUAGE="F90"
DEFINE TOKEN "UNIT=" -
    /LANGUAGE="F90" -
    /PLACEHOLDER="UNIT="

END DEFINE
DELETE TOKEN UNIT_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN UNIT_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=UNIT_PAR

END DEFINE
DELETE TOKEN UNLOCK -
    /LANGUAGE="F90"
DEFINE TOKEN UNLOCK -
    /LANGUAGE="F90" -
    /PLACEHOLDER=UNLOCK_STMT

END DEFINE
DELETE TOKEN UNPACK -
    /LANGUAGE="F90"
DEFINE TOKEN UNPACK -
    /LANGUAGE="F90" -
    /PLACEHOLDER=UNPACK_FUNC

END DEFINE
DELETE TOKEN UNTYPED_PARAMETER_STMT -
    /LANGUAGE="F90"
DEFINE TOKEN UNTYPED_PARAMETER_STMT -
    /LANGUAGE="F90" -
    /DESCRIPTION="Untyped PARAMETER statement" -

    "PARAMETER {parameter_list}"

END DEFINE

DELETE TOKEN USE -
    /LANGUAGE="F90"
DEFINE TOKEN USE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=USE_STMT

END DEFINE
DELETE TOKEN USEROPEN -
    /LANGUAGE="F90"
DEFINE TOKEN USEROPEN -
    /LANGUAGE="F90" -
    /PLACEHOLDER=USEROPEN

END DEFINE
DELETE TOKEN VALUE_ATTRIBUTE -
    /LANGUAGE="F90"
DEFINE TOKEN VALUE_ATTRIBUTE -
    /LANGUAGE="F90" -
    /DESCRIPTION="Pass by value" -

    "VALUE"

END DEFINE

DELETE TOKEN VERIFY -
    /LANGUAGE="F90"
DEFINE TOKEN VERIFY -
    /LANGUAGE="F90" -
    /PLACEHOLDER=VERIFY_FUNC

END DEFINE
DELETE TOKEN VOLATILE -
    /LANGUAGE="F90"
DEFINE TOKEN VOLATILE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=VOLATILE_STMT

END DEFINE
DELETE TOKEN WARNINGS -
    /LANGUAGE="F90"
DEFINE TOKEN WARNINGS -
    /LANGUAGE="F90" -
    /DESCRIPTION="Specify warnings options" -

    "/WARNINGS={warnings_rule}"

END DEFINE

DELETE TOKEN WHERE -
    /LANGUAGE="F90"
DEFINE TOKEN WHERE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=WHERE

END DEFINE
DELETE TOKEN WHERE_CONSTRUCT -
    /LANGUAGE="F90"
DEFINE TOKEN WHERE_CONSTRUCT -
    /LANGUAGE="F90" -
    /DESCRIPTION="WHERE construct" -

    "WHERE({logical_exp})"
    "    [where_body_stmt]..."
    "    [ELSEWHERE_part]"
    "    END WHERE"

END DEFINE

DELETE TOKEN WHERE_STMT -
    /LANGUAGE="F90"
DEFINE TOKEN WHERE_STMT -
    /LANGUAGE="F90" -
    /DESCRIPTION="WHERE--masked array assignment" -

    "WHERE({logical_exp}) {where_assignment_stmt}"

END DEFINE

DELETE TOKEN WRITE -
    /LANGUAGE="F90"
DEFINE TOKEN WRITE -
    /LANGUAGE="F90" -
    /PLACEHOLDER=WRITE_STMT

END DEFINE
DELETE TOKEN WRITE_PAR -
    /LANGUAGE="F90"
DEFINE TOKEN WRITE_PAR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=WRITE_PAR

END DEFINE
DELETE TOKEN XOR -
    /LANGUAGE="F90"
DEFINE TOKEN XOR -
    /LANGUAGE="F90" -
    /PLACEHOLDER=XOR_FUNC

END DEFINE
DELETE TOKEN ZEXT -
    /LANGUAGE="F90"
DEFINE TOKEN ZEXT -
    /LANGUAGE="F90" -
    /PLACEHOLDER=ZEXT
END DEFINE