/*
	Radtran Fortran library routines 
*/
#ifndef _F77RADTRAN_H_
#define _F77RADTRAN_H_

struct lp_loca__1_  /* definition of the lp_loca common block */
 {
    int liranacc, lils, ljgas, lnlines, lilines, lindex, liset, lnmode,
            lwtt, lgamma, lalmin, lalmax, lalptem, lrelease, lfound, lifit,
            lnq, lqcoef, llset, ljol, lv0, lsl, laln, lals, lel, lwt, lalgam,
            lpsc, lipmix, lcfmix, lpadd;


} ;

struct lp_locn__1_ { /* definition of the lp_locn common block */
      int lnsub,lisdo,lnptspsm,lresmin,lslimit,ltmasmx,
     lvibfac,lprat,ltrat,ltsi,liopto,lioftr,lioff,lnptsps,lres,llsib,
     llsie,lad,lalp,lex1,lspre,ldelnu ;

};
#ifdef __cplusplus
extern "C" {
#endif

/* the lp_loca  common block */
        extern struct lp_loca__1_ lp_loca__;
	extern struct lp_locn__1_ lp_locn__;

/* Subroutine */ extern void lp_inita__(int *dbgin, int *mcel, int *mray, 
	int *mgas, float *rlt, float *rut, float *rl, float *ru, int *
	ipout);
	

/* Subroutine */extern void lp_filter__(int *lfilt, const int *mf, 
	const int *mfilt, 
	int *nfilt, int *nfpmx, float *solar, double *vs1, 
	double *vs2, int *idf, double *resfilt, float *filt);


/* Subroutine */ extern void lp_mass__(int *mr, int *mcel, int *mgas, 
	const int *mgm, int *mpout, int *ncel, int *nr, int *
	irf, int *nsr, int *ner, int *ngas, int *igas, 
	int *ngm, int *igm, int *isc, float *re, float *wave, 
	int *iplat, float *za, float *zr, float *pr, float *tr, float *tgr, 
	float *q, float *qgr, float *zt, float *pt, float *tt, float *gr, float *
	tearth, float *qmix, float *qg, float *pout);
	
/* Subroutine */ extern void lp_celltb__(int *mcel, int *mray, int *mgas, 
	int *mpout, int *mcout, int *ncel, int *nray, int 
	*nset, int *imr, int *nsr, int *ner, int *ngas, 
	int *igas, float *re, float *pt, float *tt, float *rlt, float *rut, 
	float *qmix, float *qg, float *tb, float *tbs, float *tedge, float *rl, 
	float *ru, float *pb, float *gasb, float *pmass, float *pout, float *cout);


/* Subroutine */ extern void lp_crossm__(int *lbug, int *iopt, int *icalc,
	 int *mcel, int *mray, int *mgs, int *mcntrl, const int 
	*msiz, int *nl, int *mcmix, int *ncel, int *nray, 
	int *ngas, int *idg, double *vs1, double *vs2, float *
	wnmax, float *resfc, double *resmax, float *odmin, int *nsr, 
	int *ner, float *pb, float *tb, float *gasb, float *pmass, int *
	segment, float *cntrl, float *afgl, float *hvy, double *crss, 
	int *init, int *done, int *nset, int *imr, int *
	mpout, float *pout, float *rl, float *ru);

/* Subroutine */ extern void lp_hvyset__(int *lout, int *lhvy, int *debug,
	 int *mcof, int *mbnd, int *mset, int *ngas, int *
	igas, double *vs1, double *vs2, float *hvy);
	
/* Subroutine */ extern void lp_cingrate__(int *lout, int *icalc, int *
	iopt, int *mcel, int *mray, int *mgas, int *ncel, 
	int *nray, int *init, int *ir, int *ic1, int *ic2,
	 int *ngas, int *igas, double *vs1, double *vs2, float 
	*albedo, float *tearth, float *tbs, float *tedge, float *pmass, float *
	pout, float *cntrl, double *crss)	;
		
/* Subroutine */ extern void lp_cfilter__(int *icalc, int *nfilt, int *
	ifl, const int *mf, int *nfpmx, float *dvel, double *avtran, 
	double *avrad, double *filtti, float *cntrl, double *crss, 
	float *filt)	;
		
/* Subroutine */ extern void kp_intprof__(int *ncel, int *nr, int *isl, 
	int *iel, float *zr, const float *zt, float *profr, float *profl);

	extern void kp_intprof_noxtrp__(int *ncel, int *nr, int *isl, 
	int *iel, float *zr, const float *zt, float *profr, float *profl);

/* SUBROUTINE */ extern void  lp_gethirez__(int *mgas, int* mpts, int* ngas, int* igas,
	int* idg, int* ic, int* npts, double* bpwn,
        double* resmin, float* dvel, int* nfilt, int* ifl, int* nfpmx,
	float* filt, float*  cntrl, double* crss, double* hirez, int* convolve);

/* SUBROUTINE */ extern void lp_upmass__( int *mcel, int *mray, int *mgas, 
	int *mpout, int* ncel, int *nray, int *nsr, int *ner, int *ngas,
	int *igas, float *qmix, float *qg,  float *gasb,  float *pmass, float *pout);

/* SUBROUTINE */ extern void mp_mega__(int* mtbl, int* msout, int* mtout, int* mgas, 
	int* mcel, int* ncel, int* nsr, int* ner, int* nsl, int* nel, int* itab, int* ng, 
	int* idg, float* qmix, float* qg, float* rlt, float* rut, float* albedo,
	float* tearth, int* irad, int* icor, double* emr, double* rmr, double* esr,
	double* rsr, float* bsr, float* tbl, float* pout, float* sout, float* tout);

/* SUBROUTINE */ extern void kp_inita__( int* dbgin, int* npt, int* ipout);

/* SUBROUTINE */ extern void kp_mpath__(int* mr, int* mcel, int* mpout, int* irfn, int* isl, int* iel,
    int* isc, float* re, int* ncel, int* nr,
     float* wave, int* iplat,float* za, float* zr,float* pr,float* tr, float* tgr,
     float* zt, float* pt, float* tt, float* gr, float* tearth, float* pout);

/* Subroutine */  extern void kp_setprmi__( int* pval, int* ival);

   extern int kp_getprmi__( int* iparm);


   extern void mp_tblbld__(int* ibin, int* iunit, int* iblocker, int* ietl, int* net,
       int* novt, const char* filene, const char*  fileno, int* ntb, float* tbl,
       int chz1, int chz2 );


 extern void mp_mass__(
    int* ,    int*  ml,    int*  ,    const  int*   mgs,
    int* npt,     int*    ,   int*   nl,  int*    irfn,
    int* nsl,   int*    ,   int*   ,   int*   idg,
    int* ng,    int*  ,     int*    isc,   float*     re,
    float* wave,       int* iplat,   float*   za,     float*  zapr,
     float* papr,     float*    tapr,    float*     gr_apr,    float*   qapr,
     float* qgapr,    float*    zt,   float*    pt,   float*    tt,
    float*  gt,   float*    tearth,    float*   qmix,    float*     qg,
     float* tm_tbl,    float*  pout );


#ifdef __cplusplus
	}
#endif

#endif //_F77RADTRAN_H_