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
Date: 20 Aug 92 03:36:54 GMT
Followup-To: poster
Organization: Chevron, La Habra, CA

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
----------
From: mike@hpfcso.FC.HP.COM (Mike McNelly)
Date: Thu, 3 Sep 1992 23:45:21 GMT
Subject: Re: Data storage info needed
Organization: Hewlett-Packard, Fort Collins, CO, USA