home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / fortran / 3091 < prev    next >
Encoding:
Internet Message Format  |  1992-08-19  |  1.1 KB
  1. Path: sparky!uunet!pipex!unipalm!uknet!mcsun!sunic!hagbard!mefos!pam
  2. From: pam@mefos.se (PA Monwall)
  3. Newsgroups: comp.lang.fortran
  4. Subject: Re: Unix ARGC,ARGV in Fortran 77
  5. Message-ID: <1849@mefos.se>
  6. Date: 18 Aug 92 14:32:59 GMT
  7. References: <1848@mefos.se>
  8. Organization: MEFOS, Sweden
  9. Lines: 24
  10.  
  11. Shame PA........
  12. My followup was regarding passing ARGV and ARGV in VAX/FORTRAN!!!!!!!
  13. Not in f77/Ultrix. 
  14. But you can try with the functions iargc and getarg. Maybe they 
  15. exists in f77/Ultrix.
  16.  
  17. --------
  18.     character*40 string
  19.  
  20.     narg = iargc()            ! Get number of args
  21.     do 100 n=1,narg
  22.        call getarg(n,string)    ! Get arg n in string
  23.        ...
  24.        ....
  25. 100    continue
  26.  
  27. --------
  28.  
  29. ----------------------------!------------------------------------------------
  30.     /////// /////// //   // ! PA Monwall               E-mail: pam@mefos.se
  31.    //   // //   // ///////  ! Foundation for Metallurgical Research (MEFOS)
  32.   /////// /////// // / //   ! Box 812, S-951 28 Lulea, Sweden
  33.  //      //   // //   //    ! Tel: +46 920 55640  Home : +46 920 221581
  34. //      //   // //   //     ! Fax: +46 920 55832  Telex: 80482 MEFOS S 
  35.