MED fichier
MEDfstring.c
Aller à la documentation de ce fichier.
1 /* This file is part of MED.
2  *
3  * COPYRIGHT (C) 1999 - 2016 EDF R&D, CEA/DEN
4  * MED is free software: you can redistribute it and/or modify
5  * it under the terms of the GNU Lesser General Public License as published by
6  * the Free Software Foundation, either version 3 of the License, or
7  * (at your option) any later version.
8  *
9  * MED is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12  * GNU Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public License
15  * along with MED. If not, see <http://www.gnu.org/licenses/>.
16  */
17 
18 
19 #include <med.h>
20 #include <med_config.h>
21 #include <med_outils.h>
22 #include <string.h>
23 
24 /*
25  * Chaine C -> chaine FORTRAN completee par des blancs
26  */
27 
28 med_err _MEDfstring(char *chaine, med_int longueur_fixee)
29 {
30  int longueur_reelle, i;
31 
32  if (longueur_fixee == 0 ) return 0;
33 
34  longueur_reelle = strlen(chaine);
35  if (longueur_fixee < longueur_reelle)
36  return -1;
37 
38  /* on supprime le caractere de fin de chaine C '\0'
39  et complete par des blancs */
40  for (i=longueur_reelle;i<longueur_fixee;i++)
41  *(chaine+i) = ' ';
42 
43  return 0;
44 }
herr_t med_err
Definition: med.h:310
med_err _MEDfstring(char *chaine, med_int longueur_fixee)
Definition: MEDfstring.c:28
int med_int
Definition: med.h:316