00001 #include <stdio.h>
00002
00003 void findunderscores(void){
00004 printf("#ifndef F77_NO_UNDERSCORE\n");
00005 printf("#define F77_NO_UNDERSCORE\n");
00006 printf("#endif\n");
00007 printf("#ifndef F77_NO_CAPS\n");
00008 printf("#define F77_NO_CAPS\n");
00009 printf("#endif\n");
00010 }
00011
00012 void FindUnderscores(void){
00013 printf("#ifndef F77_NO_UNDERSCORE\n");
00014 printf("#define F77_NO_UNDERSCORE\n");
00015 printf("#endif\n");
00016 }
00017
00018 void FindUnderscores_(void){
00019 printf("#ifndef F77_SINGLE_UNDERSCORE\n");
00020 printf("#define F77_SINGLE_UNDERSCORE\n");
00021 printf("#endif\n");
00022 }
00023
00024 void findunderscores_(void){
00025 printf("#ifndef F77_SINGLE_UNDERSCORE\n");
00026 printf("#define F77_SINGLE_UNDERSCORE\n");
00027 printf("#endif\n");
00028 printf("#ifndef F77_NO_CAPS\n");
00029 printf("#define F77_NO_CAPS\n");
00030 printf("#endif\n");
00031 }
00032 void FINDUNDERSCORES(void){
00033 printf("#ifndef F77_CRAY_UNDERSCORE\n");
00034 printf("#define F77_CRAY_UNDERSCORE\n");
00035 printf("#endif\n");
00036 }
