HDTenEightyP/NetNews huggingface dataset:
From: rriv@oural.inria.fr (Robert Riviere)
Newsgroups: comp.lang.fortran
Subject: Re: Matrix Solver Wanted
Keywords: Matrix Solver Wanted
Date: 29 Sep 92 10:49:11 GMT
Organization: Cermics/Inria-Sophia Antipolis FR

In article <1992Sep23.130135.20068@cs.uow.edu.au> u8802770@cs.uow.edu.au (Glenn Mark Vassallo) writes:
>Can anyone help me? I need a matrix solver, to solve a Sparse, Symmetrical
>Matrix, with variable bandwidth?, also what is the best method possible ? and
>if a fortran source code is available?

Have a look to netlib@ornl.gov !
mail : send index,
	send index from slap
	send index from sparse
	send index from sparspak
	send index from PDES/MADPACK

etc,etc... Lots of good things.

-- 
Robert Riviere
(rriv@sophia.inria.fr)				Tel: (33) 93.65.79.06
Inria/CERMICS					Fax: (33) 93.65.77.40
BP 93                              06902	Sophia Antipolis Cedex
Newsgroups: comp.lang.fortran,comp.sys.ibm.pc
From: ellenberger@tle.enet.dec.com (John Ellenberger)
Subject: Re: F77 Compilers for MS-DOS PC's
Organization: Digital Equipment Corporation
Distribution: na
Date: Tue, 29 Sep 1992 12:04:33 GMT


In article <1992Sep26.022049.20475@noose.ecn.purdue.edu>, wesley@author.ecn.purdue.edu (Wesley D Scott) writes...
>In article <1992Sep25.030152.2303@tc.cornell.edu> bai@msiadmin.cit.cornell.edu (Dov Bai-MSI Visitor) writes:
>>In article <Bv3sJE.K0o@NCoast.ORG> btb@ncoast.UUCP (Brad Banko) writes:
>>>4.x is full f77 with some useful 
>>>extensions like time & date functions.
>>
>>Ver. 5.0 supports many popular extensions to F77, including many 
>>of the VAX extensions. It also support dynamic memory allocation.
>>And what I find very useful is the OS/2 support, which enables me
>>to run programs with large arrays (~8MB). However, it is a 16-bit
>>compiler and is slower on 386 than the 32-bit compilers. 
>>
>Ver 5.1 includes a programmer's work bench that includes a full screen
>editor and access to the codeview debugger.  Unfortunately starting the
>workbench returns you to where you were when you left it last time 
>which I thought was a pain when I was in the middle of several small 
>projects.  It also includes libraries to allow windows if running your
>FORTRAN program under MS WINDOWS.
> 
>Ver 3.3 is faster than ver 5.0 by a factor of 4 when doing large numbers
>of floating point calculations.  Don't even consider running ver 5 without
>a math coprocessor.
> 
>wesley@ecn.purdue.edu
Newsgroups: comp.lang.fortran
From: math1rb@rosie.uh.edu (92F07486)
Subject: What are pointers
News-Software: VAX/VMS VNEWS 1.41    
Organization: University of Houston
Date: Sun, 4 Oct 1992 03:37:00 GMT

For one of my classes, we need to manipulate some matrices and the prof.
said to use pointers. What are pointers?
From: dik@cwi.nl (Dik T. Winter)
Newsgroups: comp.lang.fortran
Subject: Re: Is this a Compiler Bug ?
Date: 3 Oct 92 02:51:31 GMT
Organization: CWI, Amsterdam

About whether to use '\' or '\\'.

In article <1992Oct2.174512.16640@newshost.lanl.gov> jlg@cochiti.lanl.gov (Jim Giles) writes:
 > A lot of responses to this question include statements that certain
 > compiler directives or command line options cause the above program
 > to work as expected.  However, if the native character set of the
 > implementation is ASCII, the above program is standard conforming
 > *as is*.  Now, as I pointed out before, few implementations are
 > strictly standard conforming with respect to character literals
 > because of control characters.
