It is often useful to be able to name a subroutine or common block in such a way that it will not clash with names chosen by everyday use of the compiler. FTN95 allows the @ and $ characters as any non-initial character of a Fortran name.
Example:
SUBROUTINE
PRINT$(I)
COMMON/COM@/A,B,C(100)
EXTERNAL F1@,F2@
INTEGER F1@
. . .
CALL MY_SUB(F1@)
. . .
No guarantee can be given that use of a name containing an @ character will not cause unpredictable results as a result of a clash with an FTN95 library name or other reserved name. However, no system name contains a $ character.