00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018 subroutine efscac(fid,sca,type,desc,cret)
00019
00020 implicit none
00021 save
00022
00023 character *(*) sca,desc
00024 integer fid, cret, type
00025 integer edfscac
00026
00027 cret = edfscac (fid,sca,len(sca),type,desc,len(desc))
00028
00029 return
00030 end
00031
00032
00033
00034 subroutine efscee(fid,sca,val,numdt,dtunit,dt,numo,cret)
00035
00036 implicit none
00037 save
00038
00039 character *32 sca
00040 character*(*) dtunit
00041 integer fid,val,cret
00042 integer numdt,numo
00043 real*8 dt
00044 integer edfscee
00045
00046 cret = edfscee(fid,sca,len(sca),val,
00047 1 numdt,dtunit,len(dtunit),dt,numo)
00048
00049 return
00050 end
00051
00052
00053
00054 subroutine efscfe(fid,sca,val,numdt,dtunit,
00055 1 dt,numo,cret)
00056
00057 implicit none
00058 save
00059
00060 character *(*) sca
00061 character*(*) dtunit
00062 integer fid,cret
00063 integer numdt,numo
00064 real*8 dt
00065 real*8 val
00066 integer edfscfe
00067
00068 cret = edfscfe(fid,sca,len(sca),val,
00069 1 numdt,dtunit,len(dtunit),dt,numo)
00070
00071 return
00072 end
00073
00074
00075
00076
00077
00078 subroutine efscel(fid,sca,val,numdt, numo,cret)
00079
00080 implicit none
00081 save
00082
00083 character *(*) sca
00084 integer fid,val,cret
00085 integer numdt,numo
00086 integer edfscel
00087
00088 cret = edfscel(fid,sca,len(sca),val,numdt,numo)
00089
00090 return
00091 end
00092
00093
00094
00095 subroutine efscfl(fid,sca,val,numdt, numo,cret)
00096
00097 implicit none
00098 save
00099
00100 character *(*) sca
00101 integer fid,cret
00102 integer numdt,numo
00103 integer edfscfl
00104 real*8 val(*)
00105
00106 cret = edfscfl(fid,sca,len(sca),val,numdt,numo)
00107
00108 return
00109 end
00110
00111
00112
00113 subroutine efscai(fid,ind,sca,type,desc,cret)
00114
00115 implicit none
00116 save
00117
00118 character *(*) sca,desc
00119 integer fid,ind,type,cret
00120 integer edfscai
00121
00122 cret = edfscai(fid,ind,sca,type,desc)
00123
00124 return
00125 end
00126
00127 subroutine efnsca(fid,n,cret)
00128
00129 implicit none
00130 save
00131
00132 integer fid,cret,n
00133 integer edfnsca
00134
00135 n = edfnsca(fid)
00136 if (n.lt.0) then
00137 cret = -1
00138 else
00139 cret = 0
00140 endif
00141
00142 return
00143 end
00144
00145 subroutine efnspd(fid,sca,n,cret)
00146
00147 implicit none
00148 save
00149
00150 integer fid,n,cret
00151 character*32 sca
00152 integer edfnspd
00153
00154 n = edfnspd(fid,sca,len(sca))
00155
00156 if (n.lt.0) then
00157 cret = -1
00158 else
00159 cret = 0
00160 endif
00161
00162 return
00163 end
00164
00165
00166 subroutine efspdi(fid,sca,indice,
00167 1 numdt,dtunit,dt,numo,cret)
00168
00169 implicit none
00170 save
00171
00172 integer fid,indice,numdt,numo,cret
00173 character*32 sca
00174 character*16 dtunit
00175 real*8 dt
00176 integer edfspdi
00177
00178 cret = edfspdi(fid,sca,len(sca),indice,
00179 1 numdt,dtunit,dt,numo)
00180
00181 return
00182 end
00183