Changeset 3520 for trunk/Ohana/src/gastro2/src/rtext.c

Timestamp:

Mar 27, 2005, 4:39:46 PM (21 years ago)

Author:

eugene

Message:

converted to autocode SMPData

File:

• trunk/Ohana/src/gastro2/src/rtext.c (modified) (3 diffs)

trunk/Ohana/src/gastro2/src/rtext.c

@@ -5 +5 @@
 # define BLOCK 1000
 
-StarData *rtext (char *filename, Header *header, int *nstars) {
+StarData *rtext (FILE *f, int *nstars) {
 
   FILE *f;
@@ -13 +13 @@
   StarData *stars;
 
-  /* allocate space for stars */
-  NSTARS = -1;
-  fits_scan (header, "NSTARS", "%d", 1, &NSTARS);
-  if (NSTARS == -1) {
-    fprintf (stderr, "ERROR: failed to find NSTARS\n");
-    exit (1);
-  }
+  NSTARS = *nstars;
   ALLOCATE (stars, StarData, MAX (NSTARS, 1));
   Nbytes = NSTARS*BYTES_STAR;
-
-  /* open file for stars */
-  f = fopen (filename, "r");
-  if (f == NULL) {
-    fprintf (stderr, "ERROR: can't open file to load stars\n");
-    exit (1);
-  }
-  fseek (f, header[0].size, SEEK_SET); 
 
   N = Nstars = 0;
@@ -52 +38 @@
   }
   free (buffer);
-  fclose (f);
  
   if (Nstars != NSTARS) {