Page Menu
Home
c4science
Search
Configure Global Search
Log In
Files
F97124981
w_gianti.c
No One
Temporary
Actions
Download File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Subscribers
None
File Metadata
Details
File Info
Storage
Attached
Created
Thu, Jan 2, 17:44
Size
1 KB
Mime Type
text/x-c
Expires
Sat, Jan 4, 17:44 (1 d, 23 h)
Engine
blob
Format
Raw Data
Handle
23260678
Attached To
R1448 Lenstool-HPC
w_gianti.c
View Options
#include<stdio.h>
#include<math.h>
#include<fonction.h>
#include<constant.h>
#include<dimension.h>
#include<structure.h>
/****************************************************************/
/* nom: ecrirei */
/* auteur: Jean-Paul Kneib */
/* date: 10/02/92 */
/* place: Toulouse */
/****************************************************************/
void w_gianti(int ngs, char name[20])
{
const extern struct pointgal gianti[][NIMAX];
register int i, j;
int l;
FILE *OUT;
OUT = fopen(name, "w");
l = 0;
for (i = 0; i < ngs; i++)
for (j = 0; (j < NIMAX) && (gianti[i][j].n != 0); l++, j++);
fprintf(OUT, "%d\n", 1);
fprintf(OUT, "%d\n", l);
fprintf(OUT, "double txt complex\n");
fprintf(OUT, "test\n");
for (i = 0; i < ngs; i++)
for (j = 0; (j < NIMAX) && (gianti[i][j].n != 0); j++)
fprintf(OUT, "%lf %lf\n", gianti[i][j].C.x, gianti[i][j].C.y);
fclose(OUT);
}
Event Timeline
Log In to Comment