Recent content by Louisa

It's perfectly legal to add a scalar to a vector. Thus, seed = 5 + (/ 0, 37 /) is OK too. The problem with the line is that "secnds" has not been defined.

This information us quite useless without the code. You need to post it.

There are two errors in this code: 1. There's a space in the variable "File Name" in line 3. 2. There is no data format item in the FORMAT statement. It needs to be something like 100 FORMAT (6X, 6A) which provides the means for the six strings (the headings) to be printed out.

You must include a USE statement for the module in each subroutine or function that requires use of the module.

You need to post the entire program. This little piece needs values passed in COMMON.

You need to post the entire code. The code that doesn't work is what precedes these 3 lines.

You have created an illegal recursive definition of DISTRIBUTIVE at the line w(i) = a*v(i). For your (apparent) task, you don't need a type "Vector". Nor do you need a module procedure to do multiplication. Ordinary Fortran facilities permit you to multiply a scalar by a vector, without...

There are at least several problems that you need to rectify. (In future, include all the error messages with your post, along with the source.) 1. You need "IMPLICIT NONE" in the program and in each subroutine and function. 2. What is "f"? 3. when you invoke rk, it is with 3...

You need to post the program.

Why do you think that is not working? You didn't print out anything after the value of "n" is typed.

You should try that in Fortran 90 or later compiler, which have allocatable arrays. Even later versions (after Fortran 95) have allocate on assignment, arrays can grow. There are several free Fortran 95 compilers.

You can do that in PL/I (in Windows and other systems).

It is essential to have a test for negative. Either there needs to be an error trap, or the routine returns a value, say 1. If there is no test for zero, an infinite loop occurs when the function is presented with a negative argument.

It is necessary to test for negative numbers. If the recursive routine is presented with a negative argument, it will loop forever.