forums.silverfrost.com

[pierre]

I am new in using FTN95 and I would like to know how to "call" simpleplot (isn't it: use spmodule ?).

I have downladed the documentation and copy/paste some of the example given.
Plato 3 tells me: C:\Documents and Settings\collinet\Bureau\FreeFormat1.F95(2) : error 404 -
Cannot find definition for MODULE SPMODULE

How do I do ? (I am conscious it is perhaps a stupid question) (I am under windows XP)

Thank you in advance !

[PaulLaidler]

There is an example in "Direct calls to SIMPLEPLOT" in ftn95.chm.

Which documentation and sample are you using?

[pierre]

I was looking in Fsimpleplot.chm
Now I am using this documentation, and find what you are talking about (thank you ).

Just one question:

What is that for (Direct calls to SIMPLEPLOT program):
c--The start-up callback
INTEGER FUNCTION StartCB()
INCLUDE 'CLEARWIN.INS'

And again thanks (FTN95 is the only fortran compiler with IDE I manage to make working on my computer )

[pierre]

I do not manage to plot curve.
Here is the beginning of my program:
PROGRAM HW2
WINAPP
IMPLICIT NONE
INTEGER N,K,winio@,l
PARAMETER (N=145)

Then I create my data X,Y1,Y2,Y3

and I write:

l=winio@('%pl[X_AXIS=pouet,Y_AXIS=error,SCALE=LINEAR_LOG,TITLE="Sample",
& N_GRAPHS=3,COLOUR=red,COLOUR=blue,COLOUR=blue,X_ARRAY]',300,300,N,X,Y1,Y2,Y3)

The & is here because the line is too long.
I get the answer:
"error 70 - Unterminated character constant" for the ligne l=winio@('%pl......

(I just want to plot three Y1 Y2 Y3 curves with logarithmic scale for x )

[PaulLaidler]

Are you using free format Fortran? It is better if you do.

In free format your line can be quite long.

I you want to break the line you must follow the rules which probably means putting an ampersand at the end of the first line as well in this context.

When breaking character variables it is safer to use concatenation...

string = 'abcd' &
& //'efgh'

The double quoted "Sample" within a single quote is a potential problem but should be OK here.

[pierre]

Thank you.

I have a another (last I hope) problem:

My program is on simple/double precision. But winio@ does not accept single precision array.

How do I make it plot my single precision array. I try to use DBLE but it doesn't seem to have any effect. Should I:

Declare DX, DY, DZ as double array X,Y,Z as simple array and then do
DX=DBLE(X)
or declare X as a simple arry and then do:
X=DBLE(X) ?

thanks a lot in advance

[PaulLaidler]

I would try DX=DBLE(X) but test it to make sure that all the elements are copied across.

[pierre]

It works but when I do it

1.000000*10^-16 becomes 1.000000012345678*10^-16

But since it is at the end and just for plotting ......

[johannes]

I tried to compile the clearwin-Simpleplot testprogram CLWIN_SP, found in Ftn95UserGuide.doc ("Using SimplePlot with FTN95") from BUSS 2001.

Compilation brought some error messages, which are bit too exotic for me. Did that example work somewhen at all? What could I do to get it work? I used just ftn95 without any special options.

These is the compiler output:

PROCESSING MODULE [<SPWIN> FTN95/Win32 v5.50.0]
NO ERRORS [<SPWIN> FTN95/Win32 v5.50.0]
NO ERRORS [<CLWIN_SP> FTN95/Win32 v5.50.0]
0061) TYPE(SIMPLE_WINDOWS_DATA_STRUCT_T), DIMENSION(2) :: OpCodes
*** Derived type SIMPLE_WINDOWS_DATA_STRUCT_T has not been declared
*** SIMPLE_WINDOWS_DATA_STRUCT_T is not a derived-TYPE name
0064) OpCodes(1)%iOpc = SIMPLE_WINDOWS_SET_HDC_DIM ! hDC + dimensions
*** The '%' operator can only be applied to objects which are a derived type
*** The '%' operator can only be applied to objects which are a derived type
0065) OpCodes(1)%iPtr = LOC(HDC_DIM) ! See definition of SPWIN above
*** The '%' operator can only be applied to objects which are a derived type
*** The '%' operator can only be applied to objects which are a derived type
0066) OpCodes(2)%iOpc = SIMPLE_WINDOWS_END_LIST! End of list
*** The '%' operator can only be applied to objects which are a derived type
*** The '%' operator can only be applied to objects which are a derived type
8 ERRORS [<SP_SUPPLYBITMAP> FTN95/Win32 v5.50.0]
NO ERRORS [<TSTFUN> FTN95/Win32 v5.50.0]
NO ERRORS [<DRAWCONTL> FTN95/Win32 v5.50.0]
NO ERRORS [<DRAWCONTS> FTN95/Win32 v5.50.0]
NO ERRORS [<DRAWSURFL> FTN95/Win32 v5.50.0]
NO ERRORS [<DRAWSURFS> FTN95/Win32 v5.50.0]
NO ERRORS [<UPDATEWIN> FTN95/Win32 v5.50.0]
NO ERRORS [<SETATTRIBUTES> FTN95/Win32 v5.50.0]
*** Compilation failed

[aebolzan]

I guess you need this module: