Index: mttroot/mtt/bin/trans/mtt_m2p
==================================================================
--- mttroot/mtt/bin/trans/mtt_m2p
+++ mttroot/mtt/bin/trans/mtt_m2p
@@ -13,10 +13,13 @@
 ###############################################################
 ## Version control history
 ###############################################################
 ## $Id$
 ## $Log$
+## Revision 1.5  1998/07/25 15:06:17  peterg
+## Added DDT VAR
+##
 ## Revision 1.4  1998/07/25 15:05:54  peterg
 ## DD
 ##
 ## Revision 1.3  1998/07/25 14:03:30  peterg
 ## Added () to [] conversion when the variable is i j k or an integer or
@@ -91,10 +94,12 @@
 	echo "    mtty            : OutputVector;"
 	echo "    i,j,it,iLast,STEPFACTOR : INTEGER;"
 	echo "    METHOD : STRING;"
         ;;
     *)	echo "PROCEDURE $Sys_rep;"
+	echo "VAR"
+	echo "    i,j :  INTEGER;"
         ;;
 esac) > $Filename
 
 cat<<EOF >> $Filename