It depends on what standard you take (like in a previous thread about
the use of LF as New-Line).  In this case the original standard only
talked about Fortran characters (which are uppercase letters, digits
and some punctuation).  All what remains is extension to the than
existing standard.  If the standard is updated some implementations
may follow suit (because the update does not create backward
incompatibilities), others do not (because such incompabilities are
created).  This is another example of such phenomenom.  Until last year
I had access to a Fortran compiler that silently translated all
lower-case characters to their upper-case equivalent; also in character
constants and strings.
-- 
dik t. winter, cwi, kruislaan 413, 1098 sj  amsterdam, nederland
home: bovenover 215, 1025 jn  amsterdam, nederland; e-mail: dik@cwi.nl
Newsgroups: comp.lang.fortran
From: jtbell@hubcap.clemson.edu (Jon Bell)
Subject: Re: What are pointers
Organization: Presbyterian College, Clinton SC
Date: Sun, 4 Oct 1992 22:57:38 GMT

In article <3OCT199222373032@rosie.uh.edu> math1rb@rosie.uh.edu (92F07486) writes:
>For one of my classes, we need to manipulate some matrices and the prof.
>said to use pointers. What are pointers?
>
>
Uh... if this is a Fortran class, your prof needs to have his head examined.
Fortran doesn't _have_ pointers.  At least standard Fortran doesn't.  If it's
a C class, you should re-direct your question to a more appropriate
newsgroup.  

Jon Bell (jtbell@presby.edu)
Dept. of Physics and Computer Science
Presbyterian College, Clinton SC
From: tcanham@kilroy.jpl.nasa.gov (Tim Canham) 
Subject: FORTRAN flowcharter 
Reply-To: tcanham@kilroy.jpl.nasa.gov
Organization: Jet Propulsion Laboratory, Pasadena, CA
Date: Wed, 30 Sep 1992 18:19:11 GMT

Is anyone aware of a good (preferably public domain) FORTRAN flowcharter?

Please respond by e-mail as I don't read this newsgroup often.

Thank you!

---------------
"They always told me I would be a rocket scientist"
tcanham@kilroy.jpl.nasa.gov
Timothy K. Canham
From: coil@sneezy.eng.ohio-state.edu (Stacy D. Coil)
Newsgroups: comp.lang.fortran
Subject: What does RAN() do?
Date: 30 Sep 92 18:08:38 GMT
Article-I.D.: ee.1992Sep30.180838.4602
Organization: The Ohio State University Dept of Electrical Engineering

I am trying to port a FORTRAN 77 program from Ultrix to IBM's AIX.
Would any happen to know what the following function does.

	RAN()

It appears to take two REALs as arguements and returns a REAL.


Any help would be appreciated.

Stacy

-------------------------------------------------------------------------------
Stacy D. Coil			         The Ohio State University
Student Programmer III		Electrical Engineering Computer Facilities
coil@ee.eng.ohio-state.edu		      Columbus, Ohio
coil@cis.ohio-state.edu			      (614) 292-1416
-------------------------------------------------------------------------------
From: mstemper@ems.cdc.com (Michael Stemper)
Newsgroups: comp.lang.fortran
Subject: Re: [HELP] What's wrong with the following simple code?
Date: 30 Sep 92 17:44:45 GMT
Reply-To: mstemper@ems.cdc.com
Organization: Empros Systems International, a division of Ceridian

I wrote:

|> > If you are going to play tricks with equivalencing and common, you
|> > should have extensive comments. This module doesn't even have enough
|> > comments for a straight-forward piece of code, but it is doing some
|> > very cryptic things.

In article <2ac990d2@ThreeL.co.uk>, jf@threel.co.uk (John Fisher) writes:

|> You can have too many comments, you know.  I find comments
|> of this sort *impede* understanding of the code:
|> 
|>    C     Increment counter
|>          I = I + 1

[other examples deleted]

|> Comments like this are really just noise.

I agree absolutely! Comments should not echo the code, they should
explain it!

I have (in a previous life) had to modify code that had comments like
'RETURN TO CALLER' or 'INCREMENT COUNTER', but had absolutely no
explanation of what the purpose of any given part was.

Software engineering is of vital importance, but seldom taught. Lack of
it up front causes multiple headaches. My comments on the original post
were not an attempt to "tear into a poor graduate student", as one
person said to me. They were intended to help him.

I stand by every comment I made in the original post - including the one
about 'r' versus 'R'.

As several correspondents pointed out, most compilers will not make a
distinction. However, good human factors engineering says 'similar
things should look the same, different things should look different'.
This is true whether you are designing a user interface, a language,
or a subroutine.

