File: helloclient.f

package info (click to toggle)
babel 0.10.2-1
  • links: PTS
  • area: contrib
  • in suites: sarge
  • size: 43,932 kB
  • ctags: 29,707
  • sloc: java: 74,695; ansic: 73,142; cpp: 40,649; sh: 18,411; f90: 10,062; fortran: 6,727; python: 6,406; makefile: 3,866; xml: 118; perl: 48
file content (20 lines) | stat: -rw-r--r-- 500 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
c
c     File:       helloclient.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 Hello World F77 client
c
c
      program helloclient
      integer *8 h
      character *32 msg

      call Hello_World__create_f (h)
      call Hello_World_getMsg_f (h, msg)
      call Hello_World_deleteRef_f (h)

      print *,msg

      return
      end