1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
c
c File: HelloDriver.f
c Copyright: (c) 2001 The Regents of the University of California
c Revision: @(#) $Revision: 4434 $
c Date: $Date: 2005-03-17 09:05:29 -0800 (Thu, 17 Mar 2005) $
c Description:Simple CCA Hello World F77 client
c
c
program HelloDriver
integer *8 decaf
integer *8 server
integer *8 client
integer *8 port
integer *8 go
integer *4 retval
integer *8 ex
integer *8 properties
integer *8 connectionID
call decaf_Framework__create_f(decaf)
call decaf_Framework_createTypemap_f( decaf, properties, ex )
call decaf_Framework_createInstance_f(
& decaf,
& 'HelloServerInstance',
& 'HelloServer.Component',
& properties,
& server,
& ex)
call decaf_Framework_createInstance_f(
& decaf,
& 'HelloClientInstance',
& 'HelloClient.Component',
& properties,
& client,
& ex)
call gov_cca_TypeMap_deleteRef_f(properties)
call decaf_Framework_connect_f(
& decaf,
& client,
& 'HelloServer',
& server,
& 'HelloServer',
& connectionID,
& ex )
call gov_cca_ConnectionID_deleteRef_f(connectionID)
call decaf_Framework_lookupPort_f(decaf, client, 'GoPort', port)
call gov_cca_ports_GoPort__cast_f(port, go)
call gov_cca_ports_GoPort_go_f(go, retval)
call gov_cca_ports_GoPort_deleteRef_f(go)
call decaf_Framework_destroyInstance_f(decaf, server, 0.0, ex)
call decaf_Framework_destroyInstance_f(decaf, client, 0.0, ex)
call gov_cca_ComponentID_deleteRef_f(server)
call gov_cca_ComponentID_deleteRef_f(client)
call decaf_Framework_deleteRef_f(decaf)
return
end
|