The next time the language wars start, some defender of C (or Pascal
or whatever the language of the week is) will say: "The Fortran code
I've seen was really hard to follow. Therefore, Fortran is a bad
language, because it lets you write hard to follow code." Anybody who
thinks that code like the original posting is acceptable is just
giving ammunition to the C-types.

-- 
#include <Standard_Disclaimer.h>
Michael F. Stemper
Power Systems Consultant
mstemper@ems.cdc.com
From: pullin@mail.physics.utah.edu (Jorge Pullin)
Subject: How to print a "TAB" in fortran 77?
Reply-To: pullin@mail.physics.utah.edu
Organization: University of Utah, Department of Physics
Date: Sat, 26 Sep 92 17:54:35 GMT

Hello

I need to write to a file a "TAB" (ASCII 09, Ctrl-I) character to separate
fields of data. This is due to the fact that an application that reads my
data requires this type of separation among fields (note that I am not
talking about the TAB format, but of actually writing a character TAB). 


I've tried defining a character*1 variable tab and then tried to assign the
ASCII 09 value to it with data tab /9/, but the compiler didn't accept it (I
think this was allowed in VAX fortran). Then I tried

	write(7,1) 7
1	format(1x,A1)

But the result that came out was ^@ or something like that. In fact this
result did not change whatever number I put in the write.

The question therefore is: How can I  write a tab as separator of data in a
fortran write?

Please reply by email, I can summarize if there is interest.
Thanks in advance. 

Regards.
Jorge
-----------------------------------------------------------------------------
|Jorge Pullin, Department of Physics |  pullin@mail.physics.utah.edu        |
|201 JFB,  University of Utah        |  pullin@utahcca.bitnet               |
|Salt Lake City, UT 84112 USA        |  Tel:(801)581-5395 Fax:(801)581-4801 |
-----------------------------------------------------------------------------
Newsgroups: comp.lang.fortran
From: zzang@stat.ufl.edu (zzang)
Subject: How to add cmd line options?
Originator: zzang@manta
Organization: University of Florida
Distribution: usa
Date: Sun, 4 Oct 92 13:16:32 GMT

Hello,
pardon me for the ignorance.
I tried to compile a fortran program which
has a statement
	PROGRAM FOO(opt, filename)
	character*20 opt, filename
the compiler won't take it.

it seems the program try to use cmd line options.
I don't have any idea how to add cmd line options
in the fortran program.
could someone please give me some hints on this?

Thanks very much in advance!

-- 
Zhuo Zang[~{j0WA~}]
Department of Statistics
University of Florida            Email: zzang@stat.ufl.edu
Newsgroups: comp.lang.fortran
From: cflatter@nrao.edu (Chris Flatters)
Subject: Re: SUMMARY: cc vs. f77, argv argc for f77
Reply-To: cflatter@nrao.edu
Organization: NRAO
Date: Tue, 6 Oct 1992 23:37:08 GMT

In article 9463@eng.ufl.edu, zzang@stat.ufl.edu (zzang) writes:
>we discuss this under the Unix environment.
>
>1. call C functions in Fortran.
>   f77 puts a '_' in the end of procedure names
>   as the internal procedure names.
>   so if you use : 
>   CALL FOO(bar)
>   f77 sees foo_() when it ld the .o together.

This is implementation dependent.  Given a FORTRAN routine named FOO I can
think of UNIX compilers that generate the symbol names foo, foo_ and FOO.
The trailing underscore is widespread since it was the convention used by
the Berkeley f77 compiler but is not universal.

>2. get  the argv argc in Fortran program.
>   use getarg(3f) and iargc(3f)

The availability of routines to access the command line is also implementation
dependent.  The best advice is to read the documentation for your FORTRAN
environment.

	Chris Flatters
	cflatter@nrao.edu
Newsgroups: comp.lang.fortran
From: P5SY000 <P5SY@UNB.CA>
Subject: statistical distribution functions
Organization: The University of New Brunswick
Date: Mon, 28 Sep 1992 21:58:26 GMT

Does anyone know how can I get the statistical distribution
functions (normal distr.; F-distr.; etc.) Fortran subroutines.

Your help is greatly appreciated.

