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)