HDTenEightyP/NetNews huggingface dataset:
From: michael@groucho.GUN.de (Michael Diehl)
Subject: fsplit-source wanted
Organization: Diehl, Hungerdunger, Hungerdunger & McCormick
Date: Sun, 6 Sep 1992 17:23:10 GMT

I'm looking for a fsplit (C,  fortran or whatever)
It should behave like the fsplit on the convex.

Any pointers are welcome.

Thanks, Michael

-- 
Michael Diehl   | michael@groucho.gun.de | michael@theochem.uni-duesseldorf.de
Jordanstr. 39   | "Ich moechte nie Mitglied in einem Klub sein, der Leute wie 
4000 Duesseldorf|  mich als Mitglieder aufnimmt"     Groucho Mar
Newsgroups: comp.lang.fortran
From: molod@molod.gsfc.nasa.gov (Andrea Molod)
Subject: stream i/o
Organization: NASA
Date: Mon, 14 Sep 1992 22:27:44 GMT

Am looking for a reasonably clean way to write 'stream' unformatted i/o
from a fortran program on, lets say, a convex machine.
(just to check that i am using the correct term, i mean that i
want to write to a file from a fortran program that a C program
can read later - ie, without the fortran control words inside)
i know that the Cray has the .assign statement, that on a VAX
one can use RECORDTYPE=STREAM in an OPEN statement, but i don't
see how to do it on a convex. i realize that one can write a C
program to do it, but i can't manage to find the right manual
that gives me the rules for calling C from FORTRAN (77).
(the reasons for needing a stream data file are rather
drawn out, but for the task at hand, it seems to be best)
any suggestions or references would be of help.  you can reply
to me here or through email. thanks

Newsgroups: comp.lang.fortran
From: klassen@sol.UVic.CA (Melvin Klassen)
Subject: Re: fsplit-source wanted
Organization: University of Victoria, Victoria, B.C. CANADA
Date: Mon, 7 Sep 92 20:54:04 GMT

Michael Diehl <michael@groucho.GUN.de> writes:
>I'm looking for a fsplit (C,  fortran or whatever)
>It should behave like the fsplit on the convex.

Send E-mail to 'archie@ARCHIE.FUNET.FI' (or to 'archie@ARCHIE.DOC.IC.AC.UK'),
and put 'PROG FSPLIT' into the "Subject:" line, and you'll get output like:

# archie> prog fsplit 
# matches / % database searched:     24 /100% 
 
Host sun0.urz.uni-heidelberg.de   (129.206.100.126) 
    Location: /pub/bsd-sources/usr.bin 
      DIRECTORY rwxr-xr-x       512  Aug 28 16:40   fsplit 

Host rs3.hrz.th-darmstadt.de   (130.83.55.75) 
    Location: /pub/os/bsd-net2/usr.bin 
      DIRECTORY rwxr-xr-x       512  Jan 14  1992   fsplit 
 
Host ftp.uni-kl.de   (131.246.9.95) 
    Location: /pub2/packages/bsd-sources/usr.bin 
      DIRECTORY rwxrwxr-x       512  Apr 17 19:33   fsplit 
 
 ... others deleted, for brevity's sake ...
Newsgroups: comp.lang.fortran
From: francis@oas.stanford.edu (Francis Muir)
Subject: Re: SQRT
Organization: Stanford Exploration Project
Distribution: ba
Date: Thu, 10 Sep 1992 18:31:39 GMT

Jim Giles writes:

	Francis Muir writes:

		Can someone remind me whether 77 (or 90) allows the 
		generic SQRT function to be used on complex numbers? 

	In both standards, the generic SQRT works on COMPLEX. 

Thanks. Good ol' FORTRAN is like a '49 Chateau Mouton-Rothschild. Gets
better every year. FM
Newsgroups: comp.lang.fortran
From:  sergsh@seacost.pccentre.msk.su (Sergsh)
Distribution: world
Subject: SUBSCRIBE ...
Organization: Small Venture Seacoast
Date: Wed,  9 Sep 92 15:37:13 +0300
Reply-To: sergsh@seacost.pccentre.msk.su

