Probleme d'acces fichier avec pointeur

void calcul_semaine(int M, float lon, float lat)
{
    printf("A present, nous allons vous demander de donner les coordonnees du lieu ou votre simulation doit etre faite.\n Pour cela, voici un petit rappel:\n\t La LATITUDE, notee lat, donne un renseignement sur la position Nord/Sud par rapport a l'equateur. Elle est positive vers le Nord,et negative vers le Sud.\n\t La LONGITUDE, notee lon, est un renseignement sur la position Est/Ouest par rapport au meridien de Greenwich. Elle est positive vers l'Ouest et negative vers l'Est.\n\n");
    printf("Veuillez nous donner la LATITUDE (en degre):\t");
    Color(12,0);scanf("%f", &lat);Color(15,0);
    printf("\n");
    printf("Veuillez nous donner la LONGITUDE (en degre):\t");
    Color(12,0);scanf("%f", &lon);Color(15,0);
    printf("\n");
   // printf("Nous avons choisi un pas de 30 minutes, soit 0.5h pour faire cette simulation\n");
    int v; //declaration du jour pour l'affichage dans le fichier texte
    for (v=1;v<=7;v=v+1)
    {
        float H,h,m;
        for(H=0;H<=23;H=H+1)
        {
            for (m=0;m<=59;m=m+15)
            {
                h=H+(m/60);
                float J;
                float TU; // Temps Universel
                double Pi=3.141592653576; // Valeur de PI ......
                double dec; // definition declinaison
                double cor; //facteur de correction
                double tsv; // definition temps solaire vrai
                double ah; // definition angle solaire
                double HS; // Definition angle de hauteur solaire
                double Gc; // Definition de l'irradiation solaire globale
                TU=h-(lon/15);
                float J2;
                if(J>=1 && J<=81)
                    {
                        J2 = 365-J;
                    }
                else J2=J;
                cor=1+0.034*cos((2*Pi/365.25)*(J2-3)); //facteur de correction [Sans unite]
                dec= asin(0.3978*sin(((2*Pi)/365.25)*(J2-81-2*sin(((2*Pi)/365.25)*(J2-2)))));// declinaison [En Radian]
                dec=-dec;
                if(dec/(2*Pi) < 1) dec = dec;
                else dec = dec - 2*Pi*floor(dec/(2*Pi));
                tsv = TU + lon*(Pi/180)*(12/Pi)+(1/60)*(57.3)*(9.9*sin(1.972*(2*Pi/360)*J2+200)-7.7*sin((2*Pi/365.25)*J2-2)); // temps solaire Vrai
                if((tsv/24) < 1 ) {  tsv = tsv;}
                else  tsv=(tsv - 24*floor(tsv/24)) ;
                ah=tsv*(Pi/12)+Pi;// Angle de Hauteur solaire en RADIAN et modulo 2Pi;
                if(ah/(2*Pi) < 1) {ah = ah;}
                else ah=(ah - 2*Pi*floor(ah/(2*Pi)) );
                HS=(Pi/2)-acos(sin(lat*(Pi/180))*sin(dec)+cos(lat*(Pi/180))*cos(dec)*cos(ah)); // Hauteur Solaire
                double TL=4.35;
                double X = sin(HS); double Y=(36+TL)/33;
                Gc = cor*(1300-TL)*pow(X,Y);
                if (Gc > 0.01)
                {
                    Gc = Gc;
                }
                else
                {
                    Gc = 0;
                }
                FILE*document;
                document = fopen("C:/Users/marie/Desktop/semaine.txt","a");
                if (document != NULL)
                {
                    fprintf(document,"%d \t",v);
                    fprintf(document,"%.0lf:%.0lf \t",H,m);
                    fprintf(document,"%.3lf\n",Gc);
                }
                else
                {
                    printf("Desole, il y a eu une erreur d'acces au document");
                    exit(-1);
                }
            }
        }
    }

    printf("Mission Accomplie, les donnees sont sur le fichier SEMAINE !!!");
}

void calcul_semaine(double *lat) {
     scanf("%lf", lat);
}