Return to main.c CVS log

Up to [Research Unix] / researchv10no / cmd / f2c / doc

Annotation of researchv10no/cmd/f2c/doc/main.c, revision 1.1.1.1

1.1       root        1: /* main.f -- translated by f2c (version of 15 December 1989  17:36:19).
                      2:    You must link the resulting object file with the libraries:
                      3:        -lF77 -lI77 -lm -lc   (in that order)
                      4: */
                      5: 
                      6: #include "f2c.h"
                      7: 
                      8: /* Common Block Declarations */
                      9: 
                     10: struct cmname_1_ {
                     11:     complex c[10];
                     12: };
                     13: 
                     14: #define cmname_1 (*(struct cmname_1_ *) &cmname_)
                     15: 
                     16: /* Initialized data */
                     17: 
                     18: struct {
                     19:     complex e_1;
                     20:     doublereal e_2;
                     21:     real e_3;
                     22:     integer e_4[2];
                     23:     struct { integer filler[13]; } e_5;
                     24:     } cmname_ = { (float)1., (float)0., 2., (float)3., 4, 1 };
                     25: 
                     26: 
                     27: /* Table of constant values */
                     28: 
                     29: static integer c__14 = 14;
                     30: 
                     31: /* Main program */ MAIN__()
                     32: {
                     33: 
                     34:     /* Local variables */
                     35: 
                     36: #define d ((doublereal *)&cmname_1)
                     37: #define i ((integer *)&cmname_1)
                     38: #define l ((logical *)&cmname_1)
                     39: #define r ((real *)&cmname_1)
                     40:     extern /* Subroutine */ int sam_();
                     41: 
                     42:     sam_(cmname_1.c, d, &r[1], &i[2], &l[3], "some hollerith", &c__14, 14L);
                     43: } /* MAIN__ */
                     44: 
                     45: #undef r
                     46: #undef l
                     47: #undef i
                     48: #undef d
                     49: 
                     50: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.