 |
forums.silverfrost.com Welcome to the Silverfrost forums
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in| Search found 9 matches |
| Author | Message |
|---|---|
 Topic: Fotran 77 versus 95 |
|
| Alvaro Replies: 14 Views: 15507 |
 Forum: Support Posted: Thu Nov 06, 2008 11:59 am Subject: |
| Thanks, I declared the functions as reals and now it works properly.
Thanks! |
|
| Topic: Fotran 77 versus 95 |
|
| Alvaro Replies: 14 Views: 15507 |
Forum: Support Posted: Wed Nov 05, 2008 6:57 pm Subject: |
| So, how can I call a function in double precision? | |
| Topic: Fotran 77 versus 95 |
|
| Alvaro Replies: 14 Views: 15507 |
Forum: Support Posted: Wed Nov 05, 2008 3:34 pm Subject: |
| and finally:
function sol_az(tt,decl,omega,solel,xlatitude) *....................................................................... * Computation af solar azimuth in radians ... |
|
| Topic: Fotran 77 versus 95 |
|
| Alvaro Replies: 14 Views: 15507 |
Forum: Support Posted: Wed Nov 05, 2008 3:32 pm Subject: |
| The are several fuctions which are similar defined in the code, it continue later like:
function declination(doy,tt) *....................................................................... * d ... |
|
| Topic: Fotran 77 versus 95 |
|
| Alvaro Replies: 14 Views: 15507 |
Forum: Support Posted: Wed Nov 05, 2008 3:30 pm Subject: |
| CONTINUE: (REAL, DIMENSION(24):: tAira,gsra1,gsra2,gsra3)
REAL, DIMENSION(24):: TL,p,xId,snh parameter (pi=3.141592653589793d0) parameter (rtd=180.d0/pi) parameter (dtr=1.d0/rtd) ... |
|
| Topic: Fotran 77 versus 95 |
|
| Alvaro Replies: 14 Views: 15507 |
Forum: Support Posted: Wed Nov 05, 2008 3:28 pm Subject: |
| CONTINUE FROM:( if (name.NE."</Table>") then)
READ(10,310) mm(k),dd(k),hh(k),mn(k),ss(k) c write(*,*) "month ",mm(k)," day ",dd(k) READ(10,309) ... |
|
| Topic: Fotran 77 versus 95 |
|
| Alvaro Replies: 14 Views: 15507 |
Forum: Support Posted: Wed Nov 05, 2008 3:25 pm Subject: |
| Hi Paul
I've been searching, but I don't find that the factor is define in two places. If you don't mind I place here the whole code. It is a code to Calculate the Direct Solar Radiation in a given ... |
|
| Topic: Fotran 77 versus 95 |
|
| Alvaro Replies: 14 Views: 15507 |
Forum: Support Posted: Wed Nov 05, 2008 12:31 pm Subject: |
| Hi Paul.
The subroutine is: "subroutine TLinke(doy,tAira,gsra1,gsra2,gsra3, > solelv,TL,xId) DOUBLE PRECISION doy,time,lat,lon,decl,omega,ed, r_cor DOUBLE ... |
|
| Topic: Fotran 77 versus 95 |
|
| Alvaro Replies: 14 Views: 15507 |
Forum: Support Posted: Wed Nov 05, 2008 10:47 am Subject: Fotran 77 versus 95 |
| Hi all,
I have a problem, while running a old fortran 77 code in my Plato 3 the program it gives me the following error: "attempt to call a subroutine as if were a real (kind=1) function" ... |
|
All times are GMT + 1 Hour |
Powered by phpBB © 2001, 2005 phpBB Group