THerwig/driver.h

   1 #include "Rtypes.h"
   2 #include "cfortran.h"
   3 //
   4 // COMMON/VVJIN/QQIN
   5 //
   6 extern "C" {
   7
   8     typedef struct {
   9         char QQIN[50];
  10 } vvjinCommon;
  11 #define VVJIN COMMON_BLOCK(VVJIN,vvjin)
  12 COMMON_BLOCK_DEF(vvjinCommon,VVJIN);
  13 }