C -------------------------------------------------------------------
C                Copyright (c) 1995, SAS Institute Inc.
C                  Unpublished - All Rights Reserved
C                    S A S / C   S A M P L E
C
C       NAME: CXXFORTF
C   LANGUAGE: FORTRAN
C    PURPOSE: THIS EXAMPLE DEMONSTRATES A C++ MAIN CALLING A
C             FORTRAN ROUTINE.
C             IT CONSISTS OF SAMPLE LIBRARY MEMBERS
C             CXXFORTC, CXXFORTF, AND CXXFORT.
C MVS -
C    COMPILE: USE JCL PROVIDED IN SAMPLE.AUX(CXXFORT).
C       LINK: USE JCL PROVIDED IN SAMPLE.AUX(CXXFORT).
C    EXECUTE: USE JCL PROVIDED IN SAMPLE.AUX(CXXFORT).
C TSO -
C    COMPILE: FORTRAN - USE FORTRAN COMPILER.
C             C++ - LCXX CXXFORTC
C       LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(CXXFORT).
C    EXECUTE: CALL <SAMPLE>.LOAD(CXXFORT)
C CMS -
C    COMPILE: FORTRAN - USE FORTRAN COMPILER.
C             C++ - LCXX CXXFORTC
C        LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(CXXFORT).
C     EXECUTE: CALL CXXFORT
C  MISC NOTES: THE FOLLOWING LSCL102 MESSAGES CAN BE IGNORED:
C  WARNING: CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(IFYVINTE)
C  WARNING: CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(VFEE#)
C  WARNING: CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(VFES#)
C  WARNING: CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(VFEIM#)
C  WARNING: CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(FORPGM)
C -------------------------------------------------------------------
C
C      FORTRAN Program
C
       SUBROUTINE FORPGM
       WRITE(6,10)
10     FORMAT('        Entered the FORTRAN program')
       END