char id_format[] = "@(#)format.h 1.1";
* format parser definitions
#define DE 27 /*** NOT STANDARD FORTRAN ***/
#define R 33 /*** NOT STANDARD FORTRAN ***/
#define DOLAR 34 /*** NOT STANDARD FORTRAN ***/
#define SU 35 /*** NOT STANDARD FORTRAN ***/
extern int pc
,parenlvl
,revloc
;