MED fichier: Fichier source de medprofile.f

MED fichier

- Documentation MED
- Guides d'utilisation
- Guides de référence

medprofile.f
Aller à la documentation de ce fichier.
1 C* This file is part of MED.
2 C*
3 C* COPYRIGHT (C) 1999 - 2017 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
mpfprw
subroutine mpfprw(fid, pname, psize, profil, cret)
Cette routine permet d'écrire un profil dans un fichier MED.
Definition: medprofile.f:21
mpfpfi
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
mpfpsn
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
mpfprr
subroutine mpfprr(fid, pname, profil, cret)
Cette routine permet de lire un profil dans un fichier MED.
Definition: medprofile.f:93
mpfnpf
subroutine mpfnpf(fid, n, cret)
Cette routine permet de lire le nombre de profil dans un fichier MED.
Definition: medprofile.f:38