|
|
| version 1.195, 2015/08/18 16:28:39 | version 1.196, 2015/08/18 23:17:52 |
|---|---|
| Line 1 | Line 1 |
| /* $Id$ | /* $Id$ |
| $State$ | $State$ |
| $Log$ | $Log$ |
| Revision 1.196 2015/08/18 23:17:52 brouard | |
| Summary: 0.98q5 | |
| Revision 1.195 2015/08/18 16:28:39 brouard | Revision 1.195 2015/08/18 16:28:39 brouard |
| Summary: Adding a hack for testing purpose | Summary: Adding a hack for testing purpose |
| Line 710 typedef struct { | Line 713 typedef struct { |
| /* $Id$ */ | /* $Id$ */ |
| /* $State$ */ | /* $State$ */ |
| #include "version.h" | |
| char version[]="Imach version 0.98q5, August 2015,INED-EUROREVES-Institut de longevite-Japan Society for the Promotion of Science (Grant-in-Aid for Scientific Research 25293121), Intel Software 2015"; | char version[]=__IMACH_VERSION__; |
| char copyright[]="August 2015,INED-EUROREVES-Institut de longevite-Japan Society for the Promotion of Science (Grant-in-Aid for Scientific Research 25293121), Intel Software 2015"; | |
| char fullversion[]="$Revision$ $Date$"; | char fullversion[]="$Revision$ $Date$"; |
| char strstart[80]; | char strstart[80]; |
| char optionfilext[10], optionfilefiname[FILENAMELENGTH]; | char optionfilext[10], optionfilefiname[FILENAMELENGTH]; |
| Line 2906 void lubksb(double **a, int n, int *indx | Line 2910 void lubksb(double **a, int n, int *indx |
| void pstamp(FILE *fichier) | void pstamp(FILE *fichier) |
| { | { |
| fprintf(fichier,"# %s.%s\n#%s\n#%s\n# %s", optionfilefiname,optionfilext,version,fullversion,strstart); | fprintf(fichier,"# %s.%s\n#IMaCh version %s, %s\n#%s\n# %s", optionfilefiname,optionfilext,version,copyright, fullversion, strstart); |
| } | } |
| /************ Frequencies ********************/ | /************ Frequencies ********************/ |
| Line 6373 int main(int argc, char *argv[]) | Line 6377 int main(int argc, char *argv[]) |
| getcwd(pathcd, size); | getcwd(pathcd, size); |
| #endif | #endif |
| syscompilerinfo(0); | syscompilerinfo(0); |
| printf("\n%s\n%s",version,fullversion); | printf("\nIMaCh version %s, %s\n%s",version, copyright, fullversion); |
| if(argc <=1){ | if(argc <=1){ |
| printf("\nEnter the parameter file name: "); | printf("\nEnter the parameter file name: "); |
| fgets(pathr,FILENAMELENGTH,stdin); | fgets(pathr,FILENAMELENGTH,stdin); |