calo/unpacking/lundata.c

#include <stdlib.h>
#include <stdio.h>


void lundata_(long *dataLength,int *fd){
    

   int         ERROR;

  FILE *pFile;
  pFile = fopen("DWTemp.dat", "r");
  
  if (pFile==NULL) exit (1);

  // obtain file size.
  fseek (pFile , 0 , SEEK_END);
  dataLength = ftell (pFile);
  rewind (pFile);
  fclose (pFile);
  return 0;
}
1	#include <stdlib.h>
2	#include <stdio.h>
3
4
5
6	void lundata_(long dataLength,int fd){
7
8
9	int ERROR;
10
11	FILE *pFile;
12	pFile = fopen("DWTemp.dat", "r");
13
14	if (pFile==NULL) exit (1);
15
16	// obtain file size.
17	fseek (pFile , 0 , SEEK_END);
18	dataLength = ftell (pFile);
19	rewind (pFile);
20	fclose (pFile);
21	return 0;
22	}