- //handle trailing blanks
- while(key[keylen-1]==' ')keylen--;
- while(*key==' '){//handle leading blanks
- keylen --;
- key++;
- }
- char* tkey = xbt_new(char,keylen+1);
- strncpy(tkey, key, keylen);
- tkey[keylen]='\0';
-
- while(value[valuelen-1]==' ')valuelen--;
- while(*value==' '){//handle leading blanks
- valuelen --;
- value++;
- }
- char* tvalue = xbt_new(char,valuelen+1);
- strncpy(tvalue, value, valuelen);
-
- tvalue[valuelen]='\0';
- *ierr = MPI_Info_set( smpi_info_f2c(*info), tkey, tvalue);
- xbt_free(tkey);
+ //handle trailing blanks
+ while(key[keylen-1]==' ')
+ keylen--;
+ while(*key==' '){//handle leading blanks
+ keylen--;
+ key++;
+ }
+ char* tkey = xbt_new(char,keylen+1);
+ strncpy(tkey, key, keylen);
+ tkey[keylen]='\0';
+
+ while(value[valuelen-1]==' ')
+ valuelen--;
+ while(*value==' '){//handle leading blanks
+ valuelen--;
+ value++;
+ }
+ char* tvalue = xbt_new(char,valuelen+1);
+ strncpy(tvalue, value, valuelen);
+
+ tvalue[valuelen]='\0';
+ *ierr = MPI_Info_set( smpi_info_f2c(*info), tkey, tvalue);
+ xbt_free(tkey);