/***********************************************************\
*  'binas' wandelt einen bin"aeren Datensatz in einen       *
*  ASCII-Datensatz um. Der Name der unzuwandelden Datei     *
*  wird in den Programmaufruf geschrieben.                  *
*  (z.B. binas.exe bin.ini liefert eine bin.ini.a)          *
*  (Heiner K"ornich,IAP K-Born, 22.7.97)                    *
\***********************************************************/

#include <stdio.h>
#include <string.h>
/* #include "NT_LEVELS.h" */   /* "Ubergabe von NT,M1,M2,Mi,LEVELS,NW */



int main (int anzahl, char *argument[])
{
   int error=0,i;
   FILE *binf, *asciif;
   float ueber[1];

   if(anzahl!=2)
   {
     printf("Bitte genau ein Argument eingeben!!!\n");
     return 1;
   }
   binf=fopen(argument[1],"rb");
   if(binf==0)
   {
      printf("Die Datei \"%s\" gibt's ja gar nicht.\n",argument[1]);
      return 1;
   }
   printf("Na gut!\n");
   asciif=fopen(strcat(argument[1],".a"),"w");

   while(fread(ueber,sizeof(float),1,binf)!=0)
   {
      fprintf(asciif,"%E \n",ueber[0]);
      error+=1;
/*      if(error%5==0) fprintf(asciif,"\n");*/
   }
   printf("Uebertragungen: %d\n",error);
   return 0;
}