1*a5a4af3bSchristos /* langs1.f -- translated by f2c (version of 5 May 1990 1:12:08). */ 2*a5a4af3bSchristos 3*a5a4af3bSchristos /* f2c output hacked as follows for GDB testsuite: 4*a5a4af3bSchristos 1. Change commented out "#" lines to #line directives. 5*a5a4af3bSchristos I don't know why this behavior isn't the default for f2c -g. 6*a5a4af3bSchristos 2. Remove include of f2c.h and put in just a typedef for "integer". 7*a5a4af3bSchristos Additional notes: 8*a5a4af3bSchristos 3. f2c was called as "f2c -g langs1.f". 9*a5a4af3bSchristos 4. We don't need to use the fortran libraries. */ 10*a5a4af3bSchristos 11*a5a4af3bSchristos typedef int integer; 12*a5a4af3bSchristos 13*a5a4af3bSchristos /* Table of constant values */ 14*a5a4af3bSchristos 15*a5a4af3bSchristos static integer c__10000 = 10000; 16*a5a4af3bSchristos 17*a5a4af3bSchristos /* I am not sure whether there is a way to have a fortran program without */ 18*a5a4af3bSchristos /* a MAIN, but it does not really harm us to have one. */ MAIN__()19*a5a4af3bSchristos/* Main program */ void MAIN__() 20*a5a4af3bSchristos { 21*a5a4af3bSchristos } /* MAIN__ */ 22*a5a4af3bSchristos 23*a5a4af3bSchristos #line 4 "langs1.f" fsub_()24*a5a4af3bSchristos/* Subroutine */ int fsub_() 25*a5a4af3bSchristos { 26*a5a4af3bSchristos extern integer cppsub_(int*); 27*a5a4af3bSchristos 28*a5a4af3bSchristos #line 5 "langs1.f" 29*a5a4af3bSchristos #line 6 "langs1.f" 30*a5a4af3bSchristos return cppsub_(&c__10000); 31*a5a4af3bSchristos #line 7 "langs1.f" 32*a5a4af3bSchristos } /* fsub_ */ 33*a5a4af3bSchristos 34