Fortran - !MS$LOCICAL:2

Author

!MS$LOCICAL:2

philbrierley@hotmail.com

2006-04-28, 7:04 pm

Hi,
I put the following directives at the top of a module and it compiles
OK.

!MS$REAL:8
!MS$INTEGER:4

What is the equivalent for a logical. I get an 'Invalid DEC$ directive
!MS$LOGICAL:2' with the following...

!MS$LOGICAL:2

I am using CVF.

Thanks in advance,

Phil

Gary L. Scott

2006-04-28, 7:04 pm

philbrierley@hotmail.com wrote:
> Hi,
> I put the following directives at the top of a module and it compiles
> OK.
>
> !MS$REAL:8
> !MS$INTEGER:4
>
> What is the equivalent for a logical. I get an 'Invalid DEC$ directive
> !MS$LOGICAL:2' with the following...
>
> !MS$LOGICAL:2
>
> I am using CVF.
>
> Thanks in advance,
>
> Phil
>
Doesn't appear to be one for logical in the documentation.

--

Gary Scott
mailto:garyscott@ev1.net

Fortran Library: http://www.fortranlib.com

Support the Original G95 Project: http://www.g95.org
-OR-
Support the GNU GFortran Project: http://gcc.gnu.org/fortran/index.html

Why are there two? God only knows.

If you want to do the impossible, don't hire an expert because he knows
it can't be done.

-- Henry Ford

max

2006-04-29, 8:01 am

"Gary L. Scott" <garyscott@ev1.net> wrote in message
news:1255dsk44a9hpc4@corp.supernews.com...
> philbrierley@hotmail.com wrote:
> Doesn't appear to be one for logical in the documentation.
>

It shouldn't matter. You are saying that all REAL declarations should act as
if they were DOUBLE PRECISION; all INTEGER declarations should act as if
they were INTEGER*4, otherwise known as INTEGER; and all LOGICAL to act as
LOGICAL*2 (which does exist) - but for compatability you are better off
leaving LOGICAL as default kind LOGICAL. If the code *really* does need
LOGICAL*2, then do so a global replace. Better still would be to consult the
manual and setip using KIND rather than *byte decriptors.

Sponsored Links