LIST soc.culture
QUIT




-- 
"SeaCoast", Limanskaj 1, Eisk,Krasnodar region,box 353660,fax/ph(007-86132)- 3-43-10,3-37-34        =====       |
 Dr.  Serg Shirokov    (8..17)  (18..21)     } o , o {
< sergsh @ seacoast.pccentre.msk.su >             -
or "For Shirokov.." < sur@sur.rndavia.rostov-na-donu.su>
From: wmitchel@fergie.dnet.ge.com (Bill Mitchell)
Newsgroups: comp.lang.fortran
Subject: Re: Size of executables
Date: 8 Sep 92 14:12:00 GMT
Organization: GE Advanced Technology Labs

It would seem there is more than just a question of shared/static
libraries involved here.  Consider the following two programs:

edgar% cat test1.f
      END
edgar% cat test2.f
      parameter(ndim=128)
      real a(ndim,ndim),b(ndim,ndim),c(ndim,ndim)
      real second
......trivial main program to initialize a,b,c,n, call matmul
      between calls to second, and print results, omitted ......
      stop
      end
      subroutine matmul(a,b,c,n,lda)
      real a(lda,*),b(lda,*),c(lda,*)
      real sdot
      do i=1,n
         do j=1,n
            c(i,j)=sdot(n,a(i,1),lda,b(1,j),1)
         end do
      end do
      return
      end
      REAL FUNCTION SDOT(N,SX,INCX,SY,INCY)
C
......... Level 1 BLAS routine SDOT from netlib omitted ........
      END
      function second()
c
c returns user time since beginning of program
c
      real dummy,times(2)
c
      dummy = etime(times)
      second = times(1)
c
      return
      end

Compiled on a Sun SPARCstation IPC running SunOS 4.1.1.  I get

edgar% f77 -o test1 test1.f
test1.f:
 MAIN:
edgar% f77 -o test2 test2.f
test2.f:
 MAIN:
	matmul:
	sdot:
	second:
edgar% ls -l
total 315
-rwxr-xr-x  1 wmitchel   147456 Sep  2 11:20 test1*
-rw-r--r--  1 wmitchel       10 Sep  2 10:42 test1.f
-rw-r--r--  1 wmitchel       88 Sep  2 11:21 test1.o
-rwxr-xr-x  1 wmitchel   147456 Sep  2 11:21 test2*
-rw-r--r--  1 wmitchel     2345 Sep  2 10:49 test2.f
-rw-r--r--  1 wmitchel     5236 Sep  2 11:21 test2.o

Why are the two executable *exactly* the same size?

BTW, on a VAX running ULTRIX I get

-rwxr-xr-x  1 wmitchel    24576 Sep  2 13:22 test1*
-rw-r--r--  1 wmitchel       10 Sep  2 10:42 test1.f
-rw-r--r--  1 wmitchel      124 Sep  2 13:22 test1.o
-rwxr-xr-x  1 wmitchel    35840 Sep  2 13:22 test2*
-rw-r--r--  1 wmitchel     2350 Sep  2 13:21 test2.f
-rw-r--r--  1 wmitchel     3544 Sep  2 13:22 test2.o

-- 
 -- Bill

William F. Mitchell           |  wmitchell@atl.ge.com
GE Advanced Technology Labs   |  na.mitchell@na-net.ornl.gov

Just the facts -- no opinion disclaimer necessary.
From: mstemper@ems.cdc.com (Michael Stemper)
Newsgroups: comp.lang.fortran
Subject: Re: Switching from Fortran to C
Date: 11 Sep 92 17:25:34 GMT
Reply-To: mstemper@ems.cdc.com
Organization: Empros Systems International, a division of Ceridian

In article <92253.131825BOYDJ@QUCDN.QueensU.CA>, BOYDJ@QUCDN.QueensU.CA (Jeff Boyd) writes:
|> 
|> C and Fortran programs can look very much alike if you want them to.

And if you really want to drive a hard-core C programmer crazy, show them
that their C compiler will accept this file:
-----included file----
# include "me.h"

      PROGRAM

      INTEGER   FIRST, SECOND
C
      FIRST  = 1234
C
      SECOND = 73
C
      WRITE( OUTPUT, FORMAT, FIRST, SECOND, FIRST MOD SECOND )
C
      STOP
-----end of included file------
This will actually be accepted by a C compiler and run properly.
A Fortran compiler would reject it, due to the hosed WRITE statement.
The trick is in the file "me.h", which follows:
-----included file----
# include <stdio.h>
# define PROGRAM int main() {
# define STOP    exit(0); }
# define WRITE   fprintf
# define MOD     %
# define OUTPUT  stdout
# define INPUT   stdin
# define ERRLIST stderr
# define INTEGER int
# define C       ;
# define I2      %d
# define FORMAT  " %d mod %d is %d \n"
-----end of included file------

-- 
#include <Standard_Disclaimer.h>
Michael F. Stemper
Power Systems Consultant
mstemper@ems.cdc.com
Newsgroups: comp.lang.fortran
From: francis@oas.stanford.edu (Francis Muir)
Subject: SQRT
Organization: Stanford Exploration Project
Distribution: ba
Date: Thu, 10 Sep 1992 13:30:32 GMT

Can someone remind me whether 77 (or 90) allows the generic SQRT
function to be used on complex numbers? And if so, which solution
is returned, the one with a non-negative real part?
From: st_waldman@zodiac.dsto.oz.au
Newsgroups: comp.lang.fortran
Subject: Frequency-domain curve fitter wanted
Date: 7 Sep 92 21:56:17 GMT
Organization: D.S.T.O. Aeronautical Research Laboratory

Hi,

I am interested in curve-fitting sound pressure and impedance
response functions in the frequency domain using a rational
fraction polynomial formulation. Does anyone have any source
code to such a routine in Fortran? (even Pascal or C will do)

I have seen a paper titled "A Frequency Domain Curve Fitting
Algorithm With Improved Accuracy", by Jim Adcock (Hewlett-
Packard) and Ron Potter (Consultant) that was presented at a
modal analysis convention a few years ago.

