/*-------------------------------------------------------------------+
|                Copyright (c) 1995, SAS Institute Inc.              |
|                  Unpublished - All Rights Reserved                 |
|                    S A S / C   S A M P L E                         |
|                                                                    |
|       NAME: FORT2CPC                                               |
|   LANGUAGE: C                                                      |
|    PURPOSE: THIS EXAMPLE DEMONSTRATES A FORTRAN PROGRAM CALLING    |
|             A C FUNCTION.                                          |
|             IT CONSISTS OF SAMPLE LIBRARY MEMBERS                  |
|             FORT2CPC, FORT2CPF, AND FORT2CPM.                      |
| MVS -                                                              |
|    COMPILE: USE JCL PROVIDED IN SAMPLE.AUX(FORT2CPM).              |
|       LINK: USE JCL PROVIDED IN SAMPLE.AUX(FORT2CPM).              |
|    EXECUTE: USE JCL PROVIDED IN SAMPLE.AUX(FORT2CPM).              |
| TSO -                                                              |
|    COMPILE: FORTRAN - USE FORTRAN COMPILER.                        |
|             C - LC370C FORT2CPC USING INDEP OPTION.                |
|       LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(FORT2CPM).  |
|    EXECUTE: CALL <SAMPLE>.LOAD(FORT2CPM)                           |
| CMS -                                                              |
|    COMPILE: FORTRAN - USE FORTRAN COMPILER.                        |
|             C - LC370 FORT2CPC USING INDEP OPTION.                 |
|        LINK: ILCLINK, USING CONTROL CARDS IN SAMPLE.AUX(FORT2CPM). |
|     EXECUTE: CALL FORT2CPM                                         |
| MISC NOTES: THE FOLLOWING LSCL102 MESSAGES CAN BE IGNORED:         |
|   WARNING: CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(IFYVINTE)   |
|   WARNING: CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(VFEE#)      |
|   WARNING: CAN'T OPEN FILE DURING AUTOCALL: DDN:SYSLIB(VFES#)      |
+-------------------------------------------------------------------*/
#include <stdio.h>
#include <string.h>
void cprog(char *parm1)
{
 printf("%s \n", parm1);
 return;
}