00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024 program test4
00025
00026 implicit none
00027 include 'med.hf'
00028
00029
00030 integer cret, fid
00031
00032
00033 integer mdim
00034
00035 character*32 maa
00036
00037 integer nnoe
00038
00039
00040 real*8 coo(8)
00041
00042
00043 character*16 nomcoo(2)
00044 character*16 unicoo(2)
00045
00046
00047
00048 character*16 nomnoe(4)
00049 integer numnoe(4)
00050 integer nufano(4)
00051
00052 parameter ( mdim = 2, maa = "maa1",nnoe = 4 )
00053 data coo /0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0/
00054 data nomcoo /"x","y"/, unicoo /"cm","cm"/
00055 data nomnoe /"nom1","nom2","nom3","nom4"/
00056 data numnoe /1,2,3,4/, nufano /0,1,2,2/
00057
00058
00059 call efouvr(fid,'test4.med',MED_LECTURE_ECRITURE, cret)
00060 print *,cret
00061 if (cret .ne. 0 ) then
00062 print *,'Erreur creation du fichier'
00063 call efexit(-1)
00064 endif
00065
00066
00067
00068 call efmaac(fid,maa,mdim,MED_NON_STRUCTURE,
00069 & 'un maillage pour test4',cret)
00070 print *,cret
00071 if (cret .ne. 0 ) then
00072 print *,'Erreur creation du maillage'
00073 call efexit(-1)
00074 endif
00075
00076
00077
00078 call efcooe(fid,maa,mdim,coo,MED_FULL_INTERLACE,
00079 & nnoe,MED_CART,nomcoo,unicoo,cret)
00080 print *,cret
00081 if (cret .ne. 0 ) then
00082 print *,'Erreur ecriture des coordonnees des noeuds'
00083 call efexit(-1)
00084 endif
00085
00086
00087 call efnome(fid,maa,nomnoe,nnoe,MED_NOEUD,0,cret)
00088 print *,cret
00089 if (cret .ne. 0 ) then
00090 print *,'Erreur ecriture des noms des noeuds'
00091 call efexit(-1)
00092 endif
00093
00094
00095 call efnume(fid,maa,numnoe,nnoe,MED_NOEUD,0,cret)
00096 print *,cret
00097 if (cret .ne. 0 ) then
00098 print *,'Erreur ecriture des numeros des noeuds'
00099 call efexit(-1)
00100 endif
00101
00102
00103
00104 call effame(fid,maa,nufano,nnoe,MED_NOEUD,0,cret)
00105 print *,cret
00106 if (cret .ne. 0 ) then
00107 print *,'Erreur ecriture des numeros de famille'
00108 call efexit(-1)
00109 endif
00110
00111
00112 call efferm (fid,cret)
00113 print *,cret
00114 if (cret .ne. 0 ) then
00115 print *,'Erreur fermeture du fichier'
00116 call efexit(-1)
00117 endif
00118
00119 end
00120
00121
00122
00123