The above algorithm can fit to data that is log-spaced in the
frequency domain, which is the common form for audio/acoustic
measurements as published in loudspeaker manufacturers data
sheets.

My application is related to modelling of loudspeaker systems so
that it will be possible to design crossover networks that take
into account each driver's natural response characteristics.

Any suggestions or pointers where I could obtain program source
code that implements this algorithm will be gratefully received.

Maybe even someone from Hewlett-Packard can help me?

Thank you.

-----------------------------------------------------------------------
 Witold Waldman
 Aeronautical Research Laboratory   Internet: witold@hotblk.dsto.gov.au
 Melbourne                          Fax     : +61 3 646 7771
 Australia                          Tel     : +61 3 647 7488
-----------------------------------------------------------------------
From: ajayshah@almaak.usc.edu (Ajay Shah)
Newsgroups: comp.lang.fortran
Subject: Re: Switching from Fortran to C
Date: 13 Sep 1992 11:07:31 -0700
Organization: University of Southern California, Los Angeles, CA
NNTP-Posting-Host: almaak.usc.edu

wmc@torpedo.uucp (Bill Cornette) writes:

>Although the idea of learning a new language from scratch is nice, it is
>usually started by relating to analogies in the language with which you
>are most familiar (language of birth :) ).

In the project of mastering C, it is better to know about loops and
if-else-endif as compared to knowing nothing.  But the conceptual gap
between fortran and C is hard to exaggerate.  It will take a real
change in the way of thinking to wield C effectively after having done
fortran.  (I think it's certainly harder to switch from fortran to C
than from Pascal to C, so the typical UG who's learned Pascal early on
is better off unspoilt by fortran).

