27 lines
434 B
C
27 lines
434 B
C
#ifndef _fortran_h
|
|
#define _fortran_h
|
|
|
|
#include "fort.h"
|
|
|
|
/* This defines the interfaces between fortran and c */
|
|
|
|
/*
|
|
** COMMON /DEVILS/ IDEVT,IDEVC,IDBSIZ,RELPG
|
|
*/
|
|
|
|
/*
|
|
** Map onto fortran common block holding RELPG array and IDEVRD
|
|
*/
|
|
/*
|
|
** Snatch Fortran Common Block
|
|
** Don't EVER EVER let Rodger see this!!
|
|
*/
|
|
extern struct {
|
|
int_f idevt;
|
|
int_f idevc;
|
|
int_f idbsiz;
|
|
int_f relpg[1000];
|
|
} devils_;
|
|
|
|
#endif /* _fortran_h */
|