vfeapcom.fd

来自「边界元程序,供力学工作者参考,希望对大家有所帮助」· FD 代码 · 共 58 行

	  INTERFACE
          INTEGER FUNCTION GetRunFlag()
            !DEC$ ATTRIBUTES DEFAULT :: GetRunFlag
            !DEC$ IF DEFINED(_X86_)
            !DEC$ ATTRIBUTES STDCALL, ALIAS : '_GetRunFlag' :: GetRunFlag
            !DEC$ ELSE
            !DEC$ ATTRIBUTES STDCALL, ALIAS :  'GetRunFlag' :: GetRunFlag
            !DEC$ ENDIF
          END FUNCTION GetRunFlag

          SUBROUTINE SetRunFlag( iFlag )
            !DEC$ ATTRIBUTES DEFAULT :: SetRunFlag
            !DEC$ IF DEFINED(_X86_)
            !DEC$ ATTRIBUTES STDCALL, ALIAS : '_SetRunFlag@4' :: SetRunFlag
            !DEC$ ELSE
            !DEC$ ATTRIBUTES STDCALL, ALIAS :  'SetRunFlag'   :: SetRunFlag
            !DEC$ ENDIF
	      INTEGER, INTENT(in) :: iFlag
	      !DEC$ ATTRIBUTES VALUE :: iFlag
	    END SUBROUTINE SetRunFlag

          INTEGER FUNCTION GetMemorySize()
            !DEC$ ATTRIBUTES DEFAULT :: GetMemorySize
            !DEC$ IF DEFINED(_X86_)
            !DEC$ ATTRIBUTES STDCALL, ALIAS : '_GetMemorySize' :: GetMemorySize
            !DEC$ ELSE
            !DEC$ ATTRIBUTES STDCALL, ALIAS :  'GetMemorySize' :: GetMemorySize
            !DEC$ ENDIF
          END FUNCTION GetMemorySize

          INTEGER FUNCTION GetDiskSize()
            !DEC$ ATTRIBUTES DEFAULT :: GetDiskSize
            !DEC$ IF DEFINED(_X86_)
            !DEC$ ATTRIBUTES STDCALL, ALIAS : '_GetDiskSize' :: GetDiskSize
            !DEC$ ELSE
            !DEC$ ATTRIBUTES STDCALL, ALIAS :  'GetDiskSize' :: GetDiskSize
            !DEC$ ENDIF
          END FUNCTION GetDiskSize

          INTEGER FUNCTION GetMaxMacro()
            !DEC$ ATTRIBUTES DEFAULT :: GetMaxMacro
            !DEC$ IF DEFINED(_X86_)
            !DEC$ ATTRIBUTES STDCALL, ALIAS : '_GetMaxMacro' :: GetMaxMacro
            !DEC$ ELSE
            !DEC$ ATTRIBUTES STDCALL, ALIAS :  'GetMaxMacro' :: GetMaxMacro
            !DEC$ ENDIF
          END FUNCTION GetMaxMacro

          INTEGER FUNCTION GetMaxVariable()
            !DEC$ ATTRIBUTES DEFAULT :: GetMaxVariable
            !DEC$ IF DEFINED(_X86_)
            !DEC$ ATTRIBUTES STDCALL, ALIAS : '_GetMaxVariable' :: GetMaxVariable
            !DEC$ ELSE
            !DEC$ ATTRIBUTES STDCALL, ALIAS :  'GetMaxVariable' :: GetMaxVariable
            !DEC$ ENDIF
          END FUNCTION GetMaxVariable
        END INTERFACE