How to express a long directive for openMP in Fortran?

[Anonymous21]

How do you know how to express the continuous red line with the previous line as follows?

!$OMP PARALLEL DEFAULT(PRIVATE),SHARED(i, j,k,ucn,q,dc,de,dz)
!$OMP& SHARED(qq,qw) ---> Question??
:
:
!$OMP END PARALLEL


If adding the + or &, the complier make the error message.


adi.f90(10): error #5082: Syntax error, found '&' when expecting one of: ; BLOCK BLOCKDATA PROGRAM MODULE TYPE COMPLEX BYTE ...
!$OMP& SHARED(qq,qw)
------------^
adi.f90(21): error #7622: Misplaced part of an OpenMP parallel directive.
!$OMP END PARALLEL
---------------^

----------omitting

Could you let me know how to do or some references for that?

[rreis]

Reading from here: https://computing.llnl.gov/tutorials/openMP/#Directives

I would suppose, if this is freeform fortran that

$OMP BLABLA &
$OMP BLABLA2

would be the right way...

(infering from "All Fortran free form rules for line length, white space, continuation and comment columns apply for the entire directive line")

[Steven_L_Intel1 · Accepted solution]

Ricardo is close. OpenMP directives may be continued and the syntax for doing so is similar to that for Fortran free-form source. The directive to be continued shall have an & as the last non-whitespace character. The continued directive may (but does not require) have an & after the !$OMP introducer. Note that the ! is required - Ricardo left it out, probably accidentally.

So what you want is this:

[plain]!$OMP PARALLEL DEFAULT(PRIVATE),SHARED(i, j,k,ucn,q,dc,de,dz), &
!$OMP& SHARED(qq,qw)       [/plain]

The comma between clauses is optional, but I think for style you should be consistent as to whether you use it or not.

[rreis]

Quoting - Steve Lionel (Intel)

Note that the ! is required - Ricardo left it out, probably accidentally.

yep, thanks for the correction! :)

[Anonymous21]

Thanks for Ricardo and Steve's help.

Quoting - hydrol88

How do you know how to express the continuous red line with the previous line as follows?

!$OMP PARALLEL DEFAULT(PRIVATE),SHARED(i, j,k,ucn,q,dc,de,dz)
!$OMP& SHARED(qq,qw) ---> Question??
:
:
!$OMP END PARALLEL


If adding the + or &, the complier make the error message.


adi.f90(10): error #5082: Syntax error, found '&' when expecting one of: ; BLOCK BLOCKDATA PROGRAM MODULE TYPE COMPLEX BYTE ...
!$OMP& SHARED(qq,qw)
------------^
adi.f90(21): error #7622: Misplaced part of an OpenMP parallel directive.
!$OMP END PARALLEL
---------------^

----------omitting

Could you let me know how to do or some references for that?

[lessonfree]

How many lines you can create in such manner? Is it any kind of limitations?

[TimP]

Quoting - lessonfree

How many lines you can create in such manner? Is it any kind of limitations?

I've never seen a limitation reached, even with the use of default(none) in large parallel regions, requiring over 100 variables in the shared and private lists.

[lessonfree]

Quoting - tim18

I've never seen a limitation reached, even with the use of default(none) in large parallel regions, requiring over 100 variables in the shared and private lists.

[lessonfree]

Quoting - lessonfree

Is it described in documentation somewhere?

[TimP]

Quoting - lessonfree

That would be the OpenMP specification, which you could re-examine at will.

[Steven_L_Intel1]

I don't know for sure, but I'd expect that the Fortran 90 standard minimum of 39 free-form continuation lines to be relevant. The Intel compilers allow 511 continuations.