00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026 program test14
00027
00028 implicit none
00029 include 'med.hf'
00030
00031 integer cret, fid
00032
00033 integer mdim,sdim
00034
00035 character*64 maa
00036
00037 integer nnoe
00038 parameter (mdim=2,maa="maa1",nnoe=4,sdim=2)
00039
00040 real*8 coo(mdim*nnoe)
00041
00042 character*16 nomcoo(mdim), unicoo(mdim)
00043
00044
00045
00046 character*16 nomnoe(nnoe)
00047 integer numnoe(nnoe), nufano(nnoe)
00048 real*8 dt
00049 parameter(dt=0.0)
00050
00051 data coo /0.0, 0.0, 1.0, 0.0, 0.0, 1.0, 1.0, 1.0/
00052 data nomcoo /"x","y"/, unicoo /"cm","cm"/
00053 data nomnoe /"nom1","nom2","nom3","nom4"/
00054 data numnoe /1,2,3,4/,nufano /0,1,2,2/
00055
00056
00057 call mfiope(fid,'test14.med',MED_ACC_RDWR, cret)
00058 print *,cret
00059 if (cret .ne. 0 ) then
00060 print *,'Erreur creation du fichier'
00061 call efexit(-1)
00062 endif
00063
00064
00065 call mmhcre(fid,maa,mdim,sdim,MED_UNSTRUCTURED_MESH,
00066 & 'un maillage pour test14',"",MED_SORT_DTIT,
00067 & MED_CARTESIAN,nomcoo,unicoo,cret)
00068 print *,cret
00069 if (cret .ne. 0 ) then
00070 print *,'Erreur creation du maillage'
00071 call efexit(-1)
00072 endif
00073
00074
00075
00076
00077
00078
00079
00080 call mmhnow(fid,maa,MED_NO_DT,MED_NO_IT,dt,MED_FULL_INTERLACE,
00081 & nnoe,coo,MED_TRUE,nomnoe,MED_TRUE,numnoe,
00082 & MED_TRUE,nufano,cret)
00083 print *,cret
00084 if (cret .ne. 0 ) then
00085 print *,'Erreur ecriture des noeuds'
00086 call efexit(-1)
00087 endif
00088
00089
00090 call mficlo(fid,cret)
00091 print *,cret
00092 if (cret .ne. 0 ) then
00093 print *,'Erreur fermeture du fichier'
00094 call efexit(-1)
00095 endif
00096
00097 end
00098
00099
00100