|
[Sponsors] |
![]() |
![]() |
#1 |
New Member
bob
Join Date: Oct 2017
Posts: 18
Rep Power: 8 ![]() |
Hi
i have a full code .but have a small matter " warning " code and compiler online : https://www.tutorialspoint.com/compi...ran_online.php Last edited by batuning; October 26, 2017 at 15:01. |
|
![]() |
![]() |
![]() |
![]() |
#2 |
Senior Member
Join Date: Oct 2011
Posts: 242
Rep Power: 16 ![]() |
Loop index variable has type real. This is a deprecated fortran feature. Consider rewritting these blocks using integer variables.
As you do not use the implicit none statement, fortran will interpret all variables which do not start by i,j,k,l,m,n as real numbers. I strongly recommend using the implicit none statement in your program preambule and then declare explicitly all your variables types. ex: you would want to replace this: do o=0.,2*pi,step x=xm*cos(delta)+a*cos(o) end do by something like program test implicit none integer :: i,imax real :: o,pi,step imax=10 pi=4.0*ACOS(-1.0) step = (2*pi)/(imax-1) do i=1,imax o=(i-1)*step print*,cos(REAL(i)) end do end program test |
|
![]() |
![]() |
![]() |
![]() |
#3 |
New Member
bob
Join Date: Oct 2017
Posts: 18
Rep Power: 8 ![]() |
thanks
i need x & y is just for x |
|
![]() |
![]() |
![]() |
Tags |
fortran 90, fortran code, fortran compiler, fortran subroutines |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Transient run continues from last time (when startover is desired) | bongbang | CFX | 2 | March 22, 2015 23:05 |
SonicFoam forwardStepTutorial doesnbt complete the run | alberto | OpenFOAM Bugs | 1 | June 10, 2007 15:35 |
CFD code structure (F90) | ma | Main CFD Forum | 4 | January 10, 2005 20:47 |
public CFD Code development | Heinz Wilkening | Main CFD Forum | 38 | March 5, 1999 11:44 |
What kind of Cmmercial CFD code you feel well? | Lans | Main CFD Forum | 13 | October 27, 1998 10:20 |