 |
forums.silverfrost.com
Welcome to the Silverfrost forums
|
| View previous topic :: View next topic |
| Author |
Message |
KL
Joined: 16 Nov 2009
Posts: 155
|
 Posted: Fri Aug 06, 2010 3:41 pm Post subject: Save Attributes |
 |
|
6.8.2010
Dear Sirs,
when I compile the program Axreib the options /List and /Dump (see compall.txt), I find in the list Axreib.lis 12 Save attributes for local variables.
Axreib uses he module Global_Data. I have used the latest FTN95 version 5.50 as you can see from the files *.lis.
Since there is nowhere any Save statement I wonder where the Save attributes come from.
Best regards,
Klaus Lassmann
Compall.bat:
| Code: |
del comp.lis
del *.obj
ftn95 Global_Data.f95 /Checkmate /Full_Debug >> comp.lis
ftn95 Axreib.f95 /Checkmate /Full_Debug /list /dump >> comp.lis
|
Axreib.f95:
[code:1:7f6230c00b]
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! ++++++++++++++ ++++++++++++++++
! ++++++++++++++ Subroutine A X R E I B ++++++++++++++++
! ++++++++++++++ Subroutine A X R E I B ++++++++++++++++
! ++++++++++++++ Subroutine A X R E I B ++++++++++++++++
! ++++++++++++++ ++++++++++++++++
! ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! #################
Subroutine Axreib
! #################
! Subroutine AXREIB calculates the local friction force FJ
! and the total friction force PJ
! ------------------------------------------------------------------
Use Global_Data
Implicit None
Double Precision , Dimension ( m31, m31) :: a
Double Precision , Dimension ( m31 ) :: b, x
Double Precision :: summal, &
sueps0, &
summaf, &
al , &
summfj
Integer :: ierr, j, k, l
! ------------------------------------------------------------------
k = 1
! *************
Do j = 2, m31
! *************
! =============================
If ( irakon (j) .eq. 2 ) Then
! =============================
! --- irakon (j) = 2
summal = 0.d+00
sueps0 = 0.d+00
! *************
Do l = k, j-1
! *************
summal = summal + hhref (l) / aequer (l,1) &
+ hbref (l) / aequer (l,2)
sueps0 = sueps0 + ( Axrelo (l) + eps0b (l) ) * hbref (l) &
- eps0h (l) * hhref (l)
! ******
End Do
! ******
a (j,j:m31) = summal
b (j) = sueps0 + zbref (j) - zhref (j) &
- zbref (k) + zhref (k) &
- wrel (j) + wrel (k)
summaf = 0.d+00
! *************
Do l = k, j-2
! *************
al = + hhref (l) / aequer (l,1) &
+ hbref (l) / aequer (l,2)
summfj = sum ( Fj (l+1:j-1) )
summaf = summaf + al * summfj
! ******
End Do
! ******
b (j) = b (j) - summaf
k = j
! ====
Else
! ====
! --- irakon (j) = 0, 1 or -1
! +++++++++++++++++++++++++++++
If ( irakon (j) .eq. 0 ) Then
! +++++++++++++++++++++++++++++
Fj (j) = 0.
|
|
| Back to top |
|
 |
PaulLaidler
Site Admin
Joined: 21 Feb 2005
Posts: 8210
Location: Salford, UK
|
| Posted: Sat Aug 07, 2010 7:53 am Post subject: |
|
|
| Can you supply a short and complete program please? |
|
| Back to top |
|
|
KL
Joined: 16 Nov 2009
Posts: 155
|
| Posted: Sat Aug 07, 2010 8:09 am Post subject: |
|
|
| were the programs not transmitted completely? |
|
| Back to top |
|
|
PaulLaidler
Site Admin
Joined: 21 Feb 2005
Posts: 8210
Location: Salford, UK
|
| Posted: Sat Aug 07, 2010 9:52 am Post subject: |
|
|
| No. There appears to be limit to the number of lines that you can post. |
|
| Back to top |
|
|
KL
Joined: 16 Nov 2009
Posts: 155
|
| Posted: Sun Aug 08, 2010 8:44 am Post subject: |
|
|
Sorry, I did not know about this restriction. However, I have of course tried to cut the program(s) down, but failed to reproduce this particular behaviour of FTN95. Since I have observed this behaviour many times, I'll continue to produce a shorter demo program.
Best regards,
Klaus |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
