home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / Fortran.51 / DISK6 / FMTDLL.FO$ / FMTDLL.bin
Text File  |  1990-10-15  |  938b  |  30 lines
  1. CC  FMTDLL dynamic link library.  To be linked with FMTMAIN at run time.
  2. CC
  3. CC  Compile FMTDLL.FOR and link to create a dynamic-link-library.
  4. CC  FMTDLL.DEF lists the routines which FMTDLL.DLL will export.
  5. CC
  6. CC  Assuming that the example dynamic-link FORTRAN runtime library is on
  7. CC  your LIBPATH (see FDLLOBJS.CMD), compile with the following command:
  8. CC
  9. CC      FL -MD -Fefmtdll.dll fmtdll.for frtdll.obj frtlib.lib fmtdll.def
  10. CC
  11. CC  Note that this example DLL requires runtime support.
  12. CC  If the WRITE statement is removed, then specification of a dynamically
  13. CC  linked FORTRAN runtime library on the above command-line is unneccesary.
  14. CC
  15.  
  16.       SUBROUTINE dynalibtest [LOADDS] ( a1, a2 )
  17.  
  18.       INTEGER*4 a1, a2
  19.       INTEGER*4 temp
  20.  
  21.       WRITE (*,*) 'inside dynalibtest()...swapping arguments'
  22.  
  23. C
  24. C     Swap the values of the arguments.
  25. C
  26.       temp = a1
  27.       a1   = a2
  28.       a2   = temp
  29.       END
  30.