00001 #include "M3_system.h"
00002
00003 #ifndef _H_M3_fortran
00004 #define _H_M3_fortran
00005
00006 #ifndef f77func
00007 # if defined (MACH_F77_APPEND_UNDERSCORE)
00008 # if defined (MACH_F77_UPPERCASE)
00009 # define f77func(f, F) F##_
00010 # else
00011 # define f77func(f, F) f##_
00012 # endif
00013 # else
00014 # if defined (MACH_F77_UPPERCASE)
00015 # define f77func(f, F) F
00016 # else
00017 # define f77func(f, F) f
00018 # endif
00019 # endif
00020 #endif
00021
00022 #ifndef f77func_
00023 # if defined (MACH_F77_DOUBLE_UNDERSCORE)
00024 # if defined (MACH_F77_UPPERCASE)
00025 # define f77func_(f, F) F##__
00026 # else
00027 # define f77func_(f, F) f##__
00028 # endif
00029 # else
00030 # if defined (MACH_F77_UPPERCASE)
00031 # define f77func_(f, F) f77func(f, F)
00032 # else
00033 # define f77func_(f, F) f77func(f, F)
00034 # endif
00035 # endif
00036 #endif
00037
00038
00039
00040
00041 #define M3_f77_RunConfig_ReadBinMPI f77func_( m3_f77_runconfig_readbinmpi, M3_F77_RUNCONFIG_READBINMPI )
00042 #define M3_f77_RunConfig_ReadMPI f77func_( m3_f77_runconfig_readmpi, M3_F77_RUNCONFIG_READMPI )
00043 #define M3_f77_RunConfig_Bcast f77func_( m3_f77_runconfig_bcast, M3_F77_RUNCONFIG_BCAST )
00044 #define M3_f77_RunConfig_GetDataSetRoot f77func_( m3_f77_runconfig_getdatasetroot, M3_F77_RUNCONFIG_GETDATASETROOT )
00045 #define M3_f77_RunConfig_Read f77func_( m3_f77_runconfig_read, M3_F77_RUNCONFIG_READ )
00046 #define M3_f77_RunConfig_ReadBin f77func_( m3_f77_runconfig_readbin, M3_F77_RUNCONFIG_READBIN )
00047 #define M3_f77_RunConfig_Write f77func_( m3_f77_runconfig_write, M3_F77_RUNCONFIG_WRITE )
00048 #define M3_f77_RunConfig_Destroy f77func_( m3_f77_runconfig_destroy, M3_F77_RUNCONFIG_DESTROY )
00049 #define M3_f77_RunConfig_Duplicate f77func_( m3_f77_runconfig_duplicate, M3_F77_RUNCONFIG_DUPLICATE )
00050 #define M3_f77_RunConfig_GetDataSetRoot f77func_( m3_f77_runconfig_getdatasetroot, M3_F77_RUNCONFIG_GETDATASETROOT )
00051 #define M3_f77_RunConfig_GetPixelClassRoot f77func_( m3_f77_runconfig_getpixelclassroot, M3_F77_RUNCONFIG_GETPIXELCLASSROOT )
00052 #define M3_f77_RunConfig_GetPowerSpectrum f77func_( m3_f77_runconfig_getpowerspectrum, M3_F77_RUNCONFIG_GETPOWERSPECTRUM )
00053 #define M3_f77_RunConfig_GetGCPointingGroupRoot f77func_( m3_f77_runconfig_getgcpointinggrouproot, M3_F77_RUNCONFIG_GETGCPOINTINGGROUPROOT )
00054 #define M3_f77_RunConfig_GetTODcache f77func_( m3_f77_runconfig_gettodcache, M3_F77_RUNCONFIG_GETTODCACHE )
00055 #define M3_f77_DataSet_GetNextNodeInList f77func_( m3_f77_dataset_getnextnodeinlist, M3_F77_DATASET_GETNEXTNODEINLIST )
00056 #define M3_f77_DataSet_GetName f77func_( m3_f77_dataset_getname, M3_F77_DATASET_GETNAME )
00057 #define M3_f77_DataSet_GetCoveredIntervalRoot f77func_( m3_f77_dataset_getcoveredintervalroot , M3_F77_DATASET_GETCOVEREDINTERVALROOT )
00058 #define M3_f77_DataSet_GetNumNZ f77func_( m3_f77_dataset_getnumnz, M3_F77_DATASET_GETNUMNZ )
00059 #define M3_f77_DataSet_GetPointingClassRoot f77func_( m3_f77_dataset_getpointingclassroot, M3_F77_DATASET_GETPOINTINGCLASSROOT )
00060 #define M3_f77_DataSet_GetTOD f77func_( m3_f77_dataset_gettod, M3_F77_DATASET_GETTOD )
00061 #define M3_f77_DataSet_GetPointing f77func_( m3_f77_dataset_getpointing, M3_F77_DATASET_GETPOINTING )
00062 #define M3_f77_DataSet_GetEuler f77func_( m3_f77_dataset_geteuler, M3_F77_DATASET_GETEULER )
00063 #define M3_f77_DataSet_GetNoiseFileRoot f77func_( m3_f77_dataset_getnoisefileroot, M3_F77_DATASET_GETNOISEFILEROOT )
00064 #define M3_f77_DataSet_GetNoiseCorLength f77func_( m3_f77_dataset_getnoisecorlength, M3_F77_DATASET_GETNOISECORLENGTH )
00065 #define M3_f77_DataSet_GetNoise f77func_( m3_f77_dataset_getnoise, M3_F77_DATASET_GETNOISE )
00066 #define M3_f77_DataSet_GetFilterLength f77func_( m3_f77_dataset_getfilterlength, M3_F77_DATASET_GETFILTERLENGTH )
00067 #define M3_f77_DataSet_GetFilter f77func_( m3_f77_dataset_getfilter, M3_F77_DATASET_GETFILTER )
00068 #define M3_f77_DataSet_SampleIntervalToTimeInterval f77func_( m3_f77_dataset_sampleintervaltotimeinterval, M3_F77_DATASET_SAMPLEINTERVALTOTIMEINTERVAL )
00069 #define M3_f77_DataSet_GetGCPointingGroupNode f77func_( m3_f77_dataset_getgcpointinggroupnode, M3_F77_DATASET_GETGCPOINTINGGROUPNODE )
00070 #define M3_f77_PixelClass_GetNextNodeInList f77func_( m3_f77_pixelclass_getnextnodeinlist, M3_F77_PIXELCLASS_GETNEXTNODEINLIST )
00071 #define M3_f77_PixelClass_GetClassName f77func_( m3_f77_pixelclass_getclassname, M3_F77_PIXELCLASS_GETCLASSNAME )
00072 #define M3_f77_PixelClass_GetPixelType f77func_( m3_f77_pixelclass_getpixeltype, M3_F77_PIXELCLASS_GETPIXELTYPE )
00073 #define M3_f77_PixelClass_GetNumPixelInClass f77func_( m3_f77_pixelclass_getnumpixelinclass, M3_F77_PIXELCLASS_GETNUMPIXELINCLASS )
00074 #define M3_f77_PixelClass_GetNumPixelInMap f77func_( m3_f77_pixelclass_getnumpixelinmap, M3_F77_PIXELCLASS_GETNUMPIXELINMAP )
00075 #define M3_f77_PixelClass_GetMapName f77func_( m3_f77_pixelclass_getmapname, M3_F77_PIXELCLASS_GETMAPNAME )
00076 #define M3_f77_PixelClass_GetIndexedMap f77func_( m3_f77_pixelclass_getindexedmap, M3_F77_PIXELCLASS_GETINDEXEDMAP )
00077 #define M3_f77_PixelClass_GetIndexedCoord f77func_( m3_f77_pixelclass_getindexedcoord, M3_F77_PIXELCLASS_GETINDEXEDCOORD )
00078 #define M3_f77_PixelClass_GetWindow f77func_( m3_f77_pixelclass_getwindow, M3_F77_PIXELCLASS_GETWINDOW )
00079 #define M3_f77_PixelClass_GetIndexedMask f77func_( m3_f77_pixelclass_getindexedmask, M3_F77_PIXELCLASS_GETINDEXEDMASK )
00080 #define M3_f77_PixelClass_GetTemplateFileRoot f77func_( m3_f77_pixelclass_gettemplatefileroot , M3_F77_PIXELCLASS_GETTEMPLATEFILEROOT )
00081 #define M3_f77_PowerSpectrum_GetNumBin f77func_( m3_f77_powerspectrum_getnumbin, M3_F77_POWERSPECTRUM_GETNUMBIN )
00082 #define M3_f77_PowerSpectrum_GetSpectrumClassRoot f77func_( m3_f77_powerspectrum_getspectrumclassroot, M3_F77_POWERSPECTRUM_GETSPECTRUMCLASSROOT )
00083 #define M3_f77_PowerSpectrum_GetFisherMatrix f77func_( m3_f77_powerspectrum_getfishermatrix, M3_F77_POWERSPECTRUM_GETFISHERMATRIX )
00084 #define M3_f77_SpectrumClass_GetSpectrumType f77func_( m3_f77_spectrumclass_getspectrumtype, M3_F77_SPECTRUMCLASS_GETSPECTRUMTYPE )
00085 #define M3_f77_SpectrumClass_GetMultipoleMax f77func_( m3_f77_spectrumclass_getmultipolemax, M3_F77_SPECTRUMCLASS_GETMULTIPOLEMAX )
00086 #define M3_f77_SpectrumClass_GetNumBin f77func_( m3_f77_spectrumclass_getnumbin, M3_F77_SPECTRUMCLASS_GETNUMBIN )
00087 #define M3_f77_SpectrumClass_GetShape f77func_( m3_f77_spectrumclass_getshape, M3_F77_SPECTRUMCLASS_GETSHAPE )
00088 #define M3_f77_SpectrumClass_GetBin f77func_( m3_f77_spectrumclass_getbin, M3_F77_SPECTRUMCLASS_GETBIN )
00089 #define M3_f77_SpectrumClass_GetBPS f77func_( m3_f77_spectrumclass_getbps, M3_F77_SPECTRUMCLASS_GETBPS )
00090 #define M3_f77_Interval_GetNextNodeInList f77func_( m3_f77_interval_getnextnodeinlist, M3_F77_INTERVAL_GETNEXTNODEINLIST )
00091 #define M3_f77_Interval_GetInterval f77func_( m3_f77_interval_getinterval, M3_F77_INTERVAL_GETINTERVAL )
00092 #define M3_f77_TimeInterval_GetInterval f77func_( m3_f77_timeinterval_getinterval, M3_F77_TIMEINTERVAL_GETINTERVAL )
00093 #define M3_f77_TimeInterval_InsertInterval f77func_( m3_f77_timeinterval_insertinterval, M3_F77_TIMEINTERVAL_INSERTINTERVAL )
00094 #define M3_f77_TimeInterval_DestroyList f77func_( m3_f77_timeinterval_destroylist, M3_F77_TIMEINTERVAL_DESTROYLIST )
00095 #define M3_f77_File_GetNextNodeInList f77func_( m3_f77_file_getnextnodeinlist , M3_F77_FILE_GETNEXTNODEINLIST )
00096 #define M3_f77_File_GetIndexedTemplate f77func_( m3_f77_file_getindexedtemplate, M3_F77_FILE_GETINDEXEDTEMPLATE )
00097 #define M3_f77_File_GetNoiseInterval f77func_( m3_f77_file_getnoiseinterval, M3_F77_FILE_GETNOISEINTERVAL )
00098 #define M3_f77_File_GetNoiseCorLength f77func_( m3_f77_file_getnoisecorlength, M3_F77_FILE_GETNOISECORLENGTH )
00099 #define M3_f77_File_GetNoise f77func_( m3_f77_file_getnoise, M3_F77_FILE_GETNOISE )
00100 #define M3_f77_PointingClass_GetNextNodeInList f77func_( m3_f77_pointingclass_getnextnodeinlist, M3_F77_POINTINGCLASS_GETNEXTNODEINLIST )
00101 #define M3_f77_PointingClass_GetNumNZ f77func_( m3_f77_pointingclass_getnumnz, M3_F77_POINTINGCLASS_GETNUMNZ )
00102 #define M3_f77_PointingClass_GetPixelClassNode f77func_( m3_f77_pointingclass_getpixelclassnode, M3_F77_POINTINGCLASS_GETPIXELCLASSNODE )
00103 #define M3_f77_GCPointingGroup_GetStoreSize f77func_( m3_f77_gcpointinggroup_getstoresize, M3_F77_GCPOINTINGGROUP_GETSTORESIZE )
00104 #define M3_f77_GCPointingGroup_GetNextNodeInList f77func_( m3_f77_gcpointinggroup_getnextnodeinlist, M3_F77_GCPOINTINGGROUP_GETNEXTNODEINLIST )
00105 #define M3_f77_GCPointingGroup_InitializeStore f77func_( m3_f77_gcpointinggroup_initializestore, M3_F77_GCPOINTINGGROUP_INITIALIZESTORE )
00106 #define M3_f77_GCPointingGroup_DestroyStore f77func_( m3_f77_gcpointinggroup_destroystore, M3_F77_GCPOINTINGGROUP_DESTROYSTORE )
00107 #define M3_f77_TODcache_AppendRequest f77func_( m3_f77_todcache_appendrequest, M3_F77_TODCACHE_APPENDREQUEST )
00108 #define M3_f77_TODcache_AppendRequestList f77func_( m3_f77_todcache_appendrequestlist, M3_F77_TODCACHE_APPENDREQUESTLIST )
00109 #define M3_f77_TODcache_Initialize f77func_( m3_f77_todcache_initialize, M3_F77_TODCACHE_INITIALIZE )
00110 #define M3_f77_TODcache_Destroy f77func_( m3_f77_todcache_destroy, M3_F77_TODCACHE_DESTROY )
00111 #define M3_f77_TODcache_SetCacheAll f77func_( m3_f77_todcache_setcacheall, M3_F77_TODCACHE_SETCACHEALL )
00112 #define M3_f77_TODcache_SetCacheNone f77func_( m3_f77_todcache_setcachenone, M3_F77_TODCACHE_SETCACHENONE )
00113 #define M3_f77_TODcache_SetCacheGCPdata f77func_( m3_f77_todcache_setcachegcpdata, M3_F77_TODCACHE_SETCACHEGCPDATA )
00114 #define M3_f77_TODcache_SetCacheScanMapData f77func_( m3_f77_todcache_setcachescanmapdata, M3_F77_TODCACHE_SETCACHESCANMAPDATA )
00115 #define M3_f77_TODcache_GetStoreSizeAllUB f77func_( m3_f77_todcache_getstoresizeallub, M3_F77_TODCACHE_GETSTORESIZEALLUB )
00116 #define M3_f77_TODcache_GetStoreSizeGCP f77func_( m3_f77_todcache_getstoresizegcp, M3_F77_TODCACHE_GETSTORESIZEGCP )
00117 #define M3_f77_TODcache_GetStoreSizeScanMapUB f77func_( m3_f77_todcache_getstoresizescanmapub, M3_F77_TODCACHE_GETSTORESIZESCANMAPUB )
00118
00119
00120
00121
00122
00123
00124
00125
00126 #define blacs_get f77func_( blacs_get, BLACS_GET )
00127 #define blacs_gridinit f77func_( blacs_gridinit, BLACS_GRIDINIT )
00128 #define blacs_gridmap f77func_( blacs_gridmap, BLACS_GRIDMAP )
00129 #define blacs_gridinfo f77func_( blacs_gridinfo, BLACS_GRIDINFO )
00130 #define descinit f77func( descinit, DESCINIT )
00131 #define numroc f77func( numroc, NUMROC )
00132 #define psgemr2d f77func( psgemr2d, PSGEMR2D )
00133 #define pdpotrf f77func( pdpotrf, PDPOTRF )
00134 #define pdpotrs f77func( pdpotrs, PDPOTRS )
00135 #define pdpotri f77func( pdpotri, PDPOTRI )
00136 #define pddot f77func( pddot, PDOT )
00137 #define pdsymv f77func( pdsymv, PDSYMV )
00138 #define pdgemm f77func( pdgemm, PDGEMM )
00139 #define pdgemv f77func( pdgemv, PDGEMV )
00140 #define pdlatra f77func( pdlatra, PDLATRA )
00141 #define pdtran f77func( pdtran, PDTRAN )
00142 #define dposv f77func( dposv, DPOSV )
00143 #define dpotri f77func( dpotri, DPOTRI )
00144 #define dpotrf f77func( dpotrf, DPOTRF )
00145 #define dcopy f77func( dcopy, DCOPY )
00146 #define daxpy f77func( daxpy, DAXPY )
00147 #define ddot f77func( ddot, DDOT )
00148
00149 #endif
