printdatafrominitd

 PRINT for READMAINVSR's Style for the variable name stored in initd.m
 printdatafrominitd('frominputmfile.mat',1), when variable names are in current workspace 
 printdatafrominitd('frominputmfile.mat'), variable list from initd.m 
 printdatafrominitd('frominputmfile.mat',1,'reza.dat'), variable list from reza.dat
 printdatafrominitd([],1,'initd.m'), Process current dir, var from current wks
 printdatafrominitd(dirname)
 Batch example:
 pathor = cd;
 a=subdir('D:\Nr');
 for ai = 1:length(a)
     dira = a{ai};
     cd(dira);
     printdatafrominitd(dirname);
     cd(pathor);
 end