00001 #if !defined(F77_EXTERNS_H)
00002 #define F77_EXTERNS_H
00003
00004 #if defined(F77_FUNC)
00005
00006 #define ppupdate_ F77_FUNC(ppupdate,PPUPDATE)
00007 #define ppparam_ F77_FUNC(ppparam,PPPARAM)
00008 #define ppinit_ F77_FUNC(ppinit,PPINIT)
00009
00010 #else
00011
00012 #error Unknown translation for FORTRAN external symbols
00013
00014 #endif
00015
00016 #endif
00017