Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

WIP: Changes needed for NAG Compiler #240

Draft
wants to merge 9 commits into
base: main
Choose a base branch
from
Prev Previous commit
Next Next commit
Fix for rs_numtiles
  • Loading branch information
mathomp4 committed Dec 15, 2021
commit 0b87a2cb76fe5c7b46f39c95f996ac7ea11a055e
5 changes: 5 additions & 0 deletions GEOS_Util/post/rs_numtiles.F90
Original file line number Diff line number Diff line change
@@ -57,7 +57,12 @@ program rs_numtiles
else
bpos=0
read (10)
#ifdef __NAG_COMPILER_RELEASE
write (*,*) 'NAG does not provide ftell. Use only netCDF'
error stop 1
#else
epos = ftell(10) ! ending position of file pointer
#endif
ntiles = (epos-bpos)/4-2 ! record size (in 4 byte words;
rewind 10
end if