function [list1, serialpos1, recalled1, trials, subject, uniqBL, F_names]=infoConducta(Words, pat_code_num, filename)
%UNTITLED Summary of this function goes here
%   Detailed explanation goes here

% pat_code_num= j;

  sess1=[Words.session]';   % this info will not be STORED 
  list1=[Words.list]';
  serialpos1=[Words.serialpos]';
  recalled1=[Words.recalled]';
  sz1= length(Words);
  trials=repmat(sz1, sz1, 1);   % total number of trials per subject
  subject= repmat(pat_code_num, sz1, 1);  
  

% compute a uniqueID for those trials with more than one session
uniqBL=[];
blocks=unique(sess1);
blocks1=1:length(blocks);


for i=1:length(Words)
%     sesion= sess1(i,1); 
%     i=1
    id=find(sess1(i,1)==blocks);
    
    switch blocks1(id) 
        case 1     
            uniqBL(i,1)=100+list1(i,1);
        case 2
            uniqBL(i,1)=200+list1(i,1);
        case 3
            uniqBL(i,1)=300+list1(i,1);
        case 4
            uniqBL(i,1)=400+list1(i,1);
        case 5
            uniqBL(i,1)=500+list1(i,1);
        case 6
            uniqBL(i,1)=600+list1(i,1);
        case 7
            uniqBL(i,1)=700+list1(i,1);
    end
            
end;

F_names={};
for i=1:length(Words)
    F_names{i}=filename;
    
end 


end