forums.silverfrost.com

....Your calculation in MEAN does not look correct to me. I'm not sure of your use of i and j, such as avg(i).....

I sure did not mean it that way. So fixed it as follows,

DO i = 1, n
su ...

I have 16 txt files each containing 10,000 data. Now I am trying to calculate average value of each file and put the results in one single file. The result file should have 3 columns and 8 rows. The f ...

Thanks John! I changed \check and tried with both debug.net and debug win32 without knowing what they exactly do. But the compilation and linking worked really fast! (Now I am wondering if one of thes ...

Here are the subroutines as they did not fit in one post.

SUBROUTINE READDATA(y,n,seqfname)
IMPLICIT NONE
INTEGER::i,ierr
INTEGER,INTENT(out)::n
DOUBLE PR ...

Previously my program compiled and linked very fast. But for unknown reasons, now this is taking ages. What usually causes such lengthy compiling and linking? Pls comment. Here is the code,

...

DO seqnum = 1,857,8
WRITE(seqfilein(5:7),'(I3.3)')seqnum
WRITE(*,*)seqfilein
OPEN (UNIT=10,FILE=seqfilein,STATUS='OLD',ACTION='READ',IOSTAT=ierr ...

Hello,

I have a two-column discrete data file with 10,000 rows. The first column is the time (t) and the second is the velocity data (v) where time increment, Delta-T = 0.0001.
I am trying to fin ...

This solved the problem.

do i = 1,length
newcore(i) = core(length-i+1)
end do

do i = 1,length
newcore(length+i) = core(i)
end do

Many thanks for the ...

Hello,

Here is my original function http://s2.postimage.org/28j2bh57o/curve0.jpghttp://s3.postimage.org/l2e28nic/curve1.jpgreal, dimension (100) :: oldvalue
real, dimension (20 ...

Did not realize "appending" is that simple to an output file! However, I am still unable to figure out how to do that within the code in the case below,

sum=0.
DO i = 1,n
sum(i) ...

Hello all,

I have a one column data file, let's say, containing,

1
2
3
4
5

Now I would like to invert (not sorting) the column and append with the existing one to a new file as in,

1
...

Thank you Carl. The error came from divided by zero from "sum2=0".
Your last suggestion was really helpful.

Cheers!

The following declarations are provoking the error as shown in the post subject.

REAL :: sum2,sum3,skewn
INTEGER :: n
DOUBLE PRECISION, DIMENSION(n) :: ...

Hello all,

Here is my program which is taking multiple input files and producing same number of output files. For example, I have 50 input files, the program is calculating the mean of the data the ...

Many thanks for your kind suggestion!