h09050
s 00090/00000/00000
d D 1.1 83/03/15 21:44:08 tes 1 0
c date and time created 83/03/15 21:44:08 by tes
e
u
4
U
t
T
I 1
divert(-1)
define(`gacwk',		`kacwk')
define(`gcla',		`kcla')
define(`gclks',		`kclks')
define(`gclrwk',	`kclrwk')
define(`gclwk',		`kclwk')
define(`gdawk',		`kdawk')
define(`geclks',	`keclks')
define(`gesc',		`kesc')
define(`gfa',		`kfa')
define(`ggdp',		`kgdp')
define(`giagdp',	`kiagdp')
define(`giaip',         `kiaip')
define(`gicf',		`kicf')
define(`gici',		`kici')
define(`giciav',	`kiciav')
define(`gicl',		`kicl')
define(`gicla',		`kicla')
define(`giclad',	`kiclad')
define(`giclin',	`kiclin')
define(`gicnt',		`kicnt')
define(`gicntn',	`kicntn')
define(`gicr',		`kicr')
define(`gicspa',	`kicspa')
define(`gifaf',		`kifaf')
define(`gikslv',	`kikslv')
define(`gimxds',	`kimxds')
define(`gimxnt',	`kimxnt')
define(`gint',		`kint')
define(`giopwk',	`kiopwk')
define(`gipaf',		`kipaf')
define(`giplf',		`kiplf')
define(`gipmf',		`kipmf')
define(`gitxex',	`kitxex')
define(`gitxf',		`kitxf')
define(`giwkct',	`kiwkct')
define(`giwks',		`kiwks')
define(`giwkt',		`kiwkt')
define(`gopks',		`kopks')
define(`gopwk',		`kopwk')
define(`gpl',		`kpl')
define(`gpm',		`kpm')
define(`grqch',		`krqch')
define(`grqlc',		`krqlc')
define(`grqst',		`krqst')
define(`grqvl',		`krqvl')
define(`gschal',	`kschal')
define(`gschh',		`kschh')
define(`gschu',		`kschu')
define(`gsclin',	`ksclin')
define(`gscr',		`kscr')
define(`gselnt',	`kselnt')
define(`gsfaci',	`ksfaci')
define(`gsfais',	`ksfais')
define(`gsfasi',	`ksfasi')
define(`gslwsf',	`kslwsf')
define(`gsmssf',	`ksmssf')
define(`gsplci',	`ksplci')
define(`gsplt',		`ksplt')
define(`gspmci',	`kspmci')
define(`gspmt',		`kspmt')
define(`gstxci',	`kstxci')
define(`gstxft',	`kstxft')
define(`gstxpr',	`kstxpr')
define(`gsvw',		`ksvw')
define(`gsw',		`ksw')
define(`gswkvw',	`kswkvw')
define(`gswkw',		`kswkw')
define(`gtx',		`ktx')
define(`gupdwk',	`kupdwk') 
define(`gchrin',	`kchrin') 
define(`gdevin',	`kdevin') 
define(`gchrot',	`kchrot') 
define(`gdevot',	`kdevot') 
define(`gcstin',	`kcstin') 
define(`gdstin',	`kdstin') 
define(`gcstot',	`kcstot') 
define(`gdstot',	`kdstot') 
define(`gchtoi',	`kchtoi') 
define(`gitoch',	`kitoch') 
define(`gioini',        `kioini')
define(`giostp',        `kiostp')
define(`giochn',        `kiochn')
define(`gdcndc',        `kdcndc')
define(`gndcdc',        `kndcdc')
define(`gndcw2',        `kndcw2')
define(`gwndc2',        `kwndc2')
# undefine M4 reserved word index for use as fortran variable
undefine(`index')
divert
E 1
