/* hello.f -- translated by f2c (version 19951025).
   You must link the resulting object file with the libraries:
	-lf2c -lm   (in that order)
*/

#include "f2c.h"

/* Table of constant values */

static integer c__9 = 9;
static integer c__1 = 1;
static integer c__4 = 4;

/* Main program */ MAIN__()
{
    /* Builtin functions */
    integer s_wsle(), do_lio(), e_wsle();

    /* Local variables */
    static real area, width, length;

    /* Fortran I/O blocks */
    static cilist io___4 = { 0, 6, 0, 0, 0 };


    length = (float)18.;
    width = (float)12.5;
    area = length * width;
    s_wsle(&io___4);
    do_lio(&c__9, &c__1, "AREA IS ", 8L);
    do_lio(&c__4, &c__1, (char *)&area, (ftnlen)sizeof(real));
    e_wsle();
} /* MAIN__ */