home *** CD-ROM | disk | FTP | other *** search
- Xref: sparky comp.sys.hp:9656 comp.lang.fortran:3145
- Path: sparky!uunet!lhdsy1!dfa
- From: dfa@lhdsy1.lahabra.chevron.com (D.F. Andersen)
- Newsgroups: comp.sys.hp,comp.lang.fortran
- Subject: unresolved references getarg and mclock on HPUX (hp9000/730)
- Keywords: HPUX intrinsic functions, linking problems, getarg, mclock
- Message-ID: <6222@lhdsy1.lahabra.chevron.com>
- Date: 20 Aug 92 03:36:54 GMT
- Followup-To: poster
- Organization: Chevron, La Habra, CA
- Lines: 144
-
- netters:
-
- I give up (sort of :)
- (email replies will get to me best! thanks!)
-
- I need some common UNIX system interface routines to get MCNP
- working on the hp9000/730
-
- My test code is:
-
- cat <</EOF >zz.getarg_mclock_link_prob.f
- c
- c check out linking problem on hp9000/730,
- c f77 thiscode.f can't find getarg, mclock
- c
- integer getarg
- integer mclock
- character*32 arg
-
- call getarg(1,arg)
-
- call mclock()
-
- stop 13
- end
- /EOF
-
-
- Even though the laser rom online reference manual says:
-
- HP-UX Intrinsic Functions and Subroutines
-
- The following intrinsic functions are specific to FORTRAN on the HP-UX
- operating system:
-
- ABORT
- GETARG
- GETENV
- IARGC
- MCLOCK
- SYSTEM
-
-
- I still get a basic linking failure that looks like:
-
- [56] %
- [56] % f77 zz.getarg_mclock_link_prob.f
- zz.getarg_mclock.src.f:
- MAIN:
- /bin/ld: Unsatisfied symbols:
- getarg (code)
- mclock (code)
- [57] %
-
-
- I tried getting to extended intrinsics:
-
- [57] %
- [57] % f77 +e zz.getarg_mclock_link_prob.f
- zz.getarg_mclock.src.f:
- MAIN:
- /bin/ld: Unsatisfied symbols:
- getarg (code)
- mclock (code)
- [58] %
-
- [58] %
- [58] % f77 +E1 zz.getarg_mclock_link_prob.f
- zz.getarg_mclock.src.f:
- MAIN:
- /bin/ld: Unsatisfied symbols:
- getarg (code)
- mclock (code)
- [59] %
-
- [59] %
- [59] % cat patch.hp700.directives.hp9000x800.1
- $HP9000_800 INTRINSICS
- [60] %
- [60] %
- [60] % f77 +Q patch.hp700.directives.hp9000x800.1 zz.getarg_mclock.src.f
- zz.getarg_mclock.src.f:
- MAIN:
- /bin/ld: Unsatisfied symbols:
- mclock (code)
- [61] %
- [61] %
-
-
- (.... at least this is closer!)
-
- and even extra system interface libraries:
-
- [61] %
- [61] % f77 +Q patch.hp700.directives.hp9000x800.1 -lfsys zz.getarg_mclock_link_prob.f
- zz.getarg_mclock.src.f:
- MAIN:
- /bin/ld: Unsatisfied symbols:
- mclock (code)
- [62] %
-
-
- it seems like the routine is available:
-
- [62] %
- [62] % nm /usr/lib/libcl.a | fgrep -i getarg
- Symbols from /usr/lib/libcl.a[pgetargs.o]:
- GETARG | 80|extern|entry |$CODE$
- Ftn_getarg | 224|extern|entry |$CODE$
- nm: /usr/lib/libcl.a: no symbols
- nm: /usr/lib/libcl.a: no symbols
- [63] %
-
- [63] %
- [63] % nm /usr/lib/libcl.a | fgrep mclock
- Symbols from /usr/lib/libcl.a[f_ftnmclock.o]:
- nm: /usr/lib/libcl.a: no symbols
- nm: /usr/lib/libcl.a: no symbols
- [64] %
- [64] % nm /usr/lib/libcl.a | fgrep -i clock
- Symbols from /usr/lib/libcl.a[f_ftnmclock.o]:
- MCLOCK | 0|extern|entry |$CODE$
- clock | |undef |code |
- nm: /usr/lib/libcl.a: no symbols
- nm: /usr/lib/libcl.a: no symbols
- [65] %
-
-
- but how do I get to it ??
-
-
- thanks in advance for pointers!
-
-
- dana
-
- ----------
- Dana Andersen UUCP: ..!uunet!chevron.com!dfa
- Advanced Systems Division, INTERNET: dfa@chevron.com
- Research Services Department, chevron internet: dfa@pcrt1.lahabra.chevron.com
- COFRC, chevron DECnet: VAXLH1::DFA
- P.O. Box 446, rm 4-132 chevron PROFS: VAXLH1(DFA)
- LaHabra, Ca., 90633-0446 phone: (310)694-7983
- ----------
-