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: CXFORTPF
C     LANGUAGE: FORTRAN
C      PURPOSE: THIS EXAMPLE DEMONSTRATES A C++ MAIN CALLING A
C               FORTRAN ROUTINE, WHICH TAKES A PARAMETER LIST.
C               IT CONSISTS OF SAMPLE LIBRARY MEMBERS
C               CXXFORPC, CXXFORPF, AND CXXFORPM.
C   MVS -
C      COMPILE: USE JCL PROVIDED IN SAMPLE.AUX(CXXFORPM).
C         LINK: USE JCL PROVIDED IN SAMPLE.AUX(CXXFORPM).
C      EXECUTE: USE JCL PROVIDED IN SAMPLE.AUX(CXXFORPM).
C   TSO -
C      COMPILE: FORTRAN - USE FORTRAN COMPILER.
C               C++ - LCXX  CXXFORPC
C         LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(CXXFORPM).
C      EXECUTE: CALL <SAMPLE>.LOAD(CXXFORPM)
C   CMS -
C      COMPILE: FORTRAN - USE FORTRAN COMPILER.
C               C++ - LCXX CXXFORPC
C          LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(CXXFORPM).
C       EXECUTE: CALL CXXFORPM
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 Subroutine
C
       SUBROUTINE FORPGM(COMENT)
       CHARACTER*28 COMENT

       WRITE(6,10)
       WRITE(6,15) COMENT
10     FORMAT('        Entered the FORTRAN program')
15     FORMAT(A36)
       RETURN
       END