Ahmed
emial: P5SY@UNB.CA
From: sandee@Think.COM (Daan Sandee)
Newsgroups: comp.lang.fortran
Subject: Re: Adjustable arrays
Date: 5 Oct 1992 20:16:46 GMT
Organization: TMC
Distribution: world
NNTP-Posting-Host: telecaster.think.com

In article <EJH.92Oct5134025@khonshu.colorado.edu>, ejh@khonshu.colorado.edu (Edward J. Hartnett) writes:
|> ............. Now wasn't it kind of stupid for the original programmer
|> to do that to us all in the interest of sxaving the 10 seconds it
|> would have taken to do it right? Actually it doesn't even save time
|> because he or she could have used v(*) for the same effect and it
|> would have been more clear.

Older versions of Fortran (Fortran 66 or even older) didn't have a 
declaration of the form v(*). It is also possible that declaring arrays
(passed as a formal parameter into a subroutine) *larger* than they really
where, got one into trouble on some implementations. So the common dodge
was to declare all such arrays as dimension v(1). This always works - for
single-dimension arrays and for the last (rightmost) dimension of a multi-
dimensional array. The size of all but the last (rightmost) dimension has
to be defined correctly, either as a constant or as a variable passed as
a formal parameter. 

Daan Sandee                                           sandee@think.com
Thinking Machines Corporation
Cambridge, Mass 02142                                 (617) 234-5044
Newsgroups: comp.lang.fortran
From: hybl@umbc4.umbc.edu (Dr. Albert Hybl (UMAB-BIOPHYS))
Subject: Re: Is this a Compiler Bug ?
Summary: Another example of the deleterious effect of the suicide clause
Organization: Univ. of MD, Baltimore County
Date: Fri, 2 Oct 1992 16:25:09 GMT

In article <1992Oct2.141219.9142@eagle.lerc.nasa.gov> towne@lerc.nasa.gov (Charlie Towne) writes:
>In article <1992Oct1.195512.16735@chpc.utexas.edu>, ivab015@hermes.chpc.utexas.edu (Albert Wu) writes:
>>       string = '1234567890123456\8901234567890'
>
>I recently looked at this problem when porting one of my codes to other
>systems.  I found that Fortran workstations from SGI, IBM, DEC, and Sun
>treat the backslash as an escape character by default.  On a Convex
>mainframe the default is to treat it as an ordinary character.
>
>In cases where it's an escape character, doubling the backslash in
>character strings is necessary to get an ordinary character.
>(Alternatively, as pointed out by another poster, on at least some
>machines there's a compiler option (-backslash on SGI, -xl on Sun,
>don't know about others) that allows a single backslash to be an
>ordinary character.)
Yep, if it ain't specified--the vendors can do anything.
Something like this could have easily been put up for
adjudication before X3J3 or better yet hashed out over
the USENET in comp.lang.fortran.  Try porting '\\' to
a machine that only wants one '\' or vice versa.  It's
just another pain in the ,,,.

Nazdar,
Albert Hybl (hybl@umbc3.umbc.edu)
From: sjouke@izf.tno.nl (Sjouke Burry)
Newsgroups: comp.lang.fortran
Subject: Re: The FORTRAN Yell
Date: 28 Sep 92 11:22:51 GMT
Organization: TNO Institute for Perception

das9674@usl.edu (Stephenson Daniel A) writes:

