forums.silverfrost.com

But with Checkmate .NET. this results.

Back and Forth
1 0.0000 1.0000 9.0000 0.0000
2 1.0000 1.0000 8.0000 0.0000
3 2.0000 1.0000 7.0 ...

In order to help find the problem I've added more to the stubs for PCHIM.f and PCHFE.f and upgraded to FTN95 6.30.
There appears to be some problem passing the address of a two dimensional array be ...

What version of the compiler are you using?

After making these changes, it still crashes with the error 14 when compiled with Checkmate Win32.

When compiling with the Debug Win32 or Release Wi ...

Since this is a run time error, I wanted to show you all the code. GNU likes this just fine. The INTEL compiler does not like the fact that I'm passing what appears to be a scalar YTB(INDX,1) ...

These are stubs:

SUBROUTINE PCHIM (N, X, F, D, INCFD, IERR)
INTEGER N, INCFD, IERR
REAL X(*), F(INCFD,*), D(INCFD,*)

RETURN
END ...

This is a bridge between the old program and the new module:

SUBROUTINE PCHIP (IDEG, IDIM1, IDIM2, INDX, NUM2, XBAR, &
XTB, YTB, TOL, IFIRST, YBAR, IERR) ...

This is the main program:

program test
implicit none

call backAndForth()

end program test

subroutine backAndForth()

INTEGER, PARAMETER :: IDIM1 = ...

Here's the second half of the module:

subroutine interpolate(IDIM1, IDIM2, INDX, NUM2, XBAR, &
XTB, YTB, YBAR, IERR)

INTEGER,INTENT(IN) ...

Here's the first half of the module that gets the error 14.

module pchip_module
implicit none

INTEGER,PARAMETER :: MAXIMUM_POLYNOMIALS = 20

type po ...

Is there a better away to show the code? My post was truncated.

This module crashes:

Error 14, Attempt to alter an actual argument that is a constant, an expression, an INTENT(IN) argument, or a DO variable. .

It appears to work correctly in GNU Fortran. An ...

Thanks Paul,

When will the fix be available?

Glen

If I just compile, I get the access violation and no log. If I build, the module compiles but the link fails because there is no main program. More confusing?

//////////////////////////////////// ...

Here's the BuildLog...

00000000 46 00 54 00 4E 00 39 00-35 00 2E 00 45 00 58 00 F.T.N.9.5...E.X.
00000010 45 00 20 00 22 00 43 00-3A 00 5C 00 42 00 55 00 E. .".C.:.\.B.U.
00000020 4 ...

The following code compiles in PLATO but gets an access violation in Express.

module BUFFER_MOD

type,public :: buffer_type
private
character :: BUF_CHARS(383 ...