|
| View previous topic :: View next topic |
| Author |
Message |
chris.sl.lim
Joined: 11 Jan 2013
Posts: 15
|
 Posted: Mon Apr 15, 2013 9:53 am Post subject: |
 |
|
Hi Mat,
Thanks for your prompt reply. Am I using the #ifdef statement correctly in Fortran?
#ifdef _OPENACC
WRITE(*,*) blah blah
#endif
I'm getting the following compiler errors:
| Code: |
PGF90-W-0025-Illegal character (#) - ignored (tblock-07.5.f90: 13623)
PGF90-S-0034-Syntax error at or near identifier def (tblock-07.5.f90: 13623)
PGF90-S-0034-Syntax error at or near integer constant 14 (tblock-07.5.f90: 13636)
|
There are no differences between the sumflux calls, apart from the different arrays that are passed as parameters (all are the same size)
| Code: |
IF (IF_UNST(NBLCK).NE.1) CALL SUMFLUX(NBLCK,RO,DELRO)
IF (IF_UNST(NBLCK).NE.1) CALL SUMFLUX(NBLCK,ROE,DELROE)
IF (IF_UNST(NBLCK).NE.1) CALL SUMFLUX(NBLCK,ROVX,DELROVX)
IF (IF_UNST(NBLCK).NE.1) CALL SUMFLUX(NBLCK,RORVT,DELRORVT)
IF (IF_UNST(NBLCK).NE.1) CALL SUMFLUX(NBLCK,ROVR,DELROVR) |
Chris |
|
| Back to top |
|
 |
mkcolg
Joined: 30 Jun 2004
Posts: 4996
Location: The Portland Group Inc.
|
| Posted: Mon Apr 15, 2013 10:00 am Post subject: |
|
|
Hi Chris,
| Quote: | | Am I using the #ifdef statement correctly in Fortran? |
Yes, but you need to compile with "-Mpreprocess" or rename your file to use the ".F90" suffix. (files with capitals are automatically pre-processed).
| Quote: | | There are no differences between the sumflux calls, apart from the different arrays that are passed as parameters (all are the same size) |
I'm not sure then. Are there any informational messages from "-Minfo=inline -Mneginfo=inline" that indicate why it's not getting inlined?
- Mat |
|
| Back to top |
|
|
chris.sl.lim
Joined: 11 Jan 2013
Posts: 15
|
| Posted: Mon Apr 15, 2013 10:22 am Post subject: |
|
|
Compiling with those flags yields no extra information
| Code: | 13368, Accelerator region ignored
13370, Accelerator restriction: function/procedure calls are not supported
13494, exbconds_gpu inlined, size=586, file tblock-07.5.f90 (14168)
13500, set_visforce_gpu inlined, size=1334, file tblock-07.5.f90 (14635)
13502, set_visforce_gpu inlined, size=1334, file tblock-07.5.f90 (14635)
13696, sumas inlined, size=373, file tblock-07.5.f90 (10251)
13767, sumflux inlined, size=578, file tblock-07.5.f90 (5221)
13807, sumflux inlined, size=578, file tblock-07.5.f90 (5221)
13852, Accelerator restriction: unsupported call to 'sumflux'
14071, hfromt inlined, size=5, file tblock-07.5.f90 (13223)
14077, hfromt inlined, size=5, file tblock-07.5.f90 (13223)
0 inform, 1 warnings, 0 severes, 0 fatal for set_flux_gpu
|
|
|
| Back to top |
|
|
mkcolg
Joined: 30 Jun 2004
Posts: 4996
Location: The Portland Group Inc.
|
| Posted: Mon Apr 15, 2013 10:49 am Post subject: |
|
|
Sorry, I'm not sure then. Can you send a reproducing example to PGI Customer Service (trs@pgroup.com) and ask them to forward it to me?
Thanks,
Mat |
|
| Back to top |
|
|
chris.sl.lim
Joined: 11 Jan 2013
Posts: 15
|
| Posted: Mon Apr 15, 2013 10:57 am Post subject: |
|
|
Hi Mat,
I've sent the source files and the makefile off to that email. Please let me know if anything in there is unclear (it's very poorly laid out as I've been working on it and learning Fortran at the same time!)
Thanks,
Chris |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2002 phpBB Group
|
Search
Memberlist
Register
Profile
Log in
