Skip to content
Snippets Groups Projects
Commit 3eebd64f authored by Wiarda, Dorothea's avatar Wiarda, Dorothea
Browse files

Fix a missplaced endif:wq

parent 902a70a9
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
sammy/src/npv/mnpv9.f
+ 1
− 1
View file @ 3eebd64f
...@@ -71,8 +71,8 @@ C ( A(Iwdasi), A_Iwdbsi ) -> A_Igx ...@@ -71,8 +71,8 @@ C ( A(Iwdasi), A_Iwdbsi ) -> A_Igx
DO I=1,N DO I=1,N
A(Ith + I -1) = A(Iwsigx + I -1) A(Ith + I -1) = A(Iwsigx + I -1)
END DO END DO
CALL Reorg ( A_Igx, A(Iwdasi), A_Iwdbsi , Kdat)
end if end if
CALL Reorg ( A_Igx, A(Iwdasi), A_Iwdbsi , Kdat)
C C
C C
IF (Ksolve.NE.2 .OR. Nfpall.GT.Nvpall) THEN IF (Ksolve.NE.2 .OR. Nfpall.GT.Nvpall) THEN
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment