Skip to content

Instantly share code, notes, and snippets.

Paul Anton Letnes pletnes

  • Trondheim, Norway
Block or report user

Report or block pletnes

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View foo.f90
program archaic
implicit none
! This is actually a program input
integer, parameter :: M = 10000
integer, allocatable, dimension(:) :: iwork
integer, pointer, dimension(:) :: ptr
integer, pointer, dimension(:,:) :: ptr_remap
integer :: i, start, length
nullify(ptr)
@pletnes
pletnes / Makefile
Last active Apr 4, 2016
Makefile and code - illegal fortran syntax?
View Makefile
.PHONY: all pgi intel gcc nag clean
all: gcc intel nag pgi
pgi:
pgfortran -V
pgfortran -Minform=inform -Mbounds intertest.f90 -o intertest-pgi
./intertest-pgi
intel:
View gist:73d52a4a71a4b0074dd9
program test_nearest
integer, parameter :: R8P = 8
real(R8P) :: z
#ifdef __GFORTRAN__
real(R8P), parameter:: ZeroR8 = nearest(1._R8P, 1._R8P) - nearest(1._R8P,-1._R8P)
real(R8P), parameter:: ZeroR8_2 = nearest(1._R8P, 1._R8P) - 1._R8P
#endif
real(R8P), parameter:: ZeroR8_3 = epsilon(z)
You can’t perform that action at this time.