And thats all for the better!  As /usr/games/fortune points out, a
programming language which does not change the way you think about
programming is not worth learning :-)

        -ans.
-- 
Ajay Shah, (213)749-8133, ajayshah@usc.edu
Newsgroups: comp.lang.fortran
From: klassen@sol.UVic.CA (Melvin Klassen)
Subject: Re: Unix fortran question
Organization: University of Victoria, Victoria, B.C. CANADA
Date: Wed, 9 Sep 92 19:40:07 GMT

In article <*> llew@coal.WPI.EDU (Lok C. Lew Yan Voon) writes:
>I'm running an f77 program on dec3100 and dec5000.
>it reads an input file, one of the lines being
>      read(ninp,*) slr2 , slr3 , slr4
>while the corresponding line in the input file is
> 0.0d0,0.0d0,0.0d0;
>Now, can someone tell me whether there's a problem here?

Section 13.6 of the ANSI X3.9-1978 FORTRAN 77 standard specifies:
 A __value_separator__ is one of the following:
   (1) a comma, optionally preceded by one or more contiguous blanks
       and optionally followed by one or more contiguous blanks
   (2) a slash, optionally preceded by one or more contiguous blanks
       and optionally followed by one or more contiguous blanks
   (3) one or more contiguous blanks between two constants
       or following the last constant

So, your ";" is a non-standard "value-separator".

Section 13.6.1 also states "note that the end of a record has the effect
of a blank, except when it appears within a character constant".
From: khb@chiba.Eng.Sun.COM (Keith Bierman fpgroup)
Newsgroups: comp.lang.fortran
Subject: Re: Size of executables
Date: 8 Sep 92 22:44:25
Organization: Sun MegaSystems
NNTP-Posting-Host: chiba
In-reply-to: wmitchel@fergie.dnet.ge.com's message of 8 Sep 92 14:12:00 GMT


> ... RISC vs. CISC ...

A persual of the literature tends to suggest that the code expansion
is usually on the order of 20%-40%. I recall no surveys showing even
as much as 2x.

The large size of f77 executables is largely due to some suboptimal
decisions made in constructing the plethoria of libraries which are
linked in most applications. 

However progress does occur. Consider

        print*,"hello world"
        end


f77v1.4.1 on SunOS 4.1.1

text	data	bss	dec	hex
155648	16384	0	172032	2a000


f77 2.0.1 on 4.1.1                           modest improvement
text	data	bss	dec	hex
106496	32768	0	139264	22000



f77 2.0.1 on solaris 2.0                    somewhat more substantial

 52350 + 3552 + 2208 = 58110


To answer the inevitable questions: f77 2.0.1 has not FCS'ed yet; it
is in beta. 

--
----------------------------------------------------------------
Keith H. Bierman    keith.bierman@Sun.COM| khb@chiba.Eng.Sun.COM
SunPro 2550 Garcia MTV 12-33             | (415 336 2648) fax 964 0946
Mountain View, CA 94043  <speaking for myself, not Sun*> Copyright 1992

Newsgroups: comp.lang.fortran
From: aswx266@chpc.utexas.edu (Michael Lemke)
Subject: Re: f77 parse error (Sun 4)
Organization: The University of Texas System - CHPC
Date: Sat, 5 Sep 92 05:15:41 GMT

In article <135445@lll-winken.LLNL.GOV> macq@miguel.llnl.gov (Don MacQueen) writes:
>I have a fortran subroutine that I got from somebody.
>It is from a complete code that was up and running
>under VMS.
>
>When I try to compile with f77 Sun fortran 1.4 on a
>Sun sparcstation IPC (Sun OS 4.1.2) I get this error
>message:
>
>Bad parse, return code 1
>
>What is this all about? I can't see anything wrong with
>the code.

With this little information I can only guess.  Next time provide 
exactly what you entered and the the precise error message.

