MED fichier
medprofile.f
Aller à la documentation de ce fichier.
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2016 EDF R&D, CEA/DEN
4 C* MED is free software: you can redistribute it and/or modify
5 C* it under the terms of the GNU Lesser General Public License as published by
6 C* the Free Software Foundation, either version 3 of the License, or
7 C* (at your option) any later version.
8 C*
9 C* MED is distributed in the hope that it will be useful,
10 C* but WITHOUT ANY WARRANTY; without even the implied warranty of
11 C* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 C* GNU Lesser General Public License for more details.
13 C*
14 C* You should have received a copy of the GNU Lesser General Public License
15 C* along with MED. If not, see <http://www.gnu.org/licenses/>.
16 C*
17 c
18 c
19 c
20  subroutine mpfprw(fid,pname,psize,profil,cret)
21 c DEC$ ATTRIBUTES DLLEXPORT :: mpfprw
22 c
23  implicit none
24  save
25  character*(*) pname
26  integer profil(*)
27  integer fid,cret,psize
28  integer mpffprw
29 c
30  cret = mpffprw(fid,pname,len(pname),psize,profil)
31 c
32  return
33  end
34 c
35 c
36 c
37  subroutine mpfnpf(fid,n,cret)
38 c DEC$ ATTRIBUTES DLLEXPORT :: mpfnpf
39 c
40  implicit none
41  save
42  integer fid,n,cret
43  integer mpffnpf
44 c
45  n = mpffnpf(fid)
46 c
47  if (n.lt.0) then
48  cret = -1
49  else
50  cret = 0
51  endif
52 c
53  return
54  end
55 c
56 c
57 c
58  subroutine mpfpfi(fid, it, pname, psize, cret)
59 c DEC$ ATTRIBUTES DLLEXPORT :: mpfpfi
60 c
61  implicit none
62  save
63 c
64  character *(*) pname
65  integer fid, psize, it, cret
66  integer mpffpfi
67 c
68  cret = mpffpfi(fid, it, pname, psize)
69 c
70  return
71  end
72 c
73 c
74 c
75  subroutine mpfpsn(fid, pname, psize, cret)
76 c DEC$ ATTRIBUTES DLLEXPORT :: mpfpsn
77 c
78  implicit none
79  save
80 c
81  character *(*) pname
82  integer fid, psize, cret
83  integer mpffpsn
84 c
85  cret = mpffpsn(fid, pname, len(pname), psize)
86 c
87  return
88  end
89 c
90 c
91 c
92  subroutine mpfprr(fid,pname,profil,cret)
93 c DEC$ ATTRIBUTES DLLEXPORT :: mpfprr
94 c
95  implicit none
96  save
97  character*(*) pname
98  integer profil(*)
99  integer fid,cret
100  integer mpffprr
101 c
102  cret = mpffprr(fid,pname,len(pname),profil)
103 c
104  return
105  end
106 
subroutine mpfprw(fid, pname, psize, profil, cret)
Cette routine permet d'écrire un profil dans un fichier MED.
Definition: medprofile.f:21
subroutine mpfprr(fid, pname, profil, cret)
Cette routine permet de lire un profil dans un fichier MED.
Definition: medprofile.f:93
subroutine mpfpfi(fid, it, pname, psize, cret)
Cette routine permet de lire les informations sur un profil dans un fichier MED.
Definition: medprofile.f:59
subroutine mpfpsn(fid, pname, psize, cret)
Cette routine permet de lire la taille d'un profil dont on connait le nom.
Definition: medprofile.f:76
subroutine mpfnpf(fid, n, cret)
Cette routine permet de lire le nombre de profil dans un fichier MED.
Definition: medprofile.f:38