Calling Sequences for FLIBSCI Routines

Listed below are the entry points in the routines that comprise the Synergistic Consultants Incorporated Fortran (and C and C++) Library FLIBSCI.LIB. These were all written by John H. Letcher, Professor of Computer Science, University of Tulsa

 
FILE NTMAIN.C
      void main(int argc,char *argv[])
 
FILE BLKDAT.FOR
      BLOCK DATA SCI
      BLOCK DATA OSBD4
      BLOCK DATA DOSBD
 
FILE NT.C
      void spawn(ibuf)
      void finis()
      void rcloc(yr,mo,day,hour,min,sec,hu)
 
      void dospr(k)
      void strmov(name,mybuf)
      void dosl1(idbuf,fexists)
      void dosl2(idbuf,nl,ierr)
      void dosl3(idbuf,nl,ierr)
      void dosl4(idbuf,ierr)
      void dosl5(idbuf,ierr)
      void dosl6(idbuf,ierr)
      void dosl7(idbuf,ierr)
      void dosl8(drive)
      void ddffl(idbuf,jerr)
      void doscr(handle,jerr,idbuf)
      void ddlfl(idbuf,jerr)
      void drnfl(idbuf,jdbuf,jerr)
      void frnfl(idbuf,jdbuf,jerr)
      void dgtfa(idbuf,z,jerr)
      void dstfa(idbuf,z,jerr)
      void dosop(handle,jerr,idbuf)
      void dosac(jerr,idbuf)
      void doscl(handle,jerr)
      void drdfl(handle,ibuf,nchar,m,jerr)
      void dosrb(handle,jerr,k)
      void dosrl(handle,jerr,ibuf,nchar)
      void dwtfl(handle,ibuf,nchar,jerr)
      void doswb(handle,jerr,k)
      void doswl(handle,jerr,ibuf,nchar)
      void dpsfl(handle,z,jerr)
      void dosrw(handle,jerr)
      void dlnfl(handle,z,jerr)
      void remtb(ibuf,nchar)
 
FILE PLIB.C
      int kchar(ibuf,n)
      void jchar(ibuf,n,k)
      int land(i,j)
      int lor(i,j)
      int lxor(i,j)
      int lnot(i)
      int ibit(i,j)
      void jbit(int* i,int* j)
      void kbit(i,j)
      void shiftl(i,j)
      int locf(k)
      void move(ibuf,i,jbuf,j,nch)
             char *ibuf,*jbuf;
             int *i,*j,*nch;
      void movbl(ibuf,i1,nch)
             char *ibuf;
             int *i1,*nch;
      void movew(ibuf,jbuf,nw)
             short *ibuf,*jbuf;
             int *nw;
      void moved(ibuf,jbuf,nd)
            long *ibuf,*jbuf;
             int *nd;
      unsigned int equal(ibuf,i1,j1,jbuf,i2,j2)
            char *ibuf,*jbuf;
            int *i1,*j1,*i2,*j2;
      unsigned int equals(ibuf,i1,j1,jbuf,i2,j2)
            char *ibuf,*jbuf;
            int *i1,*j1,*i2,*j2;
      unsigned int equbl(ibuf,i1,j1)
             char *ibuf;
             int *i1,*j1;
      void ftnini(argc,argv)
 
FILE V2.FOR
      SUBROUTINE CONVE(IBUF,ITAB,X,JTAB,IW)
      SUBROUTINE CONVD(IBUF,ITAB,X,JTAB,IW)
      SUBROUTINE CONVF(IBUF,NCHO,Y, IW,JP)
      SUBROUTINE CONVI(IBUF,NCHO,IY,IW,IP)
      SUBROUTINE CONVI4(IBUF,NCHO,IY,IW,IP)
      SUBROUTINE CONVN(IBUF,ITAB,JTAB,J,X,IERR)
      SUBROUTINE ERROR(NTEMP)
      SUBROUTINE ERROL
      SUBROUTINE SEPAR(INBUF,ITAB,JTAB,MAXIN,NTEMP,NCHAR)
      SUBROUTINE SOPEN(NTEMP,NFILE,IERR)
      SUBROUTINE ROPEN(NTEMP,NFILE,IERR)
      LOGICAL FUNCTION ESCAPE(N)
      SUBROUTINE VEXIT
      SUBROUTINE PRINT(IBUF,NCHAR,JNAME)
      SUBROUTINE SRSFL
      SUBROUTINE DUMPZ(N)
      SUBROUTINE JUSTC(IA,ITAB,JTAB)
      SUBROUTINE JUSTL(IA,ITAB,JTAB)
      SUBROUTINE JUSTR(IA,ITAB,JTAB)
      SUBROUTINE REWND(INAME)
      SUBROUTINE ACCEP(INBUF,NCHAR,INAME,IECHO,JNAME,IEOF)
      SUBROUTINE FCNIN(INBUF,MAX,JERR)
      SUBROUTINE FCNOT(IBUF)
      SUBROUTINE CRLF
      SUBROUTINE CLANG
 
      SUBROUTINE RBAIEX(X,BASE,IEXP)
      SUBROUTINE ILOG10(IEXP,X)
      SUBROUTINE XOPEN(NTEMP,NFILE,IERR,RNDM)
      SUBROUTINE CHAIN(IA)
      SUBROUTINE MACST(IBUF)

      SUBROUTINE MACRP(IBUF)
      SUBROUTINE PAGE(NZZZ)
      SUBROUTINE TEKCL
      SUBROUTINE TEKRD(CCOM,IECHO,NOUTX,NOUT)
      SUBROUTINE ECHNG(CCOM)
      SUBROUTINE TEKXL(NOUT)
      SUBROUTINE SAVEN
      SUBROUTINE XENUS(JERR)
      SUBROUTINE ICNIN(INBUF,NCHAR,JERR)
      SUBROUTINE NULS
      SUBROUTINE PRNT(MESSG,NCHAR)
 
FILE XDOS.FOR
      SUBROUTINE FGTFS(NSLOT,JERR)
      SUBROUTINE FRSFL
      SUBROUTINE FDFFL(IDBUF,JERR)
      SUBROUTINE FDLFL(IDBUF,JERR)
      SUBROUTINE FOPFL(IDBUF,NSLOT,JERR)
      SUBROUTINE FONSF(IDBUF,NSLOT,JERR)
      SUBROUTINE FRWFL(NSLOT,JERR)
      SUBROUTINE FRDFL(NSLOT,IBUF,NCHAR,L,JERR)
      SUBROUTINE FWTFL(NSLOT,IBUF,NCHAR,JERR)
      SUBROUTINE FPSFL(NSLOT,LREC,NREC,NCHAR,JERR)
      SUBROUTINE LPSFL(NSLOT,LREC,NREC,NCHAR,JERR)
      SUBROUTINE FCLFL(NSLOT,JERR)
      SUBROUTINE FLNFL(NSLOT,Z,JERR)
      SUBROUTINE FGTFA(IDBUF,DPROT,WPROT,LENGTH,JERR)
      SUBROUTINE FSTFA(IDBUF,DPROT,WPROT,JERR)
      SUBROUTINE SRDFL(NSLOT,IBUF,NCHAR,JERR)
      SUBROUTINE SWTFL(NSLOT,IBUF,NCHAR,JERR)
      SUBROUTINE FPSEF(NSLOT,JERR)
      SUBROUTINE MPSFL(NSLOT,X,JERR)
 
      FUNCTION FEXISTS(IDBUF)
      SUBROUTINE DOSER(JERR)
      SUBROUTINE DOSFO
 
FILE STIMER.C
      void stimer(void)
      void rtimer(double *x)
 
FILE TIME.FOR
      SUBROUTINE DYTE(IBUF)
C 18 CHARACTERS WRITTEN
C b3/08/89  09:34:32
      SUBROUTINE RIME(IBUF)
C 12 CHARACTERS WRITTEN
C 8402314 5732
 
      SUBROUTINE THIME
      SUBROUTINE CLK(NOUT)
 
FILE NTVGA.FOR
      SUBROUTINE SPOT(IX,IY,K)
      SUBROUTINE BMPINIT(MXX,MYY)
      SUBROUTINE BMPOUT(IBUF,NCH)
      SUBROUTINE COLORSC
      SUBROUTINE GREYSC
      SUBROUTINE PHASESC
      SUBROUTINE ILINE(IX1,IY1,IX2,IY2,ICOL)
      SUBROUTINE ETEXT(IX,IY,IBUF,NCHAR,ICOL)
      SUBROUTINE ECHAR(IX,IY,K,ICOL)
      SUBROUTINE XTEXT(IX,IY,IBUF,NCHAR,ICOL)
      SUBROUTINE XCHAR(IX,IY,K,ICOL)
 
FILE WINDOW.CPP
     void wndopen(HWND& HWnd, LPCSTR szTitle, int& x, int& y
       int& cx, int& cy, BOOL& bSizable, BOOL& bModal)
      void setbmp(HWND& hWnd, BMI256* pbmi, void* pBits)
      void setplot(HWND& hWnd, int& points, void* pBits)
      void wndshow(HWND& hWnd)
      void msgbox(char* message,char* title)
 
FILE PIXELS.ASM
      SUBROUTINE PIXELS(K,LINE,LBUF)
 
FILE CONSOLE.C
      void zrdch(int *k)
      void trdch(int *k)
      void twtch(int *k)
      void coninit(void)
      void clear(void)
 
FILE ETC.FOR
      SUBROUTINE FRNOV(IDBUF,JERR)
      SUBROUTINE FCKBK(K)
      SUBROUTINE FENUS(KERR)
      LOGICAL FUNCTION IFZRO(X)
      SUBROUTINE CLEAR
      SUBROUTINE OSRST
 
HSLDR.FOR
      SUBROUTINE HSLDR(A,EIVS,EIFS,NN)
 
REMWS.FOR
      SUBROUTINE CSWAP(IBUF,N)
      SUBROUTINE INSCH(IBUF,NCHAR,N,M)
      SUBROUTINE DELCH(IBUF,NCHAR,N)
      SUBROUTINE SUBST(IBUF,NCHAR,N,NCH1,JBUF,NCH2)
      SUBROUTINE REMWS(IBUF,NCHAR)
      LOGICAL FUNCTION LETTER(K)
      LOGICAL FUNCTION ULET(K)
      LOGICAL FUNCTION LLET(K)
      LOGICAL FUNCTION NUMBER(K)
 
CONVH.FOR
      SUBROUTINE CONFX(INBUF,ITAB,JTAB,IVAL,IERR)
      SUBROUTINE CONFH(INBUF,ITAB,JTAB,IVAL,IERR)
      SUBROUTINE CONH(J,IERR)
      SUBROUTINE CONVH(IBUF,ITAB,IVAL,JTAB)
 
FILE FFT.FOR
      SUBROUTINE FFT
      SUBROUTINE IFFT
      SUBROUTINE FFTPR(JX)
 
FILE FFTETC.FOR
      SUBROUTINE CONV(G)
      SUBROUTINE AUTO
      SUBROUTINE CROSS(G)
      SUBROUTINE HARTLEY
      SUBROUTINE IHARTLEY
      DOUBLE PRECISION FUNCTION MAG(XC)
      DOUBLE PRECISION FUNCTION PHASE(XC)
 
FILE WAVELET.FOR
      SUBROUTINE WAVE(MX,JX)
      SUBROUTINE IWAVE(MX,JX)
      SUBROUTINE WAVEPR(FACTOR,JX,NPTS)
 
HULDRA.FOR
      SUBROUTINE HULDRA
      SUBROUTINE HUDRI
      SUBROUTINE BARRY(DFDX,NI,NJ)
      SUBROUTINE BETSY(DFDX,S,EIFS,NI,NJ)
      SUBROUTINE AMY(DFDX,NI,NJ)
      SUBROUTINE CONST(X,ANY)
      SUBROUTINE PSEUDO(S,EIFS,NI)
      SUBROUTINE HUPROG(S,EIFS,NI)
      SUBROUTINE HUREP(DFDX,NI,NJ)