home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / fortran / 3177 < prev    next >
Encoding:
Internet Message Format  |  1992-08-25  |  2.3 KB
  1. From: acmeyer@hpfcso.FC.HP.COM (Alan C. Meyer)
  2. Date: Tue, 25 Aug 1992 18:57:58 GMT
  3. Subject: Re: unresolved references getarg and mclock on HPUX (hp9000/730)
  4. Message-ID: <9080030@hpfcso.FC.HP.COM>
  5. Organization: Hewlett-Packard, Fort Collins, CO, USA
  6. Path: sparky!uunet!usc!sdd.hp.com!hpscdc!hplextra!hpfcso!acmeyer
  7. Newsgroups: comp.lang.fortran
  8. References: <6222@lhdsy1.lahabra.chevron.com>
  9. Lines: 72
  10.  
  11. In comp.lang.fortran, dfa@lhdsy1.lahabra.chevron.com (D.F. Andersen) writes:
  12.  
  13. > netters:
  14. > 
  15. > I give up (sort of :)
  16. > (email replies will get to me best!  thanks!)
  17. > 
  18. > I need some common UNIX system interface routines to get MCNP
  19. > working on the hp9000/730
  20. > 
  21. > My test code is:
  22. > 
  23. >  cat <</EOF  >zz.getarg_mclock_link_prob.f
  24. >  c
  25. >  c   check out linking problem on hp9000/730,
  26. >  c   f77  thiscode.f   can't find getarg, mclock
  27. >  c
  28. >         integer getarg
  29. >         integer mclock
  30. >         character*32   arg
  31. > 
  32. >         call  getarg(1,arg)
  33. > 
  34. >         call  mclock()
  35. > 
  36. >         stop 13
  37. >         end
  38. >  /EOF
  39.  
  40. Here is some information about MCLOCK.  First, your mclock() use of
  41. mclock above should be as a function ...
  42.  
  43. >    [59] % cat patch.hp700.directives.hp9000x800.1
  44. >    $HP9000_800 INTRINSICS
  45. >    [60] %
  46. >    [60] %
  47. >    [60] % f77 +Q patch.hp700.directives.hp9000x800.1   zz.getarg_mclock.src.f
  48. >    zz.getarg_mclock.src.f:
  49. >       MAIN:
  50. >    /bin/ld: Unsatisfied symbols:
  51. >       mclock (code)
  52.  
  53. At the next release of the Fortran compiler, MCLOCK will be recognized as
  54. an "800 intrinsic" - your above example will then work.  For now, a workaround
  55. is given below.
  56.  
  57. >    [64] % nm /usr/lib/libcl.a | fgrep -i clock
  58. >    Symbols from /usr/lib/libcl.a[f_ftnmclock.o]:
  59. >    MCLOCK              |         0|extern|entry  |$CODE$
  60. >    clock               |          |undef |code   |
  61. >    nm:  /usr/lib/libcl.a:  no symbols
  62. >    nm:  /usr/lib/libcl.a:  no symbols
  63. >    [65] %
  64. > 
  65. > 
  66. > but how do I get to it ??
  67.  
  68. As you see, the entry in the library is MCLOCK, but the reference in your
  69. code is to mclock (by default, the compiler downshifts external references).
  70. One way to access MCLOCK is to use an $ALIAS directive:
  71.  
  72.     $ALIAS mclock="MCLOCK"
  73.         i = mclock()
  74.         ...
  75.  
  76. This will force the external name of mclock to be MCLOCK and your code
  77. should link correctly.
  78.  
  79. Alan Meyer
  80. Colorado Language Lab
  81.  
  82. "These are my own opinions ..."
  83.