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
00027 program test15
00028
00029 implicit none
00030 include 'med.hf90'
00031
00032
00033 integer ret,cret, fid;
00034
00035 integer mdim,sdim
00036
00037 character*64 maa
00038 character*200 desc
00039
00040 integer :: nnoe = 0
00041
00042 real*8, allocatable, dimension(:) :: coo
00043
00044
00045 character*16 nomcoo(2)
00046 character*16 unicoo(2)
00047 character*16 dtunit
00048
00049
00050
00051 character*16, allocatable, dimension(:) :: nomnoe
00052 integer, allocatable, dimension(:) :: numnoe,nufano
00053 integer rep
00054 integer inonoe,inunoe,inufa
00055 character*16 str
00056 integer i
00057 character*255 argc
00058 integer type,nstep,stype
00059 integer chgt,tsf
00060
00061
00062 call mfiope(fid,"test14.med",MED_ACC_RDONLY, cret)
00063 print *,cret
00064
00065
00066
00067 if (cret.eq.0) then
00068 call mmhmii(fid,1,maa,sdim,mdim,type,desc,dtunit,stype,nstep,rep,nomcoo,unicoo,cret)
00069 print *,"Maillage de nom : ",maa," et de dimension : ",mdim
00070 endif
00071 print *,cret
00072
00073
00074 if (cret.eq.0) then
00075 call mmhnme(fid,maa,MED_NO_DT,MED_NO_IT,MED_NODE,MED_NONE,MED_COORDINATE,MED_NO_CMODE,chgt,tsf,nnoe,cret)
00076 print *,"Nombre de noeuds : ",nnoe
00077 endif
00078 print *,cret
00079
00080
00081
00082
00083 allocate (coo(nnoe*sdim),STAT=ret)
00084
00085
00086 allocate (numnoe(nnoe),nufano(nnoe),STAT=ret)
00087
00088
00089 allocate (nomnoe(nnoe),STAT=ret)
00090
00091
00092
00093
00094
00095
00096 if (cret.eq.0) then
00097 call mmhnor(fid,maa,MED_NO_DT,MED_NO_IT,MED_FULL_INTERLACE,coo,inonoe,nomnoe,inunoe,numnoe,inufa,nufano,cret)
00098 endif
00099
00100
00101 if (cret.eq.0) then
00102 print *,"Type de repere : ",rep
00103 print *,"Nom des coordonnees : ",nomcoo
00104
00105 print *,"Unites des coordonnees : ",unicoo
00106
00107 print *,"Coordonnees des noeuds : ",coo
00108
00109 if (inonoe .eq. MED_TRUE) then
00110 print *,"Noms des noeuds : |",nomnoe,"|"
00111 endif
00112
00113 if (inunoe .eq. MED_TRUE) then
00114 print *,"Numeros des noeuds : ",numnoe
00115 endif
00116
00117 if (inufa .eq. MED_TRUE) then
00118 print *,"Numeros des familles des noeuds : ",nufano
00119 else
00120 print *,"Numeros des familles des noeuds : 0"
00121 endif
00122
00123 endif
00124
00125
00126 deallocate(coo,nomnoe,numnoe,nufano)
00127
00128
00129 call mficlo(fid,cret)
00130 print *,cret
00131
00132
00133 call efexit(cret)
00134
00135 end program test15
00136