#include <stdio.h>
FILE *fp,*fp1,*fp2,*fp3;
char a[60],b[60],c[80],f[12],g[4];
main(int ac,char **av)
{
  int i,j,k;
  if(ac<3){
    printf("\n\t\t ******** fkey (focus batch)*********\n");
    printf("\n\t  focus raw_data ---> user_table             110921\n");
    printf("\n\t Usage: fkey  focus.0046.fits  0046\n");
    printf("\n\t do: d4,e4,e4dat,e4f\n\n");
    exit(0);
  }
//  job_d4(); 
  sprintf(a,"d4 %s",av[1]); system(a);
//  job_e4(); 
  strcpy(b,av[1]); k=strlen(b)-5; b[k]=0; strcat(b,"_?.fit"); k++;
  for(i=0;i<4;i++){ b[k]=i+49;
    sprintf(a,"e4 %s",b); system(a);
  }
//  job_e4dat(); 
  b[0]='e'; b[k+1]=0;
  for(i=0;i<4;i++){ b[k]=i+49;
    sprintf(a,"e4dat %s",b); system(a);
  }  
//  job_e4f(); 
  for(i=0;i<4;i++){ b[k]=i+49;
    sprintf(a,"e4f %s > %s_%d",b,av[2],i+1);
    printf("%s      --->  produe file: %s_%d\n",a,av[2],i+1);  system(a);
  }
  printf("\n\t****** OK ! ********\n");
}