C言語のコンパイルが上手くいきません

Question

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


/*---------------------------*/
/*   Conventional Routines   */
/*---------------------------*/

#define MxGEN   9
#define RAD     (180./3.14159265359)
#define MxMOD   19
#define MxELM   ((MxMOD+1)*(MxMOD+1)-1)
#define MxCOL   50
#define LLINE   (MxCOL*9 + 10)

void gigrf(int gen, double year)
{   int maxod, i, n, m, l, k, ncol, nlin;
    double y1, y2, yr1, yr2, dy;
    double tzero, dmy[3], cb[MxELM], cv[MxELM];
    char path[]="/home/SHARE/data/IGRFCOEF/igrf00.coef";
    char file[]="/home/SHARE/data/IGRFCOEF/igrf00.coef";
    char *pstr, *line, buf[LLINE];
    FILE *fp;
    if ((gen<1) || (MxGEN<gen))
        { fprintf(stderr, "gigrf: unknown  NGEN = %d\n", gen); exit(1); }
    strcpy(file, path);
    if ((pstr=strstr(file,"00")) == NULL)
        { fprintf(stderr, "gigrf: filename invalid\n"); exit(1); }
    sprintf(buf, "%02d", gen); strncpy(pstr, buf, 2);
    if ((fp=fopen(file,"r")) == NULL)
        { fprintf(stderr, "gigrf: file not found\n"); exit(1); }
    if (fgets(buf,LLINE,fp) == NULL)
        { fprintf(stderr, "gigrf: file empty\n"); exit(1); }
    if (sscanf(buf,"%d%d%lf%lf",&maxod,&ncol,&y1,&y2) != 4)
        { fprintf(stderr, "gigrf: Line-1 format error\n"); exit(1); }
    if ((maxod<8) || (maxod>MxMOD) || (ncol<2) || (ncol>MxCOL))
        { fprintf(stderr, "gigrf: Line-1 invalid\n"); exit(1); }
    nlin = (maxod+1)*(maxod+1) - 1;
    if ((year<y1) || (year>y2))
        fprintf(stderr, "gigrf: IGRF-%02d not defined for %9.3lf\n", gen,year);
    if (fgets(buf,LLINE,fp) == NULL)
        { fprintf(stderr, "gigrf: EOF before Line-2\n"); exit(1); }
    line = &buf[1];
    if (sscanf(line,"%*c%*d%*d%lf%n",&yr2,&n) == EOF)
        { fprintf(stderr, "gigrf: Line-2 invalid\n"); exit(1); }
    for (l=2; l<ncol; l++) {
        line += n; yr1 = yr2;
        if (sscanf(line,"%lf%n",&yr2,&n) == EOF)
            { fprintf(stderr, "gigrf: Line-2 short\n"); exit(1); }
        if (year < yr2) break;
    }
    for (i=0; i<nlin; i++) {
        if (fgets(buf,LLINE,fp) == NULL)
            { fprintf(stderr, "gigrf: EOF before Line-%d\n", i+3); exit(1); }
        line = &buf[0];
        if (sscanf(line,"%*c%*d%*d%n",&n) == EOF)
            { fprintf(stderr, "gigrf: Line-%d invalid\n", i+3); exit(1); }
        for (m=2; m<l; m++) {
            line += n;
            if (sscanf(line,"%*lf%n",&n) == EOF)
                { fprintf(stderr, "gigrf: Line-%d short\n", i+3); exit(1); }
        }
        line += n;
        if (sscanf(line,"%lf%lf",&cb[i],&cv[i]) != 2)
            { fprintf(stderr, "gigrf: Line-%d short\n", i+3); exit(1); }
    }
    if (l == ncol) tzero = yr2;
    else {
        tzero = yr1; yr2 -= yr1;
        for (i=0; i<nlin; i++) cv[i] = (cv[i]-cb[i])/yr2;
    }
    k = 0;
    for (i=0,n=1; n<=maxod; n++) {
        vgh[0][n]=cb[i]; vght[0][n]=cv[i]; i++;
        if ((cb[i]!=0.) || (cv[i]!=0.)) k = n;
        for (m=1; m<=n; m++) {
            vgh[m][n]=cb[i]; vght[m][n]=cv[i]; i++;
            if ((cb[i]!=0.) || (cv[i]!=0.)) k = n;
            vgh[n][m-1]=cb[i]; vght[n][m-1]=cv[i]; i++;
            if ((cb[i]!=0.) || (cv[i]!=0.)) k = n;
        }
    }
    maxod = k;
    field(6378.16, 298.25, 6371.2, maxod);
    tcoef(vgh, vght, tzero, 0, dmy); tyear(year);
}

void igrfc(double fido, double fkeido, double hght, double *tf)
{   double fx, fy, fz;
    mfldg(fido, fkeido, hght/1000., &fx, &fy, &fz, tf);
}

void igrfm(double fm[6])
{   double gx, gy, gz, h, dip, dec;
    gcomp(&gx, &gy, &gz);
    h=sqrt(gx*gx+gy*gy); dip=atan2(gz,h); dec=atan2(gy,gx);
    fm[0]=gx; fm[1]=gy; fm[2]=gz; fm[3]=h; fm[4]=dip*RAD; fm[5]=dec*RAD;
}


