Skip to content
Snippets Groups Projects
Commit a4292862 authored by Houtan Bastani's avatar Houtan Bastani
Browse files

change nonblock do to block do for gfortran compilation

parent 9133b128
Branches
No related tags found
No related merge requests found
...@@ -58,7 +58,7 @@ C LOCALS ...@@ -58,7 +58,7 @@ C LOCALS
2 RG(nx,ny),HPV(nx,ny) 2 RG(nx,ny),HPV(nx,ny)
LIKE(d(1)+1:nobs) = 0.D0 LIKE(d(1)+1:nobs) = 0.D0
DO 1000 imain = d(1)+1,nobs DO imain = d(1)+1,nobs
iny = IYK(imain,ny+1) iny = IYK(imain,ny+1)
C ------------------------------------ C ------------------------------------
...@@ -171,7 +171,7 @@ c CALL F03ABF(V(1:iny,1:iny),iny,iny,DETV,COM(1:iny,1),IFAIL) ...@@ -171,7 +171,7 @@ c CALL F03ABF(V(1:iny,1:iny),iny,iny,DETV,COM(1:iny,1),IFAIL)
XT(imain,1:nx) = X1(1:nx) XT(imain,1:nx) = X1(1:nx)
PT(imain,1:nx,1:nx) = P1(1:nx,1:nx) PT(imain,1:nx,1:nx) = P1(1:nx,1:nx)
1000 ENDIF END IF
END DO
RETURN RETURN
END END SUBROUTINE
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment