#include <stdio.h>
FILE *fp,*fp1,*fp2;
char a[20],b[60],c[80],head[72][80];
main(int ac,char **av)
{
  int i,j,k=0;
  int ia;
  int j1,j2,j3,j4;
  if(ac<4){ printf("\n\t*** get fits messages (2010) *****\n");
            printf("\n\tUsage: getfit0 row col len [n]");
            printf("\n\tEx: getfit0 29 70 7 7");
            printf("\n\tEx: getfit0 29 24 6\n\n");
            exit(0);
          }
  sscanf(av[1],"%d",&j1);
  sscanf(av[2],"%d",&j2);
  sscanf(av[3],"%d",&j3);
  if(ac>4)sscanf(av[4],"%d",&j4); else j4=0;
  fp1=fopen("/vega2/rhbin/getfit0.par","r");
  if(fp1==0){ printf("\n\tI cannot found getfit0.par at /vega2/rhbin\n\n");
              exit(0); }
l10:
  fgets(a,20,fp1); if(feof(fp1))goto l90;
  ia=strlen(a); a[ia-1]=0;
  sprintf(b,"ls /line3/uband-data/cat/%s/p*.fit >/tmp/getfit0.tmp",a);
  system(b);
  fp2=fopen("/tmp/getfit0.tmp","r");
l20:
  fgets(b,60,fp2);  if(feof(fp2))goto l80;
  b[strlen(b)-1]=0;
  fp=fopen(b,"rb"); fread(head,72,80,fp); fclose(fp);
  head[j1][j2+j3]=0;
  if(j4==0)printf("%s %s\n",b,&head[j1][j2]);  else {
     k++; if(k>j4)exit(0);  printf("%4d: %s %s\n",k,b,&head[j1][j2]);
  }
  goto l20;  
l80:
  fclose(fp2);
  goto l10;
l90:
  fclose(fp1);
  system("rm /tmp/getfit0.tmp");
}