https://wiki-pnb.eri.ucsb.edu/index.php?action=history&feed=atom&title=Ctd2strip_v2.m 2026-04-19T20:04:20Z Revision history for this page on the wiki MediaWiki 1.34.0 https://wiki-pnb.eri.ucsb.edu/index.php?title=Ctd2strip_v2.m&diff=193&oldid=prev 2010-08-05T22:32:51Z

<p>Created page with &#039;&lt;pre&gt; %CTD2STRIP.M %function to add header information to the flat ctd files. %called by merge_ctdac9_v2 ----Modified by Erik S. %Modified to print ctd_head here instead of in me…&#039;</p> <p><b>New page</b></p><div>&lt;pre&gt;<br /> %CTD2STRIP.M<br /> %function to add header information to the flat ctd files.<br /> %called by merge_ctdac9_v2 ----Modified by Erik S.<br /> %Modified to print ctd_head here instead of in merge_ctdac9_v2 6/7/2010<br /> % '%%%' means modified 6/7/2010<br /> <br /> <br /> function ctd2strip(pb,ctd_base) %%% pass in pb and eliminated 'head' return<br /> <br /> here = pwd;<br /> cd .. %%%<br /> cd CTD; %%%<br /> cd(pb); %%%<br /> cd hdr; %%%<br /> <br /> ctd_base;<br /> % % [s,name]=unix([ 'grep name ' ctd_base '.hdr']); <br /> % % if length(name) &gt; 20<br /> % % [s,name]=unix([ 'grep name ' ctd_base '.HDR']);<br /> <br /> [s,name]=unix([ 'grep name ' ctd_base '.hdr']);<br /> %%% if length(name) &gt; 20<br /> %%% [s,name]=unix([ 'grep name ' ctd_base '.HDR'])<br /> %%% true =1;<br /> %%% end<br /> %%% if true ==1<br /> %%% [s,time]=unix([ 'grep Time ' ctd_base '.HDR'])<br /> %%%else<br /> [s,time]=unix([ 'grep Time ' ctd_base '.hdr']);<br /> %%%end<br /> % [s,time]=unix([ 'grep Time ' ctd_base '.HDR'])<br /> <br /> <br /> time=eval('[''# '' parse(time,-6)]');<br /> file = strcat(ctd_base,'.hdr'); %%%<br /> file2 = strcat('ctd_head_n');%%%<br /> fid2 = fopen(file2,'w');%%%<br /> fid = fopen(file,'r');%%%<br /> pwd<br /> line =0;%%%<br /> while strncmp(line,'# name',6) ~=1%%%<br /> telllast = ftell(fid);<br /> line = fgets(fid);%%%<br /> end%%%<br /> count = 1;%%%<br /> whos;<br /> <br /> fprintf(fid2,'%s\n',time)<br /> fseek(fid,telllast,-1);<br /> while strncmp(line,'# span',6) ~=1%%<br /> line = char(fgets(fid));%%%<br /> if strncmp(line,'# span',6) ==1%%%<br /> break%%%<br /> end<br /> fprintf(fid2,'%s',line)%%%<br /> end<br /> pwd;<br /> fclose(fid);<br /> fclose(fid2);<br /> <br /> <br /> unix('mv ctd_head_n ../../../processing'); %%%<br /> cd(here);<br /> <br /> <br /> return<br /> &lt;/pre&gt;<br /> <br /> &lt;big&gt;[[ctd2strip_v2]]&lt;big&gt;</div>

128.111.101.185