UsesCase_MEDmesh_4.f
Aller à la documentation de ce fichier.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 UsesCase_MEDmesh_4
00025
00026 implicit none
00027 include 'med.hf'
00028
00029
00030 integer cret
00031 integer fid
00032 integer sdim, mdim, stype, mtype, atype
00033 character*200 mdesc
00034 character*64 fname
00035 character*64 mname
00036 character*16 nomcoo(2)
00037 character*16 unicoo(2)
00038 character*16 dtunit
00039 parameter (fname = "UsesCase_MEDmesh_4.med")
00040 parameter (mdesc = "A 2D structured mesh")
00041 parameter (mname = "2D unstructured mesh")
00042 parameter (sdim = 2, mdim = 2)
00043 parameter (stype=MED_SORT_DTIT, mtype=MED_STRUCTURED_MESH)
00044 parameter (atype=MED_CARTESIAN_GRID)
00045 data dtunit /""/
00046 data nomcoo /"x ","y "/
00047 data unicoo /"cm ","cm "/
00048
00049
00050
00051 call mfiope(fid,fname,MED_ACC_CREAT,cret)
00052 print *,cret
00053 print *,fid
00054 if (cret .ne. 0 ) then
00055 print *,'ERROR : file creation'
00056 call efexit(-1)
00057 endif
00058
00059
00060
00061 call mmhcre(fid, mname, sdim, mdim, mtype,mdesc,
00062 & dtunit, stype, atype, nomcoo, unicoo, cret)
00063 print *,cret
00064 if (cret .ne. 0 ) then
00065 print *,'ERROR : mesh creation'
00066 call efexit(-1)
00067 endif
00068
00069
00070
00071 call mmhgtw(fid,mname,MED_CARTESIAN_GRID,cret)
00072 print *,cret
00073 if (cret .ne. 0 ) then
00074 print *,'ERROR : write grid type'
00075 call efexit(-1)
00076 endif
00077
00078
00079
00080 call mficlo(fid,cret)
00081 print *,cret
00082 if (cret .ne. 0 ) then
00083 print *,'ERROR : close file'
00084 call efexit(-1)
00085 endif
00086
00087
00088
00089 end
00090