>Have any of you fellow FORTRAN programmers ever worked so long on
>a FORTRAN program, perhaps in university, and worked on it
>so very long that when you make some random tweaking in hopes
>that the program will work (I call this 'FORTRAN Dispair))
>the PROGRAM ACTUALLY WORKS AND YOU JUMP UP FROM YOU CHAIR
>IN THE LAB AND **YELL**?? And scare the bejesus out of everyone?

>Just wondering...it is an interesting phenomenom.

    Sorry Daniel, but most programs i write, work first time around, and 
    that has nothing to do with the language you are programming in, but
    to your programming style.
    Please refer language bashing  to some other newsgroup.

						S. Burry
						sjouke@izf.tno.nl
Newsgroups: comp.lang.fortran
From: fairfield@slacvx.slac.stanford.edu
Subject: Re: VMS shareable images q.- Please help
Organization: Stanford Linear Accelerator Center
Distribution: comp.lang.fortran
Date: Mon, 28 Sep 1992 23:36:29 GMT

In article <1992Sep26.104531.28436@doug.cae.wisc.edu>, dafnioti@cae.wisc.edu (Petros Dafniotis) writes:
>    We recently experienced a problem with our shareable images in the
> VAX/VMS system.

    This is not a Fortran question, but a VMS (and perhaps a VAX C) question.
Therefore I have cross posted to comp.os.vms and vmsnet.internals.  Please
direct followups there.

-- 
 Dr. Kenneth H. Fairfield    |  Internet: Fairfield@Slacvx.Slac.Stanford.Edu
 SLAC, P.O.Box 4349, MS 98   |  DECnet:   45537::FAIRFIELD (45537=SLACVX)
 Stanford, CA   94309        |  BITNET    Fairfield@Slacvx
 ----------------------------------------------------------------------------
 These opinions are mine, not SLAC's, Stanford's, nor the DOE's...
From: gorton@blorf.ltn.dec.com (Richard Gorton)
Newsgroups: comp.lang.fortran
Subject: Re: Is this a Compiler Bug ?
Date: 6 Oct 92 13:34:02 GMT
Reply-To: gorton@blorf.ltn.dec.com (Richard Gorton)
Organization: Digital Equipment Corporation, Littleton MA


In article <1992Oct5.173754.14567@alchemy.chem.utoronto.ca>, mroussel@alchemy.chem.utoronto.ca (Marc Roussel) writes:
>From: mroussel@alchemy.chem.utoronto.ca (Marc Roussel)
>Organization: Department of Chemistry, University of Toronto
>
>In article <KHB.92Oct4125133@chiba.Eng.Sun.COM> khb@chiba.Eng.Sun.COM (chiba)
>writes:
>>The X3.9-1978 made it clear; don't use backslash if you want your code
>>to be Standard Compliant. If you code is not Standard Compliant don't
>>complain that the compiler is broken, that FORTRAN is non-portable or
>>that X3J3 should have the offending compiler writer tossed in Gaol.
>
>     No, but by all means complain to your vendor that the default
>behaviour is a pain in the butt.  Weird behaviour should be turned off
>by default, not the other way around.
>
>				Marc R. Roussel
>                                mroussel@alchemy.chem.utoronto.ca

Excuse me?  (As he pulls out his former job 'hat' and puts it hastily on)
I think you are in the minority here.  You would not believe the amount
of abuse customer support gets when the extended behavior requires an extra
compile-time switch.  Not to mention the hacked off reviewers, whom have
non-conforming code they want to compile, that they _know_ is fine.
In order for them to compile their test code (full of common extensions),
they then have to crack open the documentation, and do a bit of extra
typing.  How do I know?  Until very recently, I was a FORTRAN compiler
project leader for an ISV which sells multiple compilers for various
UNIX platforms, including COBOL, PL/I, FORTRAN, ANSI-C, and C++.

How did the compilers get this way?  The users demanded said features.

Just as a point of note, the problem is not limited to FORTRAN, either.


--------------------
Richard Gorton		Alpha Migration Tools - Digital Equipment Corp.
Reply-to: gorton@tallis.enet.dec.com
All standard disclaimers apply.
Newsgroups: comp.lang.fortran
From: ivab015@hermes.chpc.utexas.edu (Albert Wu)
Subject: Is this a Compiler Bug ?
Organization: The University of Texas System - CHPC
Date: Thu, 1 Oct 92 19:55:12 GMT

The following program cannot be compiled by fortran compilers on a Sun as well
as on a RS6000.  Apparently, the backslash is treated as a continuation
symbol.  Is this considered a bug in this program or a bug in the compiler.

      program test

      character*30 string

      string = '1234567890123456\8901234567890'
      ibksl = index ( string, '\' )
      print *, 'ibksl=',ibksl

      end
From: jpnicol@eng.auburn.edu (Jean-Paul N. Nicol)
Newsgroups: comp.lang.fortran
Subject: Re: SUMMARY:  How do I make MSF5.1 use lots of
Date: 5 Oct 92 15:43:22 GMT
Article-I.D.: news.1992Oct5.154322.14317
Reply-To: jpnicol@eng.auburn.edu
Organization: Auburn University Engineering

In article 25770@oasys.dt.navy.mil, ruckman@oasys.dt.navy.mil (Christopher Ruckman) writes:
>Thanks to all who posted and e-mailed replies.  I think I've got it
>under control (for the moment!)
>
>The problem was that I was bumping the 640k limit when I made my arrays
>too big.  I thought I could just use fl /MW, thereby "overriding the
>MS-DOS 640K size limitation" like it says in the QuickWin Graphics User's
>Guide.  But whenever I tried to use /MW I couldn't run the resulting
>executable!  If I tried it from DOS it said I needed Windows, and if
>I tried it from within Windows it wouldn't run!
>
>SOLUTION:  The trouble was that I wasn't linking to all the necessary
>libraries.  If you compile a program using a command like
>
>    fl /MW myprog.for
>
>then you're fine.  But I had multiple source files and was linking them
>to some other libraries like this:
>
>   fl /AH /MW /c prog1 prog2 prog3
>   link prog1 prog2 prog3, , , lib1 lib,,
>
>Apparently the /MW option does two things:  substitutes a library called
>LLIBFEW.LIB for the default library, and sticks in a file called FL.DEF.
>But when you link separately, you have to do these things manually!
>The lines shown above don't link to LLIBFEW, and don't tell link where
>to find FL.DEF.  When I compiled and linked using
>
>   fl /AH /MW /c prog1 prog2 prog3
>   link prog1 prog2 prog3, , , /nod llibfew lib1 lib2, \binb\fl.def,
>
>I finally got the desired end product:  an executable that can have
>lots of really big arrays, and runs under Windows!  Yaaaaaaay!!!
>
>I hope my ignorance hasn't been tooooo insulting.  Thanks again to all
>who responded.
>
>Chris


I believe that if you use Programmers Work Bench most of those things are handled and you don't have to think about it.  I wouldn't use MS FORTRAN 5.1 without it!
Newsgroups: comp.lang.fortran
From: ejh@khonshu.colorado.edu (Edward J. Hartnett)
Subject: Re: Quickie
Organization: CIRES, University of Colorado
Distribution: usa
Date: 5 Oct 92 15:18:09

In article <25960@oasys.dt.navy.mil> mulvihil@oasys.dt.navy.mil (Lawrence Mulvihill) writes:


   Silly fortran question 980678

	 integer n
	 n=1
	 write(*,n)
       1 format(2x,'my brain hurts')
       2 format(.....
       .
       .
       .


   Does not work.  How to fix?  Suggest IF statements and I bite you.

   Ciao

You could have an array of character, each element holding one format.
For example: 

	character*80 format(maxn)
	data format /'(2x,"my brain hurts")','(2x,"but at least I have one")',
       +	'(2x,"unlike our vice president")'/
	write(*,format(n))

Note the () which are required.

In this particular case why print the string as a format? It would be
more clear (I think) to do something like:

	character*80 message(maxn)
	data message /'my brain hurts','but at least I have one',
       +	'unlike our vice president'/
	write(*,'(2x,a)') message(n))

--
Edward Hartnett			ejh@khonshu.colorado.edu

Newsgroups: comp.lang.fortran
From: hybl@umbc4.umbc.edu (Dr. Albert Hybl (UMAB-BIOPHYS))
Subject: Re: Is this a Compiler Bug ?
Organization: Univ. of MD, Baltimore County
Date: Tue, 6 Oct 1992 04:02:22 GMT

In article <KHB.92Oct4125133@chiba.Eng.Sun.COM> khb@chiba.Eng.Sun.COM (chiba) writes:
>
>
>   Each time you create one of these imbroglios, you create a reason
>   that works to diminish the meaning of the word "Standard."  It is
>
>The X3.9-1978 made it clear; don't use backslash if you want your code
>to be Standard Compliant. If you code is not Standard Compliant don't
>complain that the compiler is broken,
No, not the compiler--it shows that the standardization process is
broken!
>                                      that FORTRAN is non-portable or
>that X3J3 should have the offending compiler writer tossed in Gaol.
Hmmm, a nice location to keep the X3J3 committee.  We're stuck
with a standard that has a 17-year cycle with no self correcting
feedback mechanisms between cycles.  The F90 cycle failed to
correct many of the faults contained in F77.

Albert Hybl (hybl@umbc4.umbc.edu)

Newsgroups: comp.lang.fortran