Intel® Fortran Libraries Reference

Descriptions of the Library Routines 2integer(4) invoke_argscall COMInitialize(status)! Call GetActiveObject to get a reference to a running MS WORD! applicationcall COMGetActiveObjectByProgID("Word.Application", word_app, status)if (status >= 0) then! Print the active documentinvoke_args = AutoAllocateInvokeArgs()call AutoAddArg(invoke_args, "Copies", 2)status = AutoInvoke(word_app, "PrintOut", invoke_args)call AutoDeallocateInvokeArgs(invoke_args)! Release the referencestatus = COMReleaseObject(word_app)end ifcall COMUninitialize()end programCOMIsEqualGUIDCOM Function: Determines whether two globally unique identifiers (GUIDs) are the same. Thisfunction is only available on Windows* systems on IA-32 processors.Modules: USE IFCOM, USE IFWINTYSyntaxresult = COMIsEqualGUID (guid1, guid2)guid1The first GUID. Must be of type GUID, which is defined in the IFWINTY module. It can be anytype of GUID, including a class identifier (CLSID), or an interface identifier (IID).guid2The second GUID, which will be compared to guid1. It must be the same type of GUID as guid1.For example, if guid1 is a CLSID, guid2 must also be a CLSID.Results:The result type is LOGICAL(4). The result is .TRUE. if the two GUIDs are the same; otherwise,.FALSE.2-37