My guess is you ran into the silly/stupid/sick Sun *extension* to treat 
a backslash in character constants as a masking symbol like in the 
shell.  So if you have something like 'a\' the Sun doesn't see the 
ending quote.  Try to compile with -xl.  That makes it a bit more VAX 
conform and removes *this* bug (feature, it is documented).  But your 
problem might something completely different.  Just my guess.

-- 
Michael Lemke
Astronomy, UT Austin, Texas
(michael@io.as.utexas.edu or UTSPAN::UTADNX::IO::MICHAEL [SPAN])
From: hou@agouron.com (Xinjun Hou)
Newsgroups: comp.lang.fortran
Subject: Re: Switching from Fortran to C
Date: 11 Sep 92 06:23:28 GMT
Organization: Agouron Pharmaceuticals, Inc., San Diego, CA

In article <EJH.92Sep9092350@khonshu.colorado.edu> ejh@colorado.edu (Edward J. Hartnett) writes:
>I am in the process of doing the same and my advice is: take a C
>course. I never needed a course in any computer language or
>....
>
>.... My feeling is
>that C is such a compact language, with such a rich history of it's
>own way of doing things, that it's harder to learn. FORTRAN, BASIC,
>Pascal, and even Lisp were easy, but C takes a little more effort. I'm
>convinced it will be worth it though.
>
>				Ed
>--
>Edward Hartnett			ejh@khonshu.colorado.edu

For experienced programmers, "The C programming language" by B Kernighan and
D Richie is a very good introduction and reference book. The 2nd Ed is ANSI
C style.

(Hi Ed, Dataman)

Xinjun
-- 
Xinjun Jason Hou                                       010110000110100101101110
Agouron Pharmaceticals, Inc                            011010100111010101101110
hou@agouron.com                                        010010000110111101110101
Newsgroups: comp.lang.fortran
From: silvert@biome.bio.ns.ca (Bill Silvert)
Subject: System identification subroutines sought
Reply-To: silvert@biome.bio.dfo.ca (Bill Silvert)
Organization: Habitat Ecology Div., Bedford Inst. Oceanography
Distribution: na
Date: Thu, 10 Sep 1992 14:03:09 GMT

I'm looking for subroutines that carry out system identification for
time series models, i.e., programs that will process an experimental
time series and identify a suitable model, such as a moving average
or ARIMA model.

There are routines for this in the IMSL package, but I would much
rather run on my workstation than on our cumbersome mainframe and
can't afford to purchase another copy of the routines.
-- 
------------------------------------------------------------------------
William Silvert, Habitat Ecology Division, Bedford Inst. of Oceanography
P. O. Box 1006, Dartmouth, Nova Scotia, CANADA B2Y 4A2.  Tel. (902)426-1577
InterNet Address: silvert@biome.bio.dfo.ca
Newsgroups: comp.lang.fortran
From: gkirikos@epas.utoronto.ca (George Kirikos)
Subject: What is a good book that teaches Fortran 77 ???
Organization: University of Toronto - EPAS
Date: Sun, 13 Sep 1992 14:30:51 GMT

Hi,

I have to learn Fortran for an Empirical Methods course in Finance,
and am looking for a good reference. I already know BASIC and C, thus
the book can assume that the reader has knowledge of programming
principles.

Thanks in advance,

+---------------------------------------------------------------------------+
| George Kirikos                   Internet: gkirikos@epas.utoronto.ca      |
| Toronto, Canada                 Telephone: (416) 537-1756                 |
+---------------------------------------------------------------------------+
Newsgroups: comp.lang.fortran
From: llew@coal.WPI.EDU (Lok C. Lew Yan Voon)
Subject: Output
Organization: Worcester Polytechnic Institute
Date: Sun, 6 Sep 1992 00:08:05 GMT


I'd like to be able to output an integer (a count) + a dash on the screen
everytime a given subroutine is exited. The tricky part is that
the characters have to be on the same line; e.g.,

	1-2-3-4

