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

float kep[50][100];

void fits_ment(char *fnev)
{
    int i;
    FILE *file;
    char fejlec[2880];  /* 36 * 80 = 2880 */

    for (i = 0; i < 2880; i++) fejlec[i] = 32;

    sprintf(&fejlec[0 * 80], "SIMPLE  = %20s", "T");
    sprintf(&fejlec[1 * 80], "BITPIX  = %20d", -32);
    sprintf(&fejlec[2 * 80], "NAXIS   = %20d", 2);
    sprintf(&fejlec[3 * 80], "NAXIS1  = %20d", 50);
    sprintf(&fejlec[4 * 80], "NAXIS2  = %20d", 100);
    sprintf(&fejlec[5 * 80], "END");

    for (i = 0; i < 2880; i++)
        if (fejlec[i] == 0) fejlec[i] = 32;

    file = fopen(fnev, "wb");
    if (file == NULL) exit;
    if (fwrite(fejlec, sizeof(char), 2880, file) == 0) {
       fclose(file);
       exit;
    }
    if (fwrite(kep, sizeof(float), 50 * 100, file) == 0) {
       fclose(file);
       exit;
    }
    fclose(file);
}

void main()
{
    fits_ment("kep.fts");
}