home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Low Level Languages / FORTRAN.500 / DISK6 / FMTMAIN.FO$ / FMTMAIN.bin
Encoding:
Text File  |  1990-10-15  |  1.0 KB  |  33 lines
  1. CC  FMTMAIN program to illustrate calling a multithread dynamic link
  2. CC  library routine.  To be linked with FMTDLL.DLL at run time.
  3. CC
  4. CC  Compile FMTMAIN.FOR and link to create an executable file.
  5. CC  FMTMAIN.DEF lists the routines imported from FMTDLL.DLL.
  6. CC
  7. CC  Assuming that the example dynamic-link FORTRAN runtime library is on
  8. CC  your LIBPATH (see FDLLOBJS.CMD), compile with the following command:
  9. CC
  10. CC      FL -MD fmtmain.for frtexe.obj frtlib.lib fmtmain.def
  11. CC
  12.       INTERFACE TO SUBROUTINE dynalibtest [LOADDS] ( i, j )
  13.       INTEGER*4 i, j
  14.       END
  15.  
  16.       INTEGER*4 init, noinit
  17.  
  18.       init = 10101010
  19.       WRITE (*,*) 'in main code...'
  20.       WRITE (*,*) 'INIT   = ', init
  21.       WRITE (*,*) 'NOINIT = ', noinit
  22.       WRITE (*,*)
  23. C
  24. C     Call dynamic link library to swap values in arguments.
  25. C
  26.       CALL dynalibtest( init, noinit )
  27.  
  28.       WRITE (*,*)
  29.       WRITE (*,*) 'back in main code...'
  30.       WRITE (*,*) 'INIT   = ', init
  31.       WRITE (*,*) 'NOINIT = ', noinit
  32.       END
  33.