%lecentp3l2.m

%lecture des entetes des fichiers in (ou valid) de jean des stations de pomme %après validation des données CTD
% usage: pour merger les infos des en tete avec les infos des fichiers oxygdefcor, en vue de fabriquer les fichiers résultats des ptsO2

% se mettre dans le bon repertoire ou se trouve les fichiers int de pomme, fichiers avec prefixes int
%cd D:\pomme\pommeres_def\ctd1mdef\p1lg1PTSCint5
CAMP='POMME A3Leg2    '; %16 places changer selon leg et pomme 
NAVIRE= 'THALASSA        '% 16 places aussi
pleg= 'p3l2'; %pour enregistrer dans fichier
stali= 3084:3339; %changer selon le leg, ici numerotation continue
% pour leg2 numerotation discontinue
stali= [3084:3099,3155:3168,3238:3252,3323:3339];
kmax= length(stali);
pref='int'; %si lecture de valid, pref='pom';

%initialisation, le resultat est dans entett
entett=ones(kmax,12)*NaN;

for k=1:kmax
    statstr= num2str(stali(k));
    fic=[pref,statstr];
[entett(k,1:12),texte]=lecentete(fic);
end
%modif pour etre plus clair
entett(:,1)=entett(:,1)+3000%pour pomm   %3000 car pomme 3
entett(:,2)=entett(:,2)+2000%siecle 2000
eval([['save entete',pleg],' entett CAMP NAVIRE texte']);