Can this be done using Unix Fortran? I believe this is easily done
with either C or VAX Fortran (I remember vaguely using '+' in a format
statement). Obviously, I'm looking for real-time output.
From: david@donald.concordia.ca (David Gaudine)
Newsgroups: comp.lang.fortran
Subject: Re: Unix fortran question
Date: 11 Sep 92 00:23:29 GMT
Organization: Concordia University

In article <Bu9tsE.HJ0@wpi.WPI.EDU> llew@coal.WPI.EDU (Lok C. Lew Yan Voon) writes:
>      read(ninp,*) slr2 , slr3 , slr4
>
>while the corr. line in the input file is
>
> 0.0d0,0.0d0,0.0d0;
>
>Actually, it seems like. f77 didn't like the absence of
>space b/w the last real*8 and the ';' character.

As I recall, most compilers will give an error message such as
"NON-FORTRAN CHARACTER ON INPUT", since FORTRAN doesn't allow a ";" to be
used anywhere in the source or data except in a character constant or
when reading in an "A" format.  This example doesn't look like one
where list-directed I/O should be used, I'd read it as a string and
use an internal READ (see article 9405).
Organization: Queen's University at Kingston
Date: Wednesday, 9 Sep 1992 13:18:25 EDT
From: Jeff Boyd <BOYDJ@QUCDN.QueensU.CA>
Newsgroups: comp.lang.fortran
Subject: Re: Switching from Fortran to C


I'm fundamentally a Fortran programmer;  when I had to learn C, I found
it easy to restrict myself to Fortran-like language elements and
constructs.  I was running graphics programs on SunOS in a single
morning of work, and didn't once receive a compilation error.  I had
never before tried to write a C program.

C and Fortran programs can look very much alike if you want them to.
My suggestion:  Keep your usage simple at first, get comfortable, then
gradually build your knowledge of C's full capabilities.  If you are
already good with Pascal, most of C will be straightforward.


jeff

Newsgroups: comp.lang.fortran
From:  sergsh@seacost.pccentre.msk.su (Sergsh)
Subject: I am very much regret what happened !
Reply-To: sergsh@seacost.pccentre.msk.su
Organization: Small Venture Seacoast
Date: Thu, 10 Sep 92 09:58:00 +0300 


        I am very much regret what happened !!!

        Please do not be angry !

        Serg

                         SERGSH@SEACOAST.PCCENTRE.MSK.SU
