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: C2FORTPF
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               C2FORTPC, C2FORTPF, AND C2FORTPM.
C   MVS -
C      COMPILE: USE JCL PROVIDED IN SAMPLE.AUX(C2FORTPM).
C         LINK: USE JCL PROVIDED IN SAMPLE.AUX(C2FORTPM).
C      EXECUTE: USE JCL PROVIDED IN SAMPLE.AUX(C2FORTPM).
C   TSO -
C      COMPILE: FORTRAN - USE FORTRAN COMPILER.
C               C - LC370C C2FORTPC
C         LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(C2FORTPM).
C      EXECUTE: CALL .LOAD(C2FORTPM)
C   CMS -
C      COMPILE: FORTRAN - USE FORTRAN COMPILER.
C               C - LC370 C2FORTPC
C          LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(C2FORTPM).
C       EXECUTE: CALL C2FORTPM
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