home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / sys / apollo / 3916 < prev    next >
Encoding:
Internet Message Format  |  1992-11-10  |  1.4 KB
  1. Path: sparky!uunet!ornl!utkcs2!darwin.sura.net!spool.mu.edu!sdd.hp.com!hplabs!ucbvax!RELAY.PROTEON.COM!Bill_Horsthemke_at_CTC
  2. From: Bill_Horsthemke_at_CTC@RELAY.PROTEON.COM
  3. Newsgroups: comp.sys.apollo
  4. Subject: Fortran Difference between Apollo / HPUX
  5. Message-ID: <9211101653.AA06502@monk.proteon.com>
  6. Date: 10 Nov 92 15:09:00 GMT
  7. Sender: daemon@ucbvax.BERKELEY.EDU
  8. Distribution: world
  9. Organization: Proteon, Inc., Westborough, MA  01581  [(508)898-2800]
  10. Lines: 36
  11.  
  12. I have a Fortran program on an Apollo 10K (BSD environ)
  13. that does not work on an HP 9000/750 HPUX 8.07.
  14.  
  15. On the apollo I check if the program is running 
  16. interactively: e.g.        a.out
  17. or a  script:  e.g.        a.out < run.file
  18.  
  19. The following code snippet works fine on an 
  20. Apollo 10K in BSD environ, but
  21. on a HP 9000 / 750 HPUX 8.07
  22.  
  23. C Fortran Code to check if interactive
  24. C or to get the name of the input file
  25.       CHARACTER*128 RUNFIL
  26.  
  27.       INQUIRE (5,NAME=RUNFIL)
  28. C it appears that this inquire does not work on HPUX
  29. C WHH check if this is interactive mode
  30.       IF (INDEX(RUNFIL,'\dev') .NE. 0) THEN
  31.          CHEKINTER = .TRUE.
  32.       ELSE
  33.          CHEKINTER = .FALSE.
  34.          WRITE (*, '(/10X,A//10X,A,$)')  RUNFIL
  35. C the HPUX prints out blanks for RUNFIL
  36. C while the Apollo writes the name of file redirected to stdin
  37. C 
  38.       ENDIF
  39.  
  40. Any Ideas would help ? Also I have tried to use getarg
  41. and iargc, but the linker cannot find them ?
  42.  nm finds them in libf.a.
  43.  
  44. FYI I do not have access to manuals.
  45.  
  46. /bill 
  47.  
  48.