-- 
"SeaCoast", Limanskaj 1, Eisk,Krasnodar region,box 353660,fax/ph(007-86132)- 3-43-10,3-37-34        =====       |
 Dr.  Serg Shirokov    (8..17)  (18..21)     } o , o {
< sergsh @ seacoast.pccentre.msk.su >             -
or "For Shirokov.." < sur@sur.rndavia.rostov-na-donu.su>
From: mac@cis.ksu.edu (Myron A. Calhoun)
Newsgroups: comp.lang.fortran
Subject: Re: Switching from Fortran to C
Date: 11 Sep 92 20:48:55 GMT
Organization: Kansas State University
NNTP-Posting-Host: depot.cis.ksu.edu

mstemper@ems.cdc.com (Michael Stemper) writes:
>And if you really want to drive a hard-core C programmer crazy, show them
>that their C compiler will accept this file:....

I try to make my C programs look more like Modula 2; here is a module from
the last big C program I wrote:  the C compiler eats it up.
(#includes, #defines, most comments, & similar lines deleted for brevity)

------------ cut here ------------ cut here ------------ cut here ------------
EXTERNAL INTEGER ISATTY();
EXTERNAL VOID    GET_NEXT_SYMBOL(), LINK_INTO_PLACE(), REPORT(), 
                 TAIL_EXCLUDE(), WRAP_UP();

PROCEDURE MAIN (ARGC,ARGV)
  INTEGER    ARGC;
  CHARACTER *ARGV[];

LOCAL_VARIABLES
  UNSIGNED INTEGER count, length, longest_match;
  IMPLICANT_NODE  *Pcur_imp_node, *Pnew_imp_node;
  ARRAY_INDEX      X;
  CHARACTER        file_name[81], *Pnew_symbol, *Pold_symbol;

   Pend_of_sequence  = &sequence[MAXSEQUENCE-1];
   *(Plast_in_sequence = &sequence[0]) = START_SYMBOL;

   FOR (X = 0; (X < MAXSYMBOLS); X++) THEN
       implicant_counts[X] = 0;
   END_FOR

   LOOP_FOREVER
      GET_NEXT_SYMBOL();  /* Automagically terminates upon End-Of-File */

      IF (Pcur_imp_node) THEN        /* At least one implicant exists */
         REPEAT
             FOR (length = (*Pcur_imp_node).implicant_length
                 ,Pold_symbol = (*Pcur_imp_node).Pconsequent
                 ,Pnew_symbol = Plast_in_sequence
                 ,count       = 2    /* Length of shortest implicant */
                 ;(*--Pnew_symbol == *--Pold_symbol); ) THEN

                 IF (++count > length) CONTINUE_OUTER_LOOP; /* Exact match! */
             END_FOR

             IF (count > longest_match) longest_match = count;

         AS_LONG_AS (Pcur_imp_node = (*Pcur_imp_node).Pnext_imp_node);
      END_IF

      Pnew_imp_node = (IMPLICANT_NODE *) MALLOC (SIZEOF(IMPLICANT_NODE));
      IF (Pnew_imp_node == NULL) THEN
         PRINTF ("\nALLOCATE_IMPLICANT_NODE:  ran out of memory!\n");
         WRAP_UP (2);
      END_IF

      ++implicant_counts[symbol];
      (*Pnew_imp_node).implicant_length = longest_match;

      TAIL_EXCLUDE (Pnew_imp_node);

      LINK_INTO_PLACE (Pnew_imp_node, &Pimplicant_nodes[symbol]);

      IF ((*Pnew_imp_node).implicant_length > inductive_base) THEN
         inductive_base = (*Pnew_imp_node).implicant_length;
         PRINTF ("final position %3d", (Prescan - &sequence[0]));
      END_IF

Outer_Loop_End:;
   END_FOREVER

END_PROCEDURE
------------ cut here ------------ cut here ------------ cut here ------------
--Myron.
-- 
# We preserve our freedoms using four boxes:  soap, ballot, jury, and cartridge.
# Myron A. Calhoun, PhD EE; Assoc. Professor  (913) 539-4448 home
# INTERNET: mac@cis.ksu.edu (129.130.10.5)          532-6350 work, 532-7353 fax
#     UUCP: ...rutgers!depot!mac     Packet-BBS: W0PBV @ K0VAY.#NEKS.KS.USA.NAOM
Newsgroups: comp.lang.fortran
From:  sergsh@seacost.pccentre.msk.su (Sergsh)
Subject: Re:    Usenet
Reply-To: sergsh@seacost.pccentre.msk.su
Organization: Small Venture Seacoast
Date: Wed,  9 Sep 92 09:26:43 +0300 

GROUP sci.geo.geology
ART   2221
GROUP sci.geo.meteorology
ART   2659
GROUP soc.culture.australian
ART    337
ART    338
ART    339
GROUP soc.culture.soviet
ART   8589
ART   8593
ART   8604
From: skamarsu@cs.umr.edu (Srigouri Kamarsu)
Newsgroups: comp.lang.fortran
Subject: Random Number generator wanted!!
Date: 15 Sep 92 16:55:20 GMT
Distribution: usa
Organization: University of Missouri - Rolla
Originator: skamarsu@mcs213j.cs.umr.edu

Is there a fortran library to generate random numbers? I want to generate a
pseudo random binary sequence. Does anyone know a easy way to do it in fortran?

Thanks in advance. Send e-mail or post it on the net.

------------------------------------------------------------------------------
SriGouri Kamarsu                        |      E-mail:skamarsu@cs.umr.edu
Dept. of Electrical Engg.               |             gk@ee.umr.edu
Univ. of MO-Rolla                       |
------------------------------------------------------------------------------