source: trunk/crs97/codes.c @ 1

#include <stdio.h>
void codes_(void)
{
/* type Molecules */
struct molecules
{
char name[10];
int mcode;
int n1[4];
};
/* type (Molecules) ListofMol */
/* common /Reg9/ ListofMol */ 
extern struct reg9 { struct molecules listofmol;}; extern struct reg9 reg9_;
printf("molcodes: mon nom est <%10s>\n",reg9_.listofmol.name);
printf("molcodes: mon code est %d\n",reg9_.listofmol.mcode);
printf("molcodes: mon N1(1) est %d\n",reg9_.listofmol.n1[0]);
printf("molcodes: mon N1(4) est %d\n",reg9_.listofmol.n1[3]);
}