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