1  C*************************************************************************
 2  C COPYRIGHT (C) 1999 - 2003  EDF R&D
 3  C THIS LIBRARY IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY
 4  C IT UNDER THE TERMS OF THE GNU LESSER GENERAL PUBLIC LICENSE 
 5  C AS PUBLISHED BY THE FREE SOFTWARE FOUNDATION; 
 6  C EITHER VERSION 2.1 OF THE LICENSE, OR (AT YOUR OPTION) ANY LATER VERSION.
 7  C
 8  C THIS LIBRARY IS DISTRIBUTED IN THE HOPE THAT IT WILL BE USEFUL, BUT
 9  C WITHOUT ANY WARRANTY; WITHOUT EVEN THE IMPLIED WARRANTY OF
10  C MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. SEE THE GNU
11  C LESSER GENERAL PUBLIC LICENSE FOR MORE DETAILS.
12  C
13  C YOU SHOULD HAVE RECEIVED A COPY OF THE GNU LESSER GENERAL PUBLIC LICENSE
14  C ALONG WITH THIS LIBRARY; IF NOT, WRITE TO THE FREE SOFTWARE FOUNDATION,
15  C INC., 59 TEMPLE PLACE, SUITE 330, BOSTON, MA 02111-1307 USA
16  C
17  C**************************************************************************
18
19  C******************************************************************************
20  C * - Nom du fichier : test1.f
21  C *
22  C * - Description : exemples d'ouverture/fermeture de fichiers MED 
23  C *
24  C *****************************************************************************
25        program test1
26  C     
27        implicit none
28        include 'med.hf'
29  C
30  C     
31        integer cret
32        integer fid
33        character*200 des
34        parameter (des = "Ceci est un courte description"
35       1     // " du fichier test1.med")
36
37  C     Creation du fichier "test1.med"
38        call efouvr(fid,'test1.med',MED_CREATION, cret)
39        print *,cret
40
41  C     Ecriture d'un en-tete dans le fichier
42        if (cret .eq. 0) then
43           call effide (fid,des,cret)
44        endif
45        print *,cret
46
47  C     Fermeture du fichier
48        call efferm (fid,cret)
49        print *,cret
50
51  C     Re-ouverture du fichier en lecture seule      
52        call efouvr(fid,'test1.med',MED_LECTURE, cret)
53        print *,cret
54
55  C     Fermeture du fichier
56        call efferm (fid,cret)
57        print *,cret
58
59        end