00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022 subroutine efchre(fid,maa,cha,val,interlace,n,locname,numco,
00023 1 profil,pflmod,typent,typgeo,numdt,dtunit,
00024 1 dt,numo,cret)
00025
00026
00027 implicit none
00028 save
00029
00030 character *(*) cha,maa,profil,locname
00031 character*(*) dtunit
00032 integer fid,n,pflmod,typent,typgeo,cret
00033 integer interlace,numco,numdt,numo
00034 real*8 dt
00035 real*8 val(*)
00036 integer edfchae
00037
00038 cret = edfchae(fid,maa,len(maa),cha,len(cha),val,
00039 1 interlace,n,locname,len(locname),numco,
00040 1 profil,len(profil),pflmod,
00041 1 typent,typgeo,numdt,dtunit,len(dtunit),
00042 1 dt,numo)
00043
00044 return
00045 end
00046
00047
00048
00049
00050 subroutine efchrl(fid,maa,cha,val,
00051 1 interlace,numco,locname,profil,pflmod,
00052 1 typent,typgeo,
00053 1 numdt, numo,cret)
00054
00055
00056 implicit none
00057 save
00058
00059 character *(*) cha,maa,locname,profil
00060 integer fid,typent,typgeo,cret
00061 integer interlace,numco,numdt,numo,pflmod
00062 integer edfchal
00063 real*8 val(*)
00064
00065 cret = edfchal(fid,maa,len(maa),cha,len(cha),val,
00066 1 interlace,numco,locname,profil,pflmod,
00067 1 typent,typgeo,numdt,numo)
00068
00069 return
00070 end
00071
00072
00073