#!/bin/sh 

# Collect necessary ddl's

DDLS="GEOMETRY.ddl GEOGEANT.ddl"
cat $DDLS > mad.ddl

# Create mad.kumac

cat > mad.kumac << stop
ddl/set ESetlength 32
ddl/set AttributeLength 32
mess Reading DDL ...
ddl/read mad.ddl
dic/check
mess Writing FORTRAN code ...
fortran/write mad.adamo
fortran/set initap INITAP:2000000
fortran/set creobj CREOBJ
fortran/set length 12
fortran/set metachar @
fortran/set dkfile @.F
fortran/set cdfile @.inc
fortran/set capattern '#include "@.inc"'
fortran/set adpattern '#include "@.inc"'
fortran/conv mad.adamo
stop

# Run MAD on the kumac

mad << stop
exit
stop

# Clean up

rm -f mad.kumac mad.adamo mad.ddl *INQ