/* add 1 hour to UT_TIME 9815-9841 */
#include <stdio.h>
char f1[80],a[72][80];
FILE *fp,*fp1;
int iy,im,id,md,ipos,n1,n2;
char c;
main()
{
  int i,j,k;
  system("ls d*.fits >1.1");
  fp=fopen("1.1","r");
l10:
  fgets(f1,60,fp);
  for(i=0;i<60;i++)if(f1[i]<32)f1[i]=0;	
  if(feof(fp)!=0){
    fclose(fp);
    unlink("1.1");
    exit(0);
  }
  c=f1[0];
  fp1=fopen(f1,"rb");
  fread(a,80,72,fp1);
  fclose(fp1);

  ipos=indexpos(a,"END     ");
  if(ipos<71){
    for(i=0;i<80;i++){a[71][i]=a[ipos][i]; a[ipos][i]=32;}     
    fp1=fopen(f1,"r+b");
    fwrite(a,80,72,fp1);
    fclose(fp1);
    printf("                          re_write fits_head (END)\n");
  }
 
  sscanf(&f1[1],"%4d",&md);
  if(md<9602 || md>9608)exit(0);

  ipos=indexpos(a,"TIME    ");
  if(a[ipos][35]=='_')goto l10;
  sscanf(&a[ipos][19],"%2d",&i);
  i++; i=i%24;
  sprintf(&a[ipos][19],"%02d",i);
  a[ipos][21]=':';
  a[ipos][35]='_';

  fp1=fopen(f1,"r+b");
  fwrite(a,80,72,fp1);
  fclose(fp1);
  printf("%s re_write fits_head (_UT)\n",f1);

  goto l10;
}

indexpos(head,f1)
char head[72][80],f1[8];
{
  int i,j;
  for(i=0;i<72;i++){
    for(j=0;j<8;j++) if(head[i][j]!=f1[j])goto l10;
    return i;
l10:
    continue;
  }
  return i;
}