fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-07 15:14:57 +00:00
Code Issues Packages Projects Releases Wiki Activity

Had to switch two lines in psi_exist_ovr_elem because of IFORT giving

Browse Source 
a strange error message...
This commit is contained in:
Salvatore Filippone
2008-01-24 16:14:16 +00:00
parent d00d9cc517
commit da113e34d4
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_exist_ovr_elem.f
+2 -2
View File
@@ -51,11 +51,11 @@ C
C ELEM_SEARCHED.....:point's Local index identifier to be searched.
IMPLICIT NONE
C ...Array Parameters....
INTEGER OVR_ELEM(dim_list,*)
C ....Scalars parameters....
INTEGER DIM_LIST,ELEM_SEARCHED
C ...Array Parameters....
INTEGER OVR_ELEM(DIM_LIST,*)
C ...Local Scalars....
INTEGER I