void sigrf(double year)
{   int maxod, i, n, m, l;
    double tzero, dmy[3];
    l=(int)(year-1970.)/5; if (l < 0) l=0; else if (l >= 7) l=6;
    if (l < 2) maxod=8; else maxod=10;
    tzero=(double)(l*5 + 1970); if (l==0) tzero=1965.;
    if ((year<1955.) || (year>2005.))
        fprintf(stderr, "sigrf: IGRF not available for %8.3lf\n", year);
    for (i=0,n=1; n<=maxod; n++) {
        vgh[0][n]=rf[l][i];
        if (n<=8) vght[0][n]=sv[l][i]; else vght[0][n]=0.;
        i++;
        for (m=1; m<=n; m++) {
            vgh[m][n]=rf[l][i];
            if (n<=8) vght[m][n]=sv[l][i]; else vght[m][n]=0.;
            i++;
            vgh[n][m-1]=rf[l][i];
            if (n<=8) vght[n][m-1]=sv[l][i]; else vght[n][m-1]=0.;
            i++;
        }
    }
    field(6378.16, 298.25, 6371.2, maxod);
    tcoef(vgh, vght, tzero, 0, dmy); tyear(year);
}

void sdgrf(double year)
{   int i, n, m, l;
    double dmy[3];
    l=(int)(year-1945.)/5; if (l < 0) l=0; else if (l >= 9) l=8;
    if ((year<1945.) || (year>1990.))
        fprintf(stderr, "sdgrf: DGRF not available for %8.3lf\n", year);
    for (i=0,n=1; n<=10; n++) {
        vgh[0][n]=df[l][i]; vght[0][n]=(df[l+1][i]-df[l][i])/5.; i++;
        for (m=1; m<=n; m++) {
            vgh[m][n]=df[l][i]; vght[m][n]=(df[l+1][i]-df[l][i])/5.; i++;
            vgh[n][m-1]=df[l][i]; vght[n][m-1]=(df[l+1][i]-df[l][i])/5.; i++;
        }
    }
    field(6378.16, 298.25, 6371.2, 10);
    tcoef(vgh, vght, (double)(1945+l*5), 0, dmy); tyear(year);
}

void spgrf(double year)
{   int i, n, m, l;
    double dmy[3];
    l=(int)(year-1945.)/5; if (l < 6) l=6; else if (l >= 10) l=9;
    if ((year<1975.) || (year>1995.))
        fprintf(stderr, "spgrf: PGRF not available for %8.3lf\n", year);
    for (i=0,n=1; n<=10; n++) {
        vgh[0][n]=df[l][i]; vght[0][n]=(rf[l-4][i]-df[l][i])/5.; i++;
        for (m=1; m<=n; m++) {
            vgh[m][n]=df[l][i]; vght[m][n]=(rf[l-4][i]-df[l][i])/5.; i++;
            vgh[n][m-1]=df[l][i]; vght[n][m-1]=(rf[l-4][i]-df[l][i])/5.; i++;
        }
    }
    field(6378.16, 298.25, 6371.2, 10);
    tcoef(vgh, vght, (double)(1945+l*5), 0, dmy); tyear(year);
}

void gigrf_(int *gen, float *year) { gigrf(*gen, (double)*year); }
void igrfc_(float *fi, float *fk, float *h, float *f)
    { double df; igrfc((double)*fi,(double)*fk,(double)*h,&df); *f=df; }
void igrfm_(float fm[6])
    { double dfm[6]; int i; igrfm(dfm); for (i=0; i<6; i++) fm[i]=dfm[i]; }
void sigrf_(float *year) { sigrf((double)*year); }
void sdgrf_(float *year) { sdgrf((double)*year); }
void spgrf_(float *year) { spgrf((double)*year); }

コード
```### 前提・実現したいこと
igrfによる磁場を計算するプログラムを学習しています
### 発生している問題・エラーメッセージ

c:/mingw/bin/../lib/gcc/mingw32/9.2.0/../../../../mingw32/bin/ld.exe: c:/mingw/bin/../lib/gcc/mingw32/9.2.0/../../../libmingw32.a(main.o):(.text.startup+0xc0): undefined reference to `WinMain@16'
collect2.exe: error: ld returned 1 exit status

### 該当のソースコード

### 試したこと
先生から型誓言がないといわれましたがよく分からないです
### 補足情報（FW/ツールのバージョンなど）
visualstudiocodeで実行しています。
他のソースはコンパイルから実行まで上手くいきました。

Comments

[y_waiwai]

コードを提示しましょう
質問を編集し、<code>ボタンを押し、出てくる’’’の枠の中にコードを貼り付けてください

[seikin_tv_love]

すいませんプログラムが長いので一部分を載せましたがわかりますでしょうか？

Answer 1

C言語のプログラムでは、main関数（Windows向けのプログラムではWinMain関数）が必ず定義されてなければなりません
このエラーはまさに、その関数が定義されていない、というエラーです。

ということで、main関数を追加してみよう

Comments

[thkana]

> このエラーはまさに、その関数が定義されていない、というエラーです。
ではないでしょう。

MinGWのgccコンパイラでは、main関数がないと内部的な諸般の事情で'WinMainがない'というエラーになるという事情があるというのは一部で知られているかもしれませんが。