| [658] | 1 | #include <iostream.h> | 
|---|
|  | 2 |  | 
|---|
|  | 3 | extern "C" { | 
|---|
|  | 4 | void anafast_(int&, int&, int&,double&,float*,float*,float*,float*, | 
|---|
|  | 5 | float*,float*,float*); | 
|---|
|  | 6 | void synfast_(int&, int&, int&,int&, float&,float*,float*,float*, | 
|---|
|  | 7 | double*, double*,double*,double*,double*,float*); | 
|---|
|  | 8 | void  input_map_(char*,float*,int&); | 
|---|
|  | 9 | void  ecrire_fits_(int&,int&,int&,float*,char*,char*,int&,float&,float&); | 
|---|
|  | 10 |  | 
|---|
|  | 11 | } | 
|---|
|  | 12 |  | 
|---|
|  | 13 | void anafast_(int&, int&, int&,double&,float*,float*,float*,float*, | 
|---|
|  | 14 | float*,float*,float*) | 
|---|
|  | 15 | { | 
|---|
|  | 16 | cerr << "anafast_() bidon ... - Fonction vide - Reza 04/99 " << endl; | 
|---|
|  | 17 | throw " Unsupported function - anafast_() bidon "; | 
|---|
|  | 18 | } | 
|---|
|  | 19 |  | 
|---|
|  | 20 | void synfast_(int&, int&, int&,int&, float&,float*,float*,float*, | 
|---|
|  | 21 | double*, double*,double*,double*,double*,float*) | 
|---|
|  | 22 | { | 
|---|
|  | 23 | cerr << "synfast_() bidon ... - Fonction vide - Reza 04/99 " << endl; | 
|---|
|  | 24 | throw " Unsupported function - synfast_() bidon "; | 
|---|
|  | 25 | } | 
|---|
|  | 26 |  | 
|---|
|  | 27 | void  input_map_(char*,float*,int&) | 
|---|
|  | 28 | { | 
|---|
|  | 29 | cerr << "input_map_() bidon ... - Fonction vide - Reza 04/99 " << endl; | 
|---|
|  | 30 | throw " Unsupported function - input_map_() bidon " ; | 
|---|
|  | 31 | } | 
|---|
|  | 32 |  | 
|---|
|  | 33 | void  ecrire_fits_(int&,int&,int&,float*,char*,char*,int&,float&,float&) | 
|---|
|  | 34 | { | 
|---|
|  | 35 | cerr << "ecrire_fits_() bidon ... - Fonction vide - Reza 04/99 " << endl; | 
|---|
|  | 36 | throw " Unsupported function - ecrire_fits_() bidon " ; | 
|---|
|  | 37 | } | 
|---|
|  | 38 |  | 
|---|
|  | 39 |  | 
|---|