186

APPENDIX  C.  PROGRAM-LISTINGS
printf  ("72d  7d  %dIn",  subj,  sess,  exp);
if  (sess  ==  2)  (
for  (m=1;m(13;++m)  (
for  (n=1;n(13;++n)
1
fscanf  (filein,"72d  ",  ta2m  n));
1*
*/
a2mn  -  getc(filein);
printf  ("72d  ",  a2m  nl);
);
).
printf("Vn"),
);
);
/comparing  matrices  *
coun  =  O;
for  (m=1;m(13;++)
for  (n=1;n(13;+n)
1
if  ((m:=n)  &ap  (ainm==0)  aap  (a2mn=-0))  (
oun++;
fprintf  (fileout,"72d  %d  72d  72d  72d  72d  72dn",
subj,  exp,  coun,  m,  n,  allmnl,  a2nl  ml);
);
):
);
/  fprintf  (fileout,  "72d  %d  72dn",  subj,  exp,  coun);  */
);
J:
fclose  (filein);
fclose  (fileout);
return;