bos.h Source File

00001 // bos common
00002 #ifndef BOS_H
00003 #define BOS_H
00004 
00005 #ifndef f2cFortran
00006 #  define f2cFortran
00007 #endif
00008 // CFORTRAN
00009 #include <cfortran.h>
00010 
00011 
00012 #define NmaxBos 3000000
00013 typedef int BCS_DEF[NmaxBos];
00014 #define BCS COMMON_BLOCK(BCS,bcs) 
00015 extern COMMON_BLOCK_DEF(BCS_DEF,BCS);
00016 
00017 PROTOCCALLSFSUB0(ALPHA_MAIN,alpha_main)
00018 #define ALPHA_MAIN()  CCALLSFSUB0(ALPHA_MAIN,alpha_main)
00019 
00020 PROTOCCALLSFSUB0(BOS_INITIALIZE,bos_initialize)
00021 #define BOS_INITIALIZE()  CCALLSFSUB0(BOS_INITIALIZE,bos_initialize)
00022 
00023 PROTOCCALLSFSUB3(READ_EVENT,read_event,PINT,PINT,PINT)
00024 #define READ_EVENT(A1,A2,A3)  CCALLSFSUB3(READ_EVENT,read_event,PINT,PINT,PINT,A1,A2,A3)
00025 
00026 PROTOCCALLSFSUB6(BANK_NAME,bank_name,STRING,PSTRING,PINT,PINT,PINT,PINT)
00027 #define BANK_NAME(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(BANK_NAME,bank_name,STRING,PSTRING,PINT,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6)
00028 
00029 PROTOCCALLSFSUB6(BANK_OUTPUT,bank_output,PSTRING,PSTRING,PINT,PINT,PINT,PINT)
00030 #define BANK_OUTPUT(A1,A2,A3,A4,A5,A6)  CCALLSFSUB6(BANK_OUTPUT,bank_output,PSTRING,PSTRING,PINT,PINT,PINT,PINT,A1,A2,A3,A4,A5,A6)
00031 
00032 PROTOCCALLSFSUB2(WRITE_EVENT,write_event,STRING,STRING)
00033 #define WRITE_EVENT(A1,A2)  CCALLSFSUB2(WRITE_EVENT,write_event,STRING,STRING,A1,A2)
00034 
00035 PROTOCCALLSFSUB5(AOPENW,aopenw,INT,STRING,STRING,STRING,PINT)
00036 #define AOPENW(A1,A2,A3,A4,A5)  CCALLSFSUB5(AOPENW,aopenw,INT,STRING,STRING,STRING,PINT,A1,A2,A3,A4,A5)
00037 
00038 PROTOCCALLSFSUB3(BWRITE,bwrite,INT,INT,STRING)
00039 #define BWRITE(A1,A2,A3)  CCALLSFSUB3(BWRITE,bwrite,INT,INT,STRING,A1,A2,A3)
00040 
00041 PROTOCCALLSFSUB0(QMINIT,qminit)
00042 #define QMINIT()  CCALLSFSUB0(QMINIT,qminit)
00043 
00044 PROTOCCALLSFSUB4(FINDBOOKINFO,findbookinfo,PINT,PINT,PINT,PINT)
00045 #define FINDBOOKINFO(A1,A2,A3,A4)  CCALLSFSUB4(FINDBOOKINFO,findbookinfo,PINT,PINT,PINT,PINT,A1,A2,A3,A4)
00046 
00047 #endif
00048 
00049