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