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 test2
00025
00026 implicit none
00027 include 'med.hf'
00028
00029
00030 integer cret,ret
00031 integer fid
00032 character*200 des
00033 integer hdfok, medok
00034 character*16 nomcoo(2)
00035 character*16 unicoo(2)
00036 data nomcoo /"x","y"/, unicoo /"cm","cm"/
00037
00038
00039 call mficom('test1.med',hdfok,medok,cret)
00040 print *,hdfok, medok, cret
00041 if (cret .ne. 0 ) then
00042 print *,'Erreur à la vérification du format'
00043 call efexit(-1)
00044 endif
00045
00046
00047 call mfiope(fid,'test1.med',MED_ACC_RDONLY, cret)
00048 print *,cret
00049 if (cret .ne. 0 ) then
00050 print *,'Erreur ouverture du fichier en lecture'
00051 call efexit(-1)
00052 endif
00053
00054
00055 call mficor(fid,des,cret)
00056 print *,cret
00057 if (cret .ne. 0 ) then
00058 print *,'Erreur lecture en-tete du fichier'
00059 call efexit(-1)
00060 endif
00061 print *,"DESCRIPTEUR DE FICHIER : ",des
00062
00063
00064
00065 call mficlo(fid,cret)
00066 print *,cret
00067 if (cret .ne. 0 ) then
00068 print *,'Erreur fermeture du fichier'
00069 call efexit(-1)
00070 endif
00071
00072
00073
00074 call mfiope(fid,'test2.med',MED_ACC_RDWR, cret)
00075 print *,cret
00076 if (cret .ne. 0 ) then
00077 print *,'Erreur creation du fichier'
00078 call efexit(-1)
00079 endif
00080
00081
00082
00083 call mmhcre(fid,'maa1',2,2,
00084 & MED_UNSTRUCTURED_MESH,'un premier maillage',
00085 & "",MED_SORT_DTIT,MED_CARTESIAN,nomcoo,unicoo,ret)
00086 cret = cret + ret
00087
00088 call mmhunw(fid,'maa1',ret)
00089 cret = cret + ret
00090 print *,cret
00091 if (cret .ne. 0 ) then
00092 print *,'Erreur creation du maillage'
00093 call efexit(-1)
00094 endif
00095
00096
00097 call mmhcre(fid,'maa2',2,2,
00098 & MED_UNSTRUCTURED_MESH,'un second maillage',
00099 & "",MED_SORT_DTIT,MED_CARTESIAN,nomcoo,unicoo,ret)
00100 cret = cret + ret
00101 if (cret .ne. 0 ) then
00102 print *,'Erreur creation du maillage'
00103 call efexit(-1)
00104 endif
00105
00106
00107
00108 call mmhcre(fid,'maa3',2,2,
00109 & MED_STRUCTURED_MESH,'un troisieme maillage',
00110 & "",MED_SORT_DTIT,MED_CARTESIAN,nomcoo,unicoo,ret)
00111 cret = cret + ret
00112 print *,cret
00113 if (cret .ne. 0 ) then
00114 print *,'Erreur creation du maillage'
00115 call efexit(-1)
00116 endif
00117
00118
00119 call mficlo(fid,cret)
00120 print *,cret
00121 if (cret .ne. 0 ) then
00122 print *,'Erreur fermeture du fichier'
00123 call efexit(-1)
00124 endif
00125
00126 end
00127
00128
00129
00130
00131