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.58  2000/10/17 09:54:29  peterg
+## replaced switchopen by logic
+##
 ## Revision 1.57  2000/10/15 10:35:35  peterg
 ## Fixed _input.p header
 ##
 ## Revision 1.56  2000/10/14 09:14:24  peterg
 ## *** empty log message ***
@@ -371,11 +374,11 @@
 {*** Translated by MTT from $Sys_rep.m on `date` ***}
 
 EOF
 
 # Regexps
-  name="[a-zA-Z0-9_]*"
+  name="[a-zA-Z0-9_][a-zA-Z0-9_][a-zA-Z0-9_]*"
   fun_name="$Sys\_$name"
   mttfun_name=$name
   tab='	'
   space="[ $tab]*"
   spaces="[ $tab][ $tab]*"