- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Can somebody explain to me why the following piece of code should generate a warning message (pasted after the code)
SUBROUTINE pointingTo_MeshBounds(index_ies)
INTEGER(I4B), INTENT(IN) :: index_ies
sideglobalseg=>sideglobalsegsave(:,index_ies)
sideglobalspan=>sideglobalspansave(:,index_ies)
sideglobalpcurve=>sideglobalpcurvesave(:,index_ies)
sideglobalzetst=>sideglobalzetstsave(:,index_ies)
sideglobalzetfi=>sideglobalzetfisave(:,index_ies)
END SUBROUTINE
D:WorkV60MESHMeshData.F90(1794) : Warning: This variable has not been used. [INDEX_IES]
SUBROUTINE pointingTo_MeshBounds(index_ies)
---------------------------------^
It seems to me that if you pass a variable to a subroutine and use it as a dimension parameter of an array, the compiler will not conside it as a valid usage of that variable!!!! It is very odd.
Ali Asi
asi@enginia.com
SUBROUTINE pointingTo_MeshBounds(index_ies)
INTEGER(I4B), INTENT(IN) :: index_ies
sideglobalseg=>sideglobalsegsave(:,index_ies)
sideglobalspan=>sideglobalspansave(:,index_ies)
sideglobalpcurve=>sideglobalpcurvesave(:,index_ies)
sideglobalzetst=>sideglobalzetstsave(:,index_ies)
sideglobalzetfi=>sideglobalzetfisave(:,index_ies)
END SUBROUTINE
D:WorkV60MESHMeshData.F90(1794) : Warning: This variable has not been used. [INDEX_IES]
SUBROUTINE pointingTo_MeshBounds(index_ies)
---------------------------------^
It seems to me that if you pass a variable to a subroutine and use it as a dimension parameter of an array, the compiler will not conside it as a valid usage of that variable!!!! It is very odd.
Ali Asi
asi@enginia.com
Link Copied
1 Reply
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
I'm pretty sure this was fixed in a version more recent than the 6.1A you're using.
Steve
Steve

Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page