Fortran

Invocation of overridden procedure on an abstract parent component
If an extended type overrides a type-bound procedure of its abstract parent, can it explicitly invoke the parent's version on of the procedure on the parent component? The code below works if I delete the "abstract" attribute from the parent type. With the abstract attribute, I get the error below from gfortran 4... 27 Feb 2010 19:53

Verifying function interface
Is there any way to check that a particular function has certain (given) interface. For example, I have a module that contains an abstract interface: !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! module iface abstract interface function obj_f(x, flag) result(res) real :... 28 Feb 2010 13:20

Fun with Friedrich Bessel
program testjn integer, parameter : dp = kind(1.d0) real(dp) z z = 2.4048255576957729_dp print *, besjn(3,z) end program testjn If your compiler returns a value other than 0.19899990535769083, you may want to contact your OS/compiler vendor. -- steve ... 28 Feb 2010 15:34

interactive command editting
Does anyone know of a FORTRAN callable library to do command line recall and editting of interactive commands? I'm running FreeBSD on a AMD computer. I use gcc4.4/gfortran It seems like a FORTRAN interface to readline or editline must exist. Thanks ... 27 Feb 2010 17:40

Exact type redeclaration: standards conforming?
Hi, Below is a simplified example of redeclaring a derived type exactly. I'm wondering if it is standards conforming, since some compilers allow it and others don't. !------------------------------------------------- subroutine outer(a) implicit none type :: atype real :: r... 24 Feb 2010 16:32

Module interface for an external procedure
What is the best way to add a module interface to a predefined external procedure, without changing the name of the procedure? By "predefined" I mean to assume that the source code is unavailable, such as in a precompiled library. I found a simple solution that requires munging the original procedure name (as in... 3 Mar 2010 15:14

intrinsic function optional argument
Assuming that two arguments are passed to the sum intrinsic, how does the compiler sort out whether the second argument is dim or mask? Does it just look at the type (integer vs logical)? Is it possible to do the same type of thing in Fortran (figure out which optional argument the user is providing based on the... 24 Feb 2010 17:41

ifort warning in sign function
I'm using the following 'trick' to define my real kinds up to 'quadruple precision': integer, parameter, public :: sp = kind(1.0) integer, parameter, public :: dp = selected_real_kind(2*precision(1.0_sp)) integer, parameter, public :: qp_preferred = & selected_real_k... 25 Feb 2010 18:13

qsort and C interoperability, was Re: "Optional" Arguments in Fortran?
monir <monirg(a)mondenet.com> wrote: 1) Let us say I've a routine mySort() which sorts four 4D array variables in increasing order wrt there abscissa: ..abscissa x(i,j,k,m) ..abscissa y(i,j,k,m) ..abscissa z(i,j,k,m) ..abscissa t(i,j,k,m) ....variable vx(i,j,k,m) ....variable vy(i,j,k,m) ...... 24 Feb 2010 04:13

"Optional" Arguments in Fortran ??
Hello; 1) Let us say I've a routine mySort() which sorts four 4D array variables in increasing order wrt there abscissa: ...abscissa x(i,j,k,m) ...abscissa y(i,j,k,m) ...abscissa z(i,j,k,m) ...abscissa t(i,j,k,m) .....variable vx(i,j,k,m) .....variable vy(i,j,k,m) .....variable vz(i,j,k,m) .....variable vt(... 24 Feb 2010 21:04