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     ! 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.