/* strek_create_form.f -- translated by f2c (version of 19 December 1990  16:50:21).
   You must link the resulting object file with the libraries:
	-lF77 -lI77 -lm -lc   (in that order)
*/

#include "f2c.h"

/* Table of constant values */

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

/* Main program */ MAIN__()
{
    /* Initialized data */

    static char key_name__[5*90+1] = "a    b    c    d    e    f    g    h  \
  i    j    k    l    m    n    o    p    q    r    s    t    u    v    w   \
 x    y    z    l1   l2   l3   l4   l5   l6   l7   l8   l9   la   lb   lc   \
ld   le   lf   l1a  l2a  l3a  l1u  l2u  l3u  l4u  l5u  l6u  l7u  l8u  l9u  l\
au  lbu  lcu  ldu  leu  lfu  l1au l2au l3au f1   f2   f3   f4   f5   f6   f7\
   f8   f1u  f2u  f3u  f4u  f5u  f6u  f7u  f8u  r1   r2   r3   r4   r5   r6 \
  space,    .    /    ;    [    ";

    /* Format strings */
    static char fmt_100[] = "(\002enter character definition in column 7\002)"
	    ;
    static char fmt_110[] = "(\002e.g.  x\002)";

    /* System generated locals */
    olist o__1;
    cllist cl__1;

    /* Builtin functions */
    integer s_wsle(), do_lio(), e_wsle(), s_rsfe(), do_fio(), e_rsfe(), 
	    f_open(), s_wsfe(), e_wsfe(), f_clos();
    /* Subroutine */ int s_stop();

    /* Local variables */
    static char key_file__[256];
    static integer j;

    /* Fortran I/O blocks */
    static cilist io___2 = { 0, 6, 0, 0, 0 };
    static cilist io___3 = { 0, 6, 0, 0, 0 };
    static cilist io___4 = { 0, 6, 0, 0, 0 };
    static cilist io___5 = { 0, 6, 0, 0, 0 };
    static cilist io___6 = { 0, 6, 0, 0, 0 };
    static cilist io___7 = { 0, 5, 0, "(a)", 0 };
    static cilist io___9 = { 0, 1, 0, fmt_100, 0 };
    static cilist io___10 = { 0, 1, 0, fmt_110, 0 };
    static cilist io___12 = { 0, 1, 0, "(a5)", 0 };



/*    ******************************************************************* 
*/
/*    *****                                                         ***** 
*/
/*    *****                STAR TREK VERSION 3.0                    ***** 
*/
/*    *****                                                         ***** 
*/
/*    *****                     written by                          ***** 
*/
/*    *****                                                         ***** 
*/
/*    *****                Justin S. Revenaugh                      ***** 
*/
/*    *****                                                         ***** 
*/
/*    *****                       7/87                              ***** 
*/
/*    *****                                                         ***** 
*/
/*    *****        Massachussetts Institute of Technology           ***** 
*/
/*    *****  Department of Earth, Atmospheric and Planetary Science ***** 
*/
/*    *****                                                         ***** 
*/
/*    ******************************************************************* 
*/

/*    STREK_CREATE_FORM creates a key defs form for use in STREK */

/*    version 1 */
/*                                         -jsr 8/85 */


/*    keynames in order */


/*   request file pathname, open and write to it */

    s_wsle(&io___2);
    do_lio(&c__9, &c__1, " ", 1L);
    e_wsle();
    s_wsle(&io___3);
    do_lio(&c__9, &c__1, "This program creates a key definition form for use\
 with", 55L);
    e_wsle();
    s_wsle(&io___4);
    do_lio(&c__9, &c__1, "Strek.", 6L);
    e_wsle();
    s_wsle(&io___5);
    do_lio(&c__9, &c__1, " ", 1L);
    e_wsle();
    s_wsle(&io___6);
    do_lio(&c__9, &c__1, "Enter the desired pathname of the form (<256 char.\
).", 52L);
    e_wsle();
    s_rsfe(&io___7);
    do_fio(&c__1, key_file__, 256L);
    e_rsfe();
    o__1.oerr = 0;
    o__1.ounit = 1;
    o__1.ofnmlen = 256;
    o__1.ofnm = key_file__;
    o__1.orl = 0;
    o__1.osta = 0;
    o__1.oacc = 0;
    o__1.ofm = 0;
    o__1.oblnk = 0;
    f_open(&o__1);
    s_wsfe(&io___9);
    e_wsfe();
    s_wsfe(&io___10);
    e_wsfe();
    for (j = 1; j <= 90; ++j) {
	s_wsfe(&io___12);
	do_fio(&c__1, key_name__ + (j - 1) * 5, 5L);
	e_wsfe();
/* L10: */
    }
    cl__1.cerr = 0;
    cl__1.cunit = 1;
    cl__1.csta = 0;
    f_clos(&cl__1);
    s_stop("", 0L);
} /* MAIN__ */

/* Main program alias */ int strek_create_form__ () { MAIN__ (); }