function scaninfo = scxheader(tmpfilename);%tmpfilename='/data/fdgdyn/animals/pet/PCNUSI______-WBFDG_____065428$W001.IMA';%tmpfilename='PCNUSI______-WBFDG_____065428$W001.IMA';%fclose(vaxpid);num_of_slice = 15;vaxpid = fopen(tmpfilename,'r','vaxd');htmp = fread(vaxpid,28,'char');%ignoringscaninfo.rid = strcat(char(fread(vaxpid,10,'char')))';%RIDscaninfo.rin = fread(vaxpid,1,'long'); %RINhtmp = fread(vaxpid,26,'char');%ignoringscaninfo.brn = fread(vaxpid,1,'long'); %brnhtmp = fread(vaxpid,44,'char');%ignoringscaninfo.daty = fread(vaxpid,1,'int8'); %DATYscaninfo.datm = fread(vaxpid,1,'int8'); %DATMscaninfo.datd = fread(vaxpid,1,'int8'); %datdscaninfo.timh = fread(vaxpid,1,'int8'); %timhscaninfo.timm = fread(vaxpid,1,'int8'); %timmscaninfo.tims = fread(vaxpid,1,'int8'); %timshtmp = fread(vaxpid,27,'char');%ignoringscaninfo.mtm = fread(vaxpid,1,'float'); %mtmhtmp = fread(vaxpid,4,'char');%ignoringscaninfo.iso = strcat(char(fread(vaxpid,6,'char')))';%isoif strcmp(scaninfo.iso,'F-18');% setting the iso.halftime [min]    scaninfo.half = 109.8;elseif strcmp(scaninfo.iso,'C-11');    scaninfo.half = 20.3;elseif strcmp(scaninfo.iso,'O-15');    scaninfo.half = 2.03;   endhtmp = fread(vaxpid,100,'char');%ignoringscaninfo.trat = fread(vaxpid,1,'float'); %trathtmp = fread(vaxpid,2,'char');%ignoringimfm = fread(vaxpid,1,'int16');%imfm //fpos= 270scaninfo.imfm = [imfm,imfm]; htmp = fread(vaxpid,34,'char');%ignoring //fpos= 306scaninfo.cntx = strcat(char(fread(vaxpid,10,'char')))';%cntxhtmp = fread(vaxpid,579-316,'char');%ignoring: next pos=579 for CAL1for i=1:num_of_slice    scaninfo.cal(i) = fread(vaxpid,1,'float'); %CAL i    scaninfo.min(i) = fread(vaxpid,1,'int16'); %min i    scaninfo.mag(i) = fread(vaxpid,1,'float'); %mag i    htmp = fread(vaxpid,93,'char');%ignoringendscaninfo.float = 0;fclose(vaxpid);