/* locf.f -- translated by f2c (version of 3 February 1990  3:36:42).
   You must link the resulting object file with the libraries:
	-lF77 -lI77 -lm -lc   (in that order)
*/

#include "f2c.h"

/* Common Block Declarations */

struct {
    doublereal omega, time, delta, delold[7], ag[7], vt, xni, egfet, xmu, 
	    sfactr;
    integer mode, modedc, icalc, initf, method, iord, maxord, noncon, iterno, 
	    itemno, nosolv, modac, ipiv, ivmflg, ipostp, iscrch, iofile;
} status_;

#define status_1 status_

/* Table of constant values */

static integer c__1 = 1;

/*<       integer function locf(ivar) >*/
integer locf_(ivar)
integer *ivar;
{
    /* Format strings */
    static char fmt_100[] = "(\0020*error*: system error, address \002,i10\
,\002 is not on 4-byte boundary\002)";

    /* System generated locals */
    integer ret_val;

    /* Builtin functions */
    integer s_wsfe(), do_fio(), e_wsfe();

    /* Local variables */
    static integer iabsa;
    extern integer loc_();

    /* Fortran I/O blocks */
    static cilist io__2 = { 0, 0, 0, fmt_100, 0 };


    /* Parameter adjustments */
    --ivar;

    /* Function Body */
/*<       implicit double precision (a-h,o-z) >*/
/*<       external loc >*/
/* spice version 2g.6  sccsid=status 3/15/83 */
/*<       common /status/ omega,time,delta,delold(7),ag(7),vt,xni,egfet, >*/
/*<      1   xmu,sfactr,mode,modedc,icalc,initf,method,iord,maxord,noncon, >*/
/*<      2   iterno,itemno,nosolv,modac,ipiv,ivmflg,ipostp,iscrch,iofile >*/
/*<       dimension ivar(1) >*/
/*<       iabsa=loc(ivar) >*/
    iabsa = loc_(&ivar[1]);
/*<       locf=iabsa/4 >*/
    ret_val = iabsa / 4;
/*<       if (iabsa.eq.4*locf) return >*/
    if (iabsa == ret_val << 2) {
	return ret_val;
    }
/*<       write(iofile,100) iabsa >*/
    io__2.ciunit = status_1.iofile;
    s_wsfe(&io__2);
    do_fio(&c__1, (char *)&iabsa, (ftnlen)sizeof(integer));
    e_wsfe();
/*<   100 format ('0*error*: system error, address ',i10, >*/
/*<      1   ' is not on 4-byte boundary') >*/
/*<       return >*/
    return ret_val;
/*<       end >*/
} /* locf_ */

