Changeset 5948 for branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/EXTERNAL/AGRIF/LIB/dependfile.c
- Timestamp:
- 2015-11-30T11:47:24+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/EXTERNAL/AGRIF/LIB/dependfile.c
r5947 r5948 74 74 int out; 75 75 76 /* We are looking for all the variable of the current filetoparse file */ 77 /* in the List_Global_Var */ 78 parcours =List_Global_Var; 76 // We look in 'List_Global_Var' for all the variables of the current file to parse 77 parcours = List_Global_Var; 79 78 out = 0; 80 79 while (parcours && out == 0 ) … … 96 95 { 97 96 NbMailleXDefined = 1; 98 dependfileoutput = fopen(".dependnbxnby","w"); 97 sprintf(dependfilename, "%s/.dependnbxnby", work_dir); 98 dependfileoutput = fopen(dependfilename, "w"); 99 99 100 fprintf(dependfileoutput,"%d\n",parcours->var->v_indicetabvars); 100 101 IndicenbmaillesX = parcours->var->v_indicetabvars; … … 169 170 void Readthedependnbxnbyfile() 170 171 { 171 FILE *dependfileoutput; 172 173 if ((dependfileoutput = fopen(".dependnbxnby","r"))!=NULL) 174 { 175 fscanf(dependfileoutput,"%d\n",&IndicenbmaillesX); 176 if ( dimprob > 1 ) fscanf(dependfileoutput,"%d\n",&IndicenbmaillesY); 177 if ( dimprob > 2 ) fscanf(dependfileoutput,"%d\n",&IndicenbmaillesZ); 178 fclose(dependfileoutput); 179 } 172 FILE *dependfileoutput; 173 174 sprintf(dependfilename, "%s/.dependnbxnby", work_dir); 175 if ((dependfileoutput = fopen(dependfilename, "r"))!=NULL) 176 { 177 fscanf(dependfileoutput,"%d\n",&IndicenbmaillesX); 178 if ( dimprob > 1 ) fscanf(dependfileoutput,"%d\n",&IndicenbmaillesY); 179 if ( dimprob > 2 ) fscanf(dependfileoutput,"%d\n",&IndicenbmaillesZ); 180 fclose(dependfileoutput); 181 } 180 182 } 181 183 … … 192 194 /* */ 193 195 /******************************************************************************/ 194 void Writethedependlistofmoduleused(char *NameTampon ) 196 void Writethedependlistofmoduleused(const char *NameTampon ) 197 { 198 FILE *dependfileoutput; 199 listusemodule *parcours; 200 char lowername[LONG_VNAME]; 201 202 if ( ! List_NameOfModuleUsed ) return; 203 204 convert2lower(lowername, NameTampon); 205 sprintf(dependfilename, "%s/.depend_use%s", work_dir, lowername); 206 dependfileoutput = fopen(dependfilename, "w"); 207 208 parcours = List_NameOfModuleUsed; 209 while (parcours) 210 { 211 if ( !strcasecmp(lowername,parcours->u_modulename) && 212 !strcasecmp(parcours->u_cursubroutine,"") ) 213 { 214 // We look in 'List_NameOfModuleUsed' for all the variables of the current file to parse 215 fprintf(dependfileoutput,"%s\n",parcours->u_usemodule); 216 } 217 parcours = parcours->suiv; 218 } 219 fclose(dependfileoutput); 220 } 221 222 /******************************************************************************/ 223 /* Readthedependlistofmoduleused */ 224 /******************************************************************************/ 225 /* This subroutine is used to create the .dependuse<module> */ 226 /******************************************************************************/ 227 /* */ 228 /* .dependuse<name> */ 229 /* */ 230 /* mod1 */ 231 /* mod2 */ 232 /* */ 233 /******************************************************************************/ 234 void Readthedependlistofmoduleused(const char *NameTampon) 195 235 { 196 236 FILE *dependfileoutput; 197 237 listusemodule *parcours; 198 char ligne[LONG_C]; 199 200 201 if ( List_NameOfModuleUsed ) 202 { 203 convert2lower(NameTampon); 204 sprintf(ligne,".dependuse%s",NameTampon); 205 dependfileoutput = fopen(ligne,"w"); 206 /* */ 207 parcours = List_NameOfModuleUsed; 238 char lowername[LONG_VNAME]; 239 240 tmpuselocallist = (listusemodule *)NULL; 241 242 convert2lower(lowername, NameTampon); 243 sprintf(dependfilename, "%s/.depend_use%s", work_dir, lowername); 244 245 if ((dependfileoutput = fopen(dependfilename, "r"))!=NULL) 246 { 247 /* if the file exist we should verify that this file has changed */ 248 while (!feof(dependfileoutput)) 249 { 250 parcours=(listusemodule *)calloc(1,sizeof(listusemodule)); 251 fscanf(dependfileoutput,"%s\n",parcours->u_usemodule); 252 253 parcours->suiv = tmpuselocallist; 254 tmpuselocallist = parcours; 255 256 parcours = NULL; 257 } 258 fclose(dependfileoutput); 259 } 260 } 261 262 263 /******************************************************************************/ 264 /* WritedependParameterList */ 265 /******************************************************************************/ 266 /* This subroutine is used to create the .dependparameter<name> */ 267 /******************************************************************************/ 268 /* */ 269 /* .dependparameter<name> */ 270 /* */ 271 /* mod1 */ 272 /* mod2 */ 273 /* */ 274 /******************************************************************************/ 275 void WritedependParameterList(const char *NameTampon ) 276 { 277 FILE *dependfileoutput; 278 listvar *parcours; 279 char lowername[LONG_VNAME]; 280 281 if ( List_GlobalParameter_Var ) 282 { 283 convert2lower(lowername, NameTampon); 284 sprintf(dependfilename, "%s/.depend_paramater_%s", work_dir, lowername); 285 286 dependfileoutput = fopen(dependfilename, "w"); 287 parcours = List_GlobalParameter_Var; 208 288 while (parcours) 209 289 { 210 if ( !strcasecmp(NameTampon,parcours->u_modulename) && 211 !strcasecmp(parcours->u_cursubroutine,"") 212 ) 213 { 214 /* We are looking for all the variable of the current */ 215 /* filetoparse file in the List_Global_Var */ 216 fprintf(dependfileoutput,"%s\n",parcours->u_usemodule); 290 if ( !strcasecmp(lowername, parcours->var->v_modulename) ) 291 { 292 fprintf(dependfileoutput,"%s\n",parcours->var->v_nomvar); 293 fprintf(dependfileoutput,"%s\n",parcours->var->v_modulename); 217 294 } 218 295 parcours = parcours->suiv; … … 222 299 } 223 300 224 /******************************************************************************/ 225 /* Readthedependlistofmoduleused */ 226 /******************************************************************************/ 227 /* This subroutine is used to create the .dependuse<module> */ 228 /******************************************************************************/ 229 /* */ 230 /* .dependuse<name> */ 301 302 /******************************************************************************/ 303 /* ReaddependParameterList */ 304 /******************************************************************************/ 305 /* This subroutine is used to create the .dependparameter<name> */ 306 /******************************************************************************/ 307 /* */ 308 /* .dependparameter<name> */ 231 309 /* */ 232 310 /* mod1 */ … … 234 312 /* */ 235 313 /******************************************************************************/ 236 void Readthedependlistofmoduleused(char *NameTampon)314 listparameter *ReaddependParameterList(const char *NameTampon,listparameter *listout) 237 315 { 238 316 FILE *dependfileoutput; 239 listusemodule *parcours; 240 char ligne[LONG_C]; 241 242 convert2lower(NameTampon); 243 sprintf(ligne,".dependuse%s",NameTampon); 244 245 tmpuselocallist = (listusemodule *)NULL; 246 if ((dependfileoutput = fopen(ligne,"r"))==NULL) 247 { 248 } 249 else 317 listparameter *parcours; 318 char lowername[LONG_VNAME]; 319 320 convert2lower(lowername, NameTampon); 321 sprintf(dependfilename, "%s/.depend_paramater_%s", work_dir, lowername); 322 323 if ((dependfileoutput = fopen(dependfilename,"r"))!=NULL) 250 324 { 251 325 /* if the file exist we should verify that this file has changed */ 252 326 while (!feof(dependfileoutput)) 253 327 { 254 parcours=(listusemodule *)malloc(sizeof(listusemodule)); 255 fscanf(dependfileoutput,"%s\n",parcours->u_usemodule); 256 257 parcours->suiv = tmpuselocallist; 258 tmpuselocallist = parcours; 259 260 parcours = NULL; 261 } 262 fclose(dependfileoutput); 263 } 264 } 265 266 267 /******************************************************************************/ 268 /* WritedependParameterList */ 269 /******************************************************************************/ 270 /* This subroutine is used to create the .dependparameter<name> */ 271 /******************************************************************************/ 272 /* */ 273 /* .dependparameter<name> */ 274 /* */ 275 /* mod1 */ 276 /* mod2 */ 277 /* */ 278 /******************************************************************************/ 279 void WritedependParameterList(char *NameTampon ) 280 { 281 FILE *dependfileoutput; 282 listvar *parcours; 283 char ligne[LONG_C]; 284 285 if ( List_GlobalParameter_Var ) 286 { 287 convert2lower(NameTampon); 288 sprintf(ligne,".dependparameter%s",NameTampon); 289 dependfileoutput = fopen(ligne,"w"); 290 /* */ 291 parcours = List_GlobalParameter_Var; 292 while (parcours) 293 { 294 if ( !strcasecmp(NameTampon,parcours->var->v_modulename) ) 295 { 296 fprintf(dependfileoutput,"%s\n",parcours->var->v_nomvar); 297 fprintf(dependfileoutput,"%s\n",parcours->var->v_modulename); 298 } 299 parcours = parcours->suiv; 300 } 301 fclose(dependfileoutput); 302 } 303 } 304 305 306 /******************************************************************************/ 307 /* ReaddependParameterList */ 308 /******************************************************************************/ 309 /* This subroutine is used to create the .dependparameter<name> */ 310 /******************************************************************************/ 311 /* */ 312 /* .dependparameter<name> */ 313 /* */ 314 /* mod1 */ 315 /* mod2 */ 316 /* */ 317 /******************************************************************************/ 318 listparameter *ReaddependParameterList(char *NameTampon,listparameter *listout) 319 { 320 FILE *dependfileoutput; 321 listparameter *parcours; 322 char ligne[LONG_C]; 323 324 convert2lower(NameTampon); 325 sprintf(ligne,".dependparameter%s",NameTampon); 326 327 if ((dependfileoutput = fopen(ligne,"r"))==NULL) 328 { 329 } 330 else 331 { 332 /* if the file exist we should verify that this file has changed */ 333 while (!feof(dependfileoutput)) 334 { 335 parcours=(listparameter *)malloc(sizeof(listparameter)); 328 parcours=(listparameter *)calloc(1,sizeof(listparameter)); 336 329 fscanf(dependfileoutput,"%s\n",parcours->p_name); 337 330 fscanf(dependfileoutput,"%s\n",parcours->p_modulename); … … 367 360 /* */ 368 361 /******************************************************************************/ 369 void Writethedependfile(c har *NameTampon, listvar *input )362 void Writethedependfile(const char *NameTampon, listvar *input ) 370 363 { 371 364 FILE *dependfileoutput; 372 365 listvar *parcours; 373 366 listdim *dims; 374 char ligne[LONG_C]; 375 char listdimension[LONG_C]; 376 char curname[LONG_C]; 367 char ligne[LONG_M]; 368 char listdimension[LONG_M]; 369 char curname[LONG_M]; 370 char lowername[LONG_VNAME]; 377 371 int out; 378 372 379 373 if ( input ) 380 374 { 381 convert2lower(NameTampon); 382 383 sprintf(ligne,".depend%s",NameTampon); 384 dependfileoutput = fopen(ligne,"w"); 385 /* We are looking for all the variable of the current filetoparse file */ 386 /* in the input */ 375 convert2lower(lowername, NameTampon); 376 sprintf(dependfilename, "%s/.depend_%s", work_dir, lowername); 377 378 dependfileoutput = fopen(dependfilename,"w"); 379 // We look in 'input' for all the variables of the current file to parse 387 380 parcours =input; 388 381 out = 0; … … 390 383 while (parcours && out == 0 ) 391 384 { 392 if ( !strcasecmp(parcours->var->v_modulename, NameTampon) ||393 !strcasecmp(parcours->var->v_commonname, NameTampon) )385 if ( !strcasecmp(parcours->var->v_modulename, lowername) || 386 !strcasecmp(parcours->var->v_commonname, lowername) ) 394 387 { 395 388 /* */ … … 402 395 /********** TYPEVAR ************************************************/ 403 396 fprintf(dependfileoutput,"%s\n",parcours->var->v_typevar); 397 /********** CATVAR ************************************************/ 398 fprintf(dependfileoutput,"%d\n",parcours->var->v_catvar); 404 399 /********** NOMVAR *************************************************/ 405 400 fprintf(dependfileoutput,"%s\n",parcours->var->v_nomvar); 406 401 /********** DIMCHAR ************************************************/ 407 if ( strcasecmp(parcours->var->v_dimchar, "") )402 if ( strcasecmp(parcours->var->v_dimchar, "") ) 408 403 { 409 404 fprintf(dependfileoutput,"%s\n",parcours->var->v_dimchar); … … 479 474 /********** PRIVATE *****************************************/ 480 475 fprintf(dependfileoutput,"%d\n",parcours->var->v_PrivateDeclare); 481 476 482 477 /********** INDICETABVARS ******************************************/ 483 478 fprintf(dependfileoutput,"%d\n",parcours->var->v_indicetabvars); … … 497 492 dims = dims->suiv; 498 493 } 494 Save_Length(listdimension,15); 499 495 fprintf(dependfileoutput,"%s\n",listdimension); 500 496 } … … 525 521 /* */ 526 522 /******************************************************************************/ 527 listvar *Readthedependfile( char *NameTampon , listvar *listout) 528 { 529 char ligne[LONG_C]; 523 listvar *Readthedependfile(const char *NameTampon , listvar *listout) 524 { 530 525 FILE *dependfileoutput; 531 526 listvar *parcours0; 532 527 listvar *parcours; 533 528 listvar *parcoursprec; 534 char nothing[LONG_C]; 535 int i; 529 char nothing[LONG_M]; 530 char lowername[LONG_VNAME]; 531 size_t i; 536 532 537 533 parcoursprec = (listvar *)NULL; 538 534 539 convert2lower(NameTampon); 540 sprintf(ligne,".depend%s",NameTampon); 541 if ((dependfileoutput = fopen(ligne,"r"))==NULL) 535 convert2lower(lowername, NameTampon); 536 sprintf(dependfilename, "%s/.depend_%s", work_dir, lowername); 537 538 if ((dependfileoutput = fopen(dependfilename, "r"))==NULL) 542 539 { 543 540 /* if the file doesn't exist it means that it is the first time */ … … 549 546 while (!feof(dependfileoutput)) 550 547 { 551 parcours=(listvar *) malloc(sizeof(listvar));552 parcours->var=(variable *) malloc(sizeof(variable));548 parcours=(listvar *)calloc(1,sizeof(listvar)); 549 parcours->var=(variable *)calloc(1,sizeof(variable)); 553 550 /* */ 554 551 Init_Variable(parcours->var); … … 556 553 /********** TYPEVAR ************************************************/ 557 554 fscanf(dependfileoutput,"%s\n",parcours->var->v_typevar); 555 /********** CATVAR ************************************************/ 556 fscanf(dependfileoutput,"%d\n",&parcours->var->v_catvar); 558 557 /********** NOMVAR *************************************************/ 559 558 fscanf(dependfileoutput,"%s\n",parcours->var->v_nomvar); … … 578 577 /********** MODULENAME *********************************************/ 579 578 fscanf(dependfileoutput,"%s\n",parcours->var->v_modulename); 580 581 printf("MODULENAME = %s %s\n",parcours->var->v_nomvar,parcours->var->v_modulename); 582 579 583 580 if ( !strcasecmp(parcours->var->v_modulename,"T") ) 584 581 { 585 582 strcpy(parcours->var->v_modulename,""); 586 583 } 587 584 588 585 589 586 /********** NBDIM **************************************************/ … … 595 592 if ( parcours->var->v_allocatable == 1 ) 596 593 { 597 Add_Allocate_Var_1(parcours->var->v_nomvar, 598 parcours->var->v_commonname); 594 Add_Allocate_Var_1(parcours->var->v_nomvar, parcours->var->v_commonname); 599 595 } 600 596 /********** TARGET ********************************************/ 601 597 fscanf(dependfileoutput,"%d\n",&parcours->var->v_target); 602 598 603 599 /********** POINTERDECLARE *****************************************/ 604 600 fscanf(dependfileoutput,"%d\n",&parcours->var->v_pointerdeclare); … … 627 623 /********** PRIVATE *****************************************/ 628 624 fscanf(dependfileoutput,"%d\n",&parcours->var->v_PrivateDeclare); 629 625 630 626 /********** INDICETABVARS ******************************************/ 631 627 fscanf(dependfileoutput,"%d\n",&parcours->var->v_indicetabvars); … … 692 688 if ( List_Subroutine_For_Alloc ) 693 689 { 694 if ((dependfileoutput=fopen(".dependAllocAgrif","w"))!=NULL) 690 sprintf(dependfilename, "%s/.dependAllocAgrif", work_dir); 691 692 if ((dependfileoutput=fopen(dependfilename, "w"))!=NULL) 695 693 { 696 694 parcours = List_Subroutine_For_Alloc; … … 707 705 void Read_Subroutine_For_Alloc() 708 706 { 709 FILE *dependfileoutput; 710 listnom *parcours; 711 listnom *ref; 712 713 ref = (listnom *)NULL; 714 if ((dependfileoutput=fopen(".dependAllocAgrif","r"))!=NULL) 715 { 716 List_Subroutine_For_Alloc = (listnom *)NULL; 717 while (!feof(dependfileoutput)) 718 { 719 parcours=(listnom *)malloc(sizeof(listnom)); 720 strcpy(parcours->o_nom,""); 721 722 fscanf(dependfileoutput,"%s\n",&parcours->o_nom); 723 parcours->suiv = NULL; 724 725 if ( !List_Subroutine_For_Alloc ) 726 { 727 List_Subroutine_For_Alloc = parcours; 728 ref = parcours; 729 } 730 else 731 { 732 ref->suiv = parcours; 707 FILE *dependfileoutput; 708 listnom *parcours; 709 listnom *ref; 710 711 ref = (listnom*) NULL; 712 sprintf(dependfilename, "%s/.dependAllocAgrif", work_dir); 713 714 if ( (dependfileoutput=fopen(dependfilename, "r")) != NULL ) 715 { 716 List_Subroutine_For_Alloc = (listnom*) NULL; 717 while ( !feof(dependfileoutput) ) 718 { 719 parcours = (listnom*) calloc(1,sizeof(listnom)); 720 strcpy(parcours->o_nom,""); 721 722 fscanf(dependfileoutput,"%s\n",parcours->o_nom); 723 parcours->suiv = NULL; 724 725 if ( !List_Subroutine_For_Alloc ) 726 { 727 List_Subroutine_For_Alloc = parcours; 728 } 729 else 730 { 731 ref->suiv = parcours; 732 } 733 733 ref = parcours; 734 734 } 735 } 736 fclose(dependfileoutput); 737 } 735 fclose(dependfileoutput); 736 } 738 737 } 739 738 … … 756 755 void Writethedependavailablefile() 757 756 { 758 FILE *dependfileoutput; 759 listindice *parcours; 760 761 if ((dependfileoutput=fopen(".dependavailable","w"))!=NULL) 762 { 763 /* We are looking for all the indices of the Listofavailableindices */ 764 parcours = Listofavailableindices; 765 while (parcours) 766 { 767 if ( parcours->i_indice != 0 ) 768 { 769 fprintf(dependfileoutput,"%d\n",parcours->i_indice); 770 } 771 parcours = parcours->suiv; 772 } 773 fclose(dependfileoutput); 774 } 757 FILE *dependfileoutput; 758 listindice *parcours; 759 int i; 760 761 sprintf(dependfilename, "%s/.dependavailable", work_dir); 762 763 if ((dependfileoutput=fopen(dependfilename, "w"))!=NULL) 764 { 765 /* We are looking for all the indices of the Listofavailableindices */ 766 for (i=0;i<NB_CAT_VARIABLES;i++) 767 { 768 parcours = Listofavailableindices_glob[i]; 769 while (parcours) 770 { 771 if ( parcours->i_indice != 0 ) 772 { 773 fprintf(dependfileoutput,"%d %d\n",i,parcours->i_indice); 774 } 775 parcours = parcours->suiv; 776 } 777 } 778 fclose(dependfileoutput); 779 } 775 780 } 776 781 … … 795 800 FILE *dependfileoutput; 796 801 listindice *parcours; 797 798 if ((dependfileoutput=fopen(".dependavailable","r"))!=NULL) 802 int current_cat; 803 804 sprintf(dependfilename, "%s/.dependavailable", work_dir); 805 806 if ((dependfileoutput=fopen(dependfilename, "r"))!=NULL) 799 807 { 800 808 /* We are looking for all the indices of the Listofavailableindices */ 801 Listofavailableindices = (listindice *)NULL;809 Listofavailableindices_glob = (listindice **) calloc(NB_CAT_VARIABLES,sizeof(listindice *)); 802 810 while (!feof(dependfileoutput)) 803 811 { 804 parcours=(listindice *) malloc(sizeof(listindice));805 fscanf(dependfileoutput,"%d \n",&parcours->i_indice);812 parcours=(listindice *)calloc(1,sizeof(listindice)); 813 fscanf(dependfileoutput,"%d %d\n",¤t_cat,&parcours->i_indice); 806 814 if ( parcours->i_indice != 0 && parcours->i_indice < 10000000 ) 807 815 { 808 parcours -> suiv = Listofavailableindices ;809 Listofavailableindices = parcours;816 parcours -> suiv = Listofavailableindices_glob[current_cat]; 817 Listofavailableindices_glob[current_cat] = parcours; 810 818 } 811 819 else … … 820 828 821 829 /******************************************************************************/ 822 /* Did_filetoparse_readed */830 /* is_dependfile_created */ 823 831 /******************************************************************************/ 824 832 /* This subroutine is used to know if the .depend<NameTampon> exist */ … … 827 835 /* */ 828 836 /******************************************************************************/ 829 int Did_filetoparse_readed(char *NameTampon)837 int is_dependfile_created(const char *NameTampon) 830 838 { 831 839 FILE *dependfileoutput; 832 char ligne[LONG_C]; 833 int out; 834 835 convert2lower(NameTampon); 836 sprintf(ligne,".depend%s",NameTampon); 837 if ((dependfileoutput = fopen(ligne,"r"))==NULL) 838 { 839 out = 0; 840 char lowername[LONG_VNAME]; 841 842 convert2lower(lowername, NameTampon); 843 sprintf(dependfilename, "%s/.depend_%s", work_dir, lowername); 844 845 dependfileoutput = fopen(dependfilename, "r"); 846 847 if ( (dependfileoutput = fopen(dependfilename, "r")) != NULL ) 848 { 849 fclose(dependfileoutput); 850 return 1; 840 851 } 841 852 else 842 { 843 out = 1; 844 fclose(dependfileoutput); 845 } 846 return out; 847 } 848 849 850 /******************************************************************************/ 851 /* Did_module_common_treaded */ 852 /******************************************************************************/ 853 /* This subroutine is used to know if the .depend<NameTampon> exist */ 854 /* it means if the file has been ever parsed */ 855 /******************************************************************************/ 856 /* */ 857 /******************************************************************************/ 858 int Did_module_common_treaded(char *NameTampon) 859 { 860 FILE *dependfileoutput; 861 char ligne[LONG_C]; 862 int out; 863 864 convert2lower(NameTampon); 865 sprintf(ligne,".depend%s",NameTampon); 866 if ((dependfileoutput = fopen(ligne,"r"))==NULL) 867 { 868 out = 0; 869 } 870 else 871 { 872 out = 1; 873 fclose(dependfileoutput); 874 } 875 return out; 876 } 877 878 853 return 0; 854 } 879 855 880 856 void Write_val_max() 881 857 { 882 FILE *dependfileoutput; 883 884 if ((dependfileoutput=fopen(".dependvalmax","w"))!=NULL) 885 { 886 fprintf(dependfileoutput,"length_last\n"); 887 fprintf(dependfileoutput,"%d\n",length_last); 888 fprintf(dependfileoutput,"length_first\n"); 889 fprintf(dependfileoutput,"%d\n",length_first); 890 fprintf(dependfileoutput,"length_v_typevar\n"); 891 fprintf(dependfileoutput,"%d\n",length_v_typevar); 892 fprintf(dependfileoutput,"length_v_nomvar\n"); 893 fprintf(dependfileoutput,"%d\n",length_v_nomvar); 894 fprintf(dependfileoutput,"length_v_dimchar\n"); 895 fprintf(dependfileoutput,"%d\n",length_v_dimchar); 896 fprintf(dependfileoutput,"length_v_modulename\n"); 897 fprintf(dependfileoutput,"%d\n",length_v_modulename); 898 fprintf(dependfileoutput,"length_v_commonname\n"); 899 fprintf(dependfileoutput,"%d\n",length_v_commonname); 900 fprintf(dependfileoutput,"length_v_vallengspec\n"); 901 fprintf(dependfileoutput,"%d\n",length_v_vallengspec); 902 fprintf(dependfileoutput,"length_v_nameinttypename\n"); 903 fprintf(dependfileoutput,"%d\n",length_v_nameinttypename); 904 fprintf(dependfileoutput,"length_v_commoninfile\n"); 905 fprintf(dependfileoutput,"%d\n",length_v_commoninfile); 906 fprintf(dependfileoutput,"length_v_subroutinename\n"); 907 fprintf(dependfileoutput,"%d\n",length_v_subroutinename); 908 fprintf(dependfileoutput,"length_v_precision\n"); 909 fprintf(dependfileoutput,"%d\n",length_v_precision); 910 fprintf(dependfileoutput,"length_v_IntentSpec\n"); 911 fprintf(dependfileoutput,"%d\n",length_v_IntentSpec); 912 fprintf(dependfileoutput,"length_v_initialvalue\n"); 913 fprintf(dependfileoutput,"%d\n",length_v_initialvalue); 914 fprintf(dependfileoutput,"length_v_readedlistdimension\n"); 915 fprintf(dependfileoutput,"%d\n",length_v_readedlistdimension); 916 fprintf(dependfileoutput,"length_u_usemodule\n"); 917 fprintf(dependfileoutput,"%d\n",length_u_usemodule); 918 fprintf(dependfileoutput,"length_u_charusemodule\n"); 919 fprintf(dependfileoutput,"%d\n",length_u_charusemodule); 920 fprintf(dependfileoutput,"length_u_cursubroutine\n"); 921 fprintf(dependfileoutput,"%d\n",length_u_cursubroutine); 922 fprintf(dependfileoutput,"length_u_modulename\n"); 923 fprintf(dependfileoutput,"%d\n",length_u_modulename); 924 fprintf(dependfileoutput,"length_n_name\n"); 925 fprintf(dependfileoutput,"%d\n",length_n_name); 926 fprintf(dependfileoutput,"length_c_namevar\n"); 927 fprintf(dependfileoutput,"%d\n",length_c_namevar); 928 fprintf(dependfileoutput,"length_c_namepointedvar\n"); 929 fprintf(dependfileoutput,"%d\n",length_c_namepointedvar); 930 fprintf(dependfileoutput,"length_o_nom\n"); 931 fprintf(dependfileoutput,"%d\n",length_o_nom); 932 fprintf(dependfileoutput,"length_o_module\n"); 933 fprintf(dependfileoutput,"%d\n",length_o_module); 934 fprintf(dependfileoutput,"length_a_nomvar\n"); 935 fprintf(dependfileoutput,"%d\n",length_a_nomvar); 936 fprintf(dependfileoutput,"length_a_subroutine\n"); 937 fprintf(dependfileoutput,"%d\n",length_a_subroutine); 938 fprintf(dependfileoutput,"length_a_module\n"); 939 fprintf(dependfileoutput,"%d\n",length_a_module); 940 fprintf(dependfileoutput,"length_usemodule\n"); 941 fprintf(dependfileoutput,"%d\n",length_t_usemodule); 942 fprintf(dependfileoutput,"length_cursubroutine\n"); 943 fprintf(dependfileoutput,"%d\n",length_t_cursubroutine); 944 fprintf(dependfileoutput,"length_curfilename\n"); 945 fprintf(dependfileoutput,"%d\n",length_curfilename); 946 fprintf(dependfileoutput,"length_nomfileoutput\n"); 947 fprintf(dependfileoutput,"%d\n",length_nomfileoutput); 948 fprintf(dependfileoutput,"length_motparse\n"); 949 fprintf(dependfileoutput,"%d\n",length_motparse); 950 fprintf(dependfileoutput,"length_mainfile\n"); 951 fprintf(dependfileoutput,"%d\n",length_mainfile); 952 fprintf(dependfileoutput,"length_nomdir\n"); 953 fprintf(dependfileoutput,"%d\n",length_nomdir); 954 fprintf(dependfileoutput,"length_commondirout\n"); 955 fprintf(dependfileoutput,"%d\n",length_commondirout); 956 fprintf(dependfileoutput,"length_commondirin\n"); 957 fprintf(dependfileoutput,"%d\n",length_commondirin); 958 fprintf(dependfileoutput,"length_filetoparse\n"); 959 fprintf(dependfileoutput,"%d\n",length_filetoparse); 960 fprintf(dependfileoutput,"length_curbuf\n"); 961 fprintf(dependfileoutput,"%d\n",length_curbuf); 962 fprintf(dependfileoutput,"length_toprintglob\n"); 963 fprintf(dependfileoutput,"%d\n",length_toprintglob); 964 fprintf(dependfileoutput,"Size_char0d\n"); 965 fprintf(dependfileoutput,"%d\n",value_char_size); 966 fprintf(dependfileoutput,"Size_char1d\n"); 967 fprintf(dependfileoutput,"%d\n",value_char_size1); 968 fprintf(dependfileoutput,"Size_char2d\n"); 969 fprintf(dependfileoutput,"%d\n",value_char_size2); 970 fprintf(dependfileoutput,"Size_char3d\n"); 971 fprintf(dependfileoutput,"%d\n",value_char_size3); 972 fprintf(dependfileoutput,"length_tmpvargridname\n"); 973 fprintf(dependfileoutput,"%d\n",length_tmpvargridname); 974 fprintf(dependfileoutput,"length_ligne_Subloop\n"); 975 fprintf(dependfileoutput,"%d\n",length_ligne_Subloop); 976 fprintf(dependfileoutput,"length_lvargridname_toamr\n"); 977 fprintf(dependfileoutput,"%d\n",length_lvargridname_toamr); 978 fprintf(dependfileoutput,"length_toprint_toamr\n"); 979 fprintf(dependfileoutput,"%d\n",length_toprint_utilagrif); 980 fprintf(dependfileoutput,"length_toprinttmp_utilchar\n"); 981 fprintf(dependfileoutput,"%d\n",length_toprinttmp_utilchar); 982 fprintf(dependfileoutput,"length_ligne_writedecl\n"); 983 fprintf(dependfileoutput,"%d\n",length_ligne_writedecl); 984 fprintf(dependfileoutput,"length_newname_toamr\n"); 985 fprintf(dependfileoutput,"%d\n",length_newname_toamr); 986 fprintf(dependfileoutput,"length_newname_writedecl\n"); 987 fprintf(dependfileoutput,"%d\n",length_newname_writedecl); 988 fprintf(dependfileoutput,"length_ligne_toamr\n"); 989 fprintf(dependfileoutput,"%d\n",length_ligne_toamr); 990 fprintf(dependfileoutput,"length_tmpligne_writedecl\n"); 991 fprintf(dependfileoutput,"%d\n",length_tmpligne_writedecl); 992 /* fprintf(dependfileoutput,"\n"); 993 fprintf(dependfileoutput,"%d\n",); 994 fprintf(dependfileoutput,"\n"); 995 fprintf(dependfileoutput,"%d\n",); 996 fprintf(dependfileoutput,"\n"); 997 fprintf(dependfileoutput,"%d\n",); 998 fprintf(dependfileoutput,"\n"); 999 fprintf(dependfileoutput,"%d\n",); 1000 fprintf(dependfileoutput,"\n"); 1001 fprintf(dependfileoutput,"%d\n",); 1002 fprintf(dependfileoutput,"\n"); 1003 fprintf(dependfileoutput,"%d\n",); 1004 fprintf(dependfileoutput,"\n"); 1005 fprintf(dependfileoutput,"%d\n",); 1006 fprintf(dependfileoutput,"\n"); 1007 fprintf(dependfileoutput,"%d\n",); 1008 fprintf(dependfileoutput,"\n"); 1009 fprintf(dependfileoutput,"%d\n",);*/ 1010 1011 fclose(dependfileoutput); 1012 } 858 FILE *dependfileoutput; 859 860 sprintf(dependfilename, "%s/.dependvalmax", work_dir); 861 862 if ((dependfileoutput=fopen(dependfilename, "w"))!=NULL) 863 { 864 fprintf(dependfileoutput,"length_last\n"); 865 fprintf(dependfileoutput,"%lu\n", length_last); 866 fprintf(dependfileoutput,"length_first\n"); 867 fprintf(dependfileoutput,"%lu\n", length_first); 868 fprintf(dependfileoutput,"length_v_vallengspec\n"); 869 fprintf(dependfileoutput,"%lu\n", length_v_vallengspec); 870 fprintf(dependfileoutput,"length_v_commoninfile\n"); 871 fprintf(dependfileoutput,"%lu\n", length_v_commoninfile); 872 fprintf(dependfileoutput,"length_v_precision\n"); 873 fprintf(dependfileoutput,"%lu\n", length_v_precision); 874 fprintf(dependfileoutput,"length_v_IntentSpec\n"); 875 fprintf(dependfileoutput,"%lu\n", length_v_IntentSpec); 876 fprintf(dependfileoutput,"length_v_initialvalue\n"); 877 fprintf(dependfileoutput,"%lu\n", length_v_initialvalue); 878 fprintf(dependfileoutput,"length_v_readedlistdimension\n"); 879 fprintf(dependfileoutput,"%lu\n", length_v_readedlistdimension); 880 fprintf(dependfileoutput,"length_a_nomvar\n"); 881 fprintf(dependfileoutput,"%lu\n", length_a_nomvar); 882 fprintf(dependfileoutput,"length_toprintglob\n"); 883 fprintf(dependfileoutput,"%lu\n", length_toprintglob); 884 fprintf(dependfileoutput,"Size_char0d\n"); 885 fprintf(dependfileoutput,"%d\n",value_char_size); 886 fprintf(dependfileoutput,"Size_char1d\n"); 887 fprintf(dependfileoutput,"%d\n",value_char_size1); 888 fprintf(dependfileoutput,"Size_char2d\n"); 889 fprintf(dependfileoutput,"%d\n",value_char_size2); 890 fprintf(dependfileoutput,"Size_char3d\n"); 891 fprintf(dependfileoutput,"%d\n",value_char_size3); 892 fprintf(dependfileoutput,"length_tmpvargridname\n"); 893 fprintf(dependfileoutput,"%lu\n", length_tmpvargridname); 894 fprintf(dependfileoutput,"length_ligne_Subloop\n"); 895 fprintf(dependfileoutput,"%lu\n", length_ligne_Subloop); 896 fprintf(dependfileoutput,"length_toprint_toamr\n"); 897 fprintf(dependfileoutput,"%lu\n", length_toprint_utilagrif); 898 fprintf(dependfileoutput,"length_toprinttmp_utilchar\n"); 899 fprintf(dependfileoutput,"%lu\n", length_toprinttmp_utilchar); 900 fprintf(dependfileoutput,"length_ligne_writedecl\n"); 901 fprintf(dependfileoutput,"%lu\n", length_ligne_writedecl); 902 fprintf(dependfileoutput,"length_newname_toamr\n"); 903 fprintf(dependfileoutput,"%lu\n", length_newname_toamr); 904 fprintf(dependfileoutput,"length_newname_writedecl\n"); 905 fprintf(dependfileoutput,"%lu\n", length_newname_writedecl); 906 fprintf(dependfileoutput,"length_ligne_toamr\n"); 907 fprintf(dependfileoutput,"%lu\n", length_ligne_toamr); 908 fprintf(dependfileoutput,"length_tmpligne_writedecl\n"); 909 fprintf(dependfileoutput,"%lu\n", length_tmpligne_writedecl); 910 911 fclose(dependfileoutput); 912 } 1013 913 } 1014 914 … … 1016 916 void Read_val_max() 1017 917 { 1018 char nothing[LONG_C]; 1019 FILE *dependfileoutput; 1020 1021 if ((dependfileoutput=fopen(".dependvalmax","r"))!=NULL) 1022 { 1023 fscanf(dependfileoutput,"%s\n",nothing); 1024 fscanf(dependfileoutput,"%d\n",&length_last); 1025 fscanf(dependfileoutput,"%s\n",nothing); 1026 fscanf(dependfileoutput,"%d\n",&length_first); 1027 fscanf(dependfileoutput,"%s\n",nothing); 1028 fscanf(dependfileoutput,"%d\n",&length_v_typevar); 1029 fscanf(dependfileoutput,"%s\n",nothing); 1030 fscanf(dependfileoutput,"%d\n",&length_v_nomvar); 1031 fscanf(dependfileoutput,"%s\n",nothing); 1032 fscanf(dependfileoutput,"%d\n",&length_v_dimchar); 1033 fscanf(dependfileoutput,"%s\n",nothing); 1034 fscanf(dependfileoutput,"%d\n",&length_v_modulename); 1035 fscanf(dependfileoutput,"%s\n",nothing); 1036 fscanf(dependfileoutput,"%d\n",&length_v_commonname); 1037 fscanf(dependfileoutput,"%s\n",nothing); 1038 fscanf(dependfileoutput,"%d\n",&length_v_vallengspec); 1039 fscanf(dependfileoutput,"%s\n",nothing); 1040 fscanf(dependfileoutput,"%d\n",&length_v_nameinttypename); 1041 fscanf(dependfileoutput,"%s\n",nothing); 1042 fscanf(dependfileoutput,"%d\n",&length_v_commoninfile); 1043 fscanf(dependfileoutput,"%s\n",nothing); 1044 fscanf(dependfileoutput,"%d\n",&length_v_subroutinename); 1045 fscanf(dependfileoutput,"%s\n",nothing); 1046 fscanf(dependfileoutput,"%d\n",&length_v_precision); 1047 fscanf(dependfileoutput,"%s\n",nothing); 1048 fscanf(dependfileoutput,"%d\n",&length_v_IntentSpec); 1049 fscanf(dependfileoutput,"%s\n",nothing); 1050 fscanf(dependfileoutput,"%d\n",&length_v_initialvalue); 1051 fscanf(dependfileoutput,"%s\n",nothing); 1052 fscanf(dependfileoutput,"%d\n",&length_v_readedlistdimension); 1053 fscanf(dependfileoutput,"%s\n",nothing); 1054 fscanf(dependfileoutput,"%d\n",&length_u_usemodule); 1055 fscanf(dependfileoutput,"%s\n",nothing); 1056 fscanf(dependfileoutput,"%d\n",&length_u_charusemodule); 1057 fscanf(dependfileoutput,"%s\n",nothing); 1058 fscanf(dependfileoutput,"%d\n",&length_u_cursubroutine); 1059 fscanf(dependfileoutput,"%s\n",nothing); 1060 fscanf(dependfileoutput,"%d\n",&length_u_modulename); 1061 fscanf(dependfileoutput,"%s\n",nothing); 1062 fscanf(dependfileoutput,"%d\n",&length_n_name); 1063 fscanf(dependfileoutput,"%s\n",nothing); 1064 fscanf(dependfileoutput,"%d\n",&length_c_namevar); 1065 fscanf(dependfileoutput,"%s\n",nothing); 1066 fscanf(dependfileoutput,"%d\n",&length_c_namepointedvar); 1067 fscanf(dependfileoutput,"%s\n",nothing); 1068 fscanf(dependfileoutput,"%d\n",&length_o_nom); 1069 fscanf(dependfileoutput,"%s\n",nothing); 1070 fscanf(dependfileoutput,"%d\n",&length_o_module); 1071 fscanf(dependfileoutput,"%s\n",nothing); 1072 fscanf(dependfileoutput,"%d\n",&length_a_nomvar); 1073 fscanf(dependfileoutput,"%s\n",nothing); 1074 fscanf(dependfileoutput,"%d\n",&length_a_subroutine); 1075 fscanf(dependfileoutput,"%s\n",nothing); 1076 fscanf(dependfileoutput,"%d\n",&length_a_module); 1077 fscanf(dependfileoutput,"%s\n",nothing); 1078 fscanf(dependfileoutput,"%d\n",&length_t_usemodule); 1079 fscanf(dependfileoutput,"%s\n",nothing); 1080 fscanf(dependfileoutput,"%d\n",&length_t_cursubroutine); 1081 fscanf(dependfileoutput,"%s\n",nothing); 1082 fscanf(dependfileoutput,"%d\n",&length_curfilename); 1083 fscanf(dependfileoutput,"%s\n",nothing); 1084 fscanf(dependfileoutput,"%d\n",&length_nomfileoutput); 1085 fscanf(dependfileoutput,"%s\n",nothing); 1086 fscanf(dependfileoutput,"%d\n",&length_motparse); 1087 fscanf(dependfileoutput,"%s\n",nothing); 1088 fscanf(dependfileoutput,"%d\n",&length_mainfile); 1089 fscanf(dependfileoutput,"%s\n",nothing); 1090 fscanf(dependfileoutput,"%d\n",&length_nomdir); 1091 fscanf(dependfileoutput,"%s\n",nothing); 1092 fscanf(dependfileoutput,"%d\n",&length_commondirout); 1093 fscanf(dependfileoutput,"%s\n",nothing); 1094 fscanf(dependfileoutput,"%d\n",&length_commondirin); 1095 fscanf(dependfileoutput,"%s\n",nothing); 1096 fscanf(dependfileoutput,"%d\n",&length_filetoparse); 1097 fscanf(dependfileoutput,"%s\n",nothing); 1098 fscanf(dependfileoutput,"%d\n",&length_curbuf); 1099 fscanf(dependfileoutput,"%s\n",nothing); 1100 fscanf(dependfileoutput,"%d\n",&length_toprintglob); 1101 fscanf(dependfileoutput,"%s\n",nothing); 1102 fscanf(dependfileoutput,"%d\n",&value_char_size); 1103 fscanf(dependfileoutput,"%s\n",nothing); 1104 fscanf(dependfileoutput,"%d\n",&value_char_size1); 1105 fscanf(dependfileoutput,"%s\n",nothing); 1106 fscanf(dependfileoutput,"%d\n",&value_char_size2); 1107 fscanf(dependfileoutput,"%s\n",nothing); 1108 fscanf(dependfileoutput,"%d\n",&value_char_size3); 1109 fscanf(dependfileoutput,"%s\n",nothing); 1110 fscanf(dependfileoutput,"%d\n",&length_tmpvargridname); 1111 fscanf(dependfileoutput,"%s\n",nothing); 1112 fscanf(dependfileoutput,"%d\n",&length_ligne_Subloop); 1113 fscanf(dependfileoutput,"%s\n",nothing); 1114 fscanf(dependfileoutput,"%d\n",&length_lvargridname_toamr); 1115 fscanf(dependfileoutput,"%s\n",nothing); 1116 fscanf(dependfileoutput,"%d\n",&length_toprint_utilagrif); 1117 fscanf(dependfileoutput,"%s\n",nothing); 1118 fscanf(dependfileoutput,"%d\n",&length_toprinttmp_utilchar); 1119 fscanf(dependfileoutput,"%s\n",nothing); 1120 fscanf(dependfileoutput,"%d\n",&length_ligne_writedecl); 1121 fscanf(dependfileoutput,"%s\n",nothing); 1122 fscanf(dependfileoutput,"%d\n",&length_newname_toamr); 1123 fscanf(dependfileoutput,"%s\n",nothing); 1124 fscanf(dependfileoutput,"%d\n",&length_newname_writedecl); 1125 fscanf(dependfileoutput,"%s\n",nothing); 1126 fscanf(dependfileoutput,"%d\n",&length_ligne_toamr); 1127 fscanf(dependfileoutput,"%s\n",nothing); 1128 fscanf(dependfileoutput,"%d\n",&length_tmpligne_writedecl); 1129 /* fscanf(dependfileoutput,"%s\n",nothing); 1130 fscanf(dependfileoutput,"%d\n",&); 1131 fscanf(dependfileoutput,"%s\n",nothing); 1132 fscanf(dependfileoutput,"%d\n",&); 1133 fscanf(dependfileoutput,"%s\n",nothing); 1134 fscanf(dependfileoutput,"%d\n",&); 1135 fscanf(dependfileoutput,"%s\n",nothing); 1136 fscanf(dependfileoutput,"%d\n",&); 1137 fscanf(dependfileoutput,"%s\n",nothing); 1138 fscanf(dependfileoutput,"%d\n",&); 1139 fscanf(dependfileoutput,"%s\n",nothing); 1140 fscanf(dependfileoutput,"%d\n",&); 1141 fscanf(dependfileoutput,"%s\n",nothing); 1142 fscanf(dependfileoutput,"%d\n",&); 1143 fscanf(dependfileoutput,"%s\n",nothing); 1144 fscanf(dependfileoutput,"%d\n",&); 1145 fscanf(dependfileoutput,"%s\n",nothing); 1146 fscanf(dependfileoutput,"%d\n",&);*/ 1147 1148 fclose(dependfileoutput); 1149 } 1150 } 918 char nothing[LONG_M]; 919 FILE *dependfileoutput; 920 921 sprintf(dependfilename, "%s/.dependvalmax", work_dir); 922 923 if ((dependfileoutput=fopen(".dependvalmax","r"))!=NULL) 924 { 925 fscanf(dependfileoutput,"%s\n",nothing); 926 fscanf(dependfileoutput,"%lu\n", &length_last); 927 fscanf(dependfileoutput,"%s\n",nothing); 928 fscanf(dependfileoutput,"%lu\n", &length_first); 929 fscanf(dependfileoutput,"%s\n",nothing); 930 fscanf(dependfileoutput,"%lu\n", &length_v_vallengspec); 931 fscanf(dependfileoutput,"%s\n",nothing); 932 fscanf(dependfileoutput,"%lu\n", &length_v_commoninfile); 933 fscanf(dependfileoutput,"%s\n",nothing); 934 fscanf(dependfileoutput,"%lu\n", &length_v_precision); 935 fscanf(dependfileoutput,"%s\n",nothing); 936 fscanf(dependfileoutput,"%lu\n", &length_v_IntentSpec); 937 fscanf(dependfileoutput,"%s\n",nothing); 938 fscanf(dependfileoutput,"%lu\n", &length_v_initialvalue); 939 fscanf(dependfileoutput,"%s\n",nothing); 940 fscanf(dependfileoutput,"%lu\n", &length_v_readedlistdimension); 941 fscanf(dependfileoutput,"%s\n",nothing); 942 fscanf(dependfileoutput,"%lu\n", &length_a_nomvar); 943 fscanf(dependfileoutput,"%s\n",nothing); 944 fscanf(dependfileoutput,"%lu\n", &length_toprintglob); 945 fscanf(dependfileoutput,"%s\n",nothing); 946 fscanf(dependfileoutput,"%d\n", &value_char_size); 947 fscanf(dependfileoutput,"%s\n", nothing); 948 fscanf(dependfileoutput,"%d\n", &value_char_size1); 949 fscanf(dependfileoutput,"%s\n", nothing); 950 fscanf(dependfileoutput,"%d\n", &value_char_size2); 951 fscanf(dependfileoutput,"%s\n", nothing); 952 fscanf(dependfileoutput,"%d\n", &value_char_size3); 953 fscanf(dependfileoutput,"%s\n",nothing); 954 fscanf(dependfileoutput,"%lu\n", &length_tmpvargridname); 955 fscanf(dependfileoutput,"%s\n",nothing); 956 fscanf(dependfileoutput,"%lu\n", &length_ligne_Subloop); 957 fscanf(dependfileoutput,"%s\n",nothing); 958 fscanf(dependfileoutput,"%lu\n", &length_toprint_utilagrif); 959 fscanf(dependfileoutput,"%s\n",nothing); 960 fscanf(dependfileoutput,"%lu\n", &length_toprinttmp_utilchar); 961 fscanf(dependfileoutput,"%s\n",nothing); 962 fscanf(dependfileoutput,"%lu\n", &length_ligne_writedecl); 963 fscanf(dependfileoutput,"%s\n",nothing); 964 fscanf(dependfileoutput,"%lu\n", &length_newname_toamr); 965 fscanf(dependfileoutput,"%s\n",nothing); 966 fscanf(dependfileoutput,"%lu\n", &length_newname_writedecl); 967 fscanf(dependfileoutput,"%s\n",nothing); 968 fscanf(dependfileoutput,"%lu\n", &length_ligne_toamr); 969 fscanf(dependfileoutput,"%s\n",nothing); 970 fscanf(dependfileoutput,"%lu\n", &length_tmpligne_writedecl); 971 972 fclose(dependfileoutput); 973 } 974 }
Note: See TracChangeset
for help on using the changeset viewer.