home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / fortran / mslang / vb_fort / global.bas < prev    next >
BASIC Source File  |  1993-08-05  |  680b  |  22 lines
  1. Type struct
  2.   strings As String * 30
  3.   int2 As Integer
  4.   int4 As Long
  5.   real4 As Single
  6.   real8 As Double
  7. End Type
  8.  
  9. Type StringArray
  10.   strings As String * 24
  11. End Type
  12.  
  13. Declare Sub ARRAYTEST Lib "fortvb.dll" (Myarray As Single)
  14. Declare Sub ARRAYSTRING Lib "fortvb.dll" (Myarray As StringArray)
  15. Declare Sub Square Lib "fortvb.dll" (a As Single)
  16. Declare Sub SQUAREROOT Lib "fortvb.dll" (a As Single)
  17. Declare Function CUBE Lib "fortvb.dll" (a As Single) As Single
  18. Declare Sub STRINGER Lib "fortvb.dll" (ByVal mystring As String)
  19. Declare Sub STRUCTEST Lib "fortvb.dll" (fstruct As struct)
  20. Declare Function INTPOWER Lib "fortvb.dll" (m As Long, n As Long) As Long
  21.  
  22.