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, sdim
00034
00035 character*64 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 real*8 dt
00052
00053 parameter (mdim = 2, maa = "maa1",nnoe = 4, sdim=2)
00054 parameter (dt = 0.0)
00055 data coo /0.0, 1.0, 2.0, 3.0, 4.0, 5.0, 6.0, 7.0/
00056 data nomcoo /"x","y"/, unicoo /"cm","cm"/
00057 data nomnoe /"nom1","nom2","nom3","nom4"/
00058 data numnoe /1,2,3,4/, nufano /0,1,2,2/
00059
00060
00061 call mfiope(fid,'test4.med',MED_ACC_RDWR, cret)
00062 print *,cret
00063 if (cret .ne. 0 ) then
00064 print *,'Erreur creation du fichier'
00065 call efexit(-1)
00066 endif
00067
00068
00069
00070 call mmhcre(fid,maa,mdim,sdim,
00071 & MED_UNSTRUCTURED_MESH,'un premier maillage pour test4',
00072 & "",MED_SORT_DTIT,MED_CARTESIAN,nomcoo,unicoo,cret)
00073 print *,cret
00074 if (cret .ne. 0 ) then
00075 print *,'Erreur creation du maillage'
00076 call efexit(-1)
00077 endif
00078
00079
00080
00081 call mmhcow(fid,maa,MED_NO_DT,MED_NO_IT,dt,
00082 & MED_FULL_INTERLACE,nnoe,coo,cret)
00083 print *,cret
00084 if (cret .ne. 0 ) then
00085 print *,'Erreur ecriture des coordonnees des noeuds'
00086 call efexit(-1)
00087 endif
00088
00089
00090 call mmheaw(fid,maa,MED_NO_DT,MED_NO_IT,MED_NODE,
00091 & MED_NONE,nnoe,nomnoe,cret)
00092 print *,cret
00093 if (cret .ne. 0 ) then
00094 print *,'Erreur ecriture des noms des noeuds'
00095 call efexit(-1)
00096 endif
00097
00098
00099 call mmhenw(fid,maa,MED_NO_DT,MED_NO_IT,MED_NODE,
00100 & MED_NONE,nnoe,numnoe,cret)
00101 print *,cret
00102 if (cret .ne. 0 ) then
00103 print *,'Erreur ecriture des numeros des noeuds'
00104 call efexit(-1)
00105 endif
00106
00107
00108
00109 call mmhfnw(fid,maa,MED_NO_DT,MED_NO_IT,MED_NODE,
00110 & MED_NONE,nnoe,nufano,cret)
00111 print *,cret
00112 if (cret .ne. 0 ) then
00113 print *,'Erreur ecriture des numeros de famille'
00114 call efexit(-1)
00115 endif
00116
00117
00118 call mficlo(fid,cret)
00119 print *,cret
00120 if (cret .ne. 0 ) then
00121 print *,'Erreur fermeture du fichier'
00122 call efexit(-1)
00123 endif
00124
00125 end
00126